====== Activité 6 : Excel et Word ======

Utilisez le même fichier Excel {{:dev:excelvba:td_excel_1.xls|}} contenant le modèle de facture.

===== Introduction à la programmation objet VBA=====

Dans Excel, la programmation VBA permet de **piloter** d'autres applications Microsoft et échanger des données.


===== Travail à faire =====

==== Lancer Word depuis Excel ====

Dans le classeur Excel **td_excel_1.xls** et écrivez la procédure **LancerWord()** dans le module **DCG**. Puis ajoutez un bouton permettant de lancer cette procédure.

Code VBA à utiliser : 
<code vb>
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
</code>

Exécutez la procédure **LancerWord()** à partir de votre bouton et vous verrez que Word se lance mais sans aucun document.

==== Créer un document Word ====
Complétez votre procédure **LancerWord()** pour créer un document Word avec les informations suivantes : 
  * mettre un titre **Confirmation Achat**
  * Titre : centré
  * Style de police : gras
  * Taille de police : 20


Code VBA à utiliser : 
<code vb>
Set docWord = WordApp.Documents.Add 
With docWord.Sections(1).Range 
    .Text = "Confirmation Achat" & Chr(10) 
    .Font.Bold = True 
    .Font.Size = 20 
    .ParagraphFormat.Alignment = wdAlignParagraphCenter 
End With 
</code>

<WRAP center round info>

Le caractère **&** permet de faire des concaténations de chaînes de caractères.

L'instruction **Chr(10)** permet de gérer un saut de ligne. Il est possible d'utiliser des constantes VBA ce qui est plus facile à utiliser. [[http://www.commentcamarche.net/contents/1165-vbscript-les-constantes[Les constantes VB]]

La notation **With ... End With** permet de simplifier l'écriture des commandes qui concernent le même objet. Sinon il aurait fallu écrire :
<code vb>
Set docWord = WordApp.Documents.Add 
docWord.Sections(1).Range.Text = "Confirmation Achat" & Chr(10) 
docWord.Sections(1).Range.Font.Bold = True 
docWord.Sections(1).Range.Font.Size = 20 
docWord.Sections(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter 
 
</code>

</WRAP>

==== Enregistrer le document Word ====
Complétez votre procédure **LancerWord()** pour enregistrer votre document Word nouvellement créé :

Code VBA à utiliser : 
<code vb>
Dim strchemin As String
strchemin = ThisWorkbook.Path & "\"
With docWord 
    .SaveAs (strchemin & "ConfirmationFacture.docx") 
    .Close savechanges:=wdDoNotSaveChanges 
End With
</code>

==== Fermer le document Word ====
Pour fermer le document Word il suffit de quitter le logiciel et de détruire les variables objets qui ont été créées :

Code VBA à utiliser : 
<code vb>
WordApp.Quit 
Set docWord = Nothing 
Set WordApp= Nothing 
MsgBox strchemin & "ConfirmationFacture.docx" 
</code>
==== Retour au menu de Excel & VBA  ====
<WRAP center round info >
[[dev:excelvba:accueil|Excel et VBA (Visual Basic pour Application)]]
</WRAP>