sarah.geek
XLDnaute Nouveau
Bonjour,
Mon but est de remplir des signets d'un document Word avec une macro Excel, j'ai trouvé énormément d'exemples mais pas celui que je veux puisque 'au lieu d'un chemin fichier bien définit je veux qu'une boite de dialogue s'ouvre et que je modifie ce fichier et ensuite l’enregistrer via une variable définit
Mon but est de remplir des signets d'un document Word avec une macro Excel, j'ai trouvé énormément d'exemples mais pas celui que je veux puisque 'au lieu d'un chemin fichier bien définit je veux qu'une boite de dialogue s'ouvre et que je modifie ce fichier et ensuite l’enregistrer via une variable définit
Code:
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("monDocument.doc") 'ouvre le document Word
WordApp.Visible = False 'Word est masqué pendant l'opération
For i = 1 To 3
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
Next i
WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'Pour imprimer le doc obtenu
'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word