Corrigé 16.2 Créer un document Word

Partie Déclarations :

Private strChemin As String 

Code pour le chemin :

Sub Chemin()  
  strchemin = ThisWorkbook.Path & "\Ressources\"  
End Sub 

Code pour créer un document Word :

Sub CréerDocWord()  
  Dim wd As Word.Application 
  Dim docWord As Word.Document 
  Call Chemin ...