Liaison Excel vers deux documents word

Nécessite d'activer la référence "Microsoft Word xx.x Object Library" : 
L'exemple ci-dessous permet d'exporter les valeurs des cellules A1 à A3 vers des signets d'un document Word nommé "monfichier.doc"
Les signets positionnés aux endroits de votre choix doivent être nommés "Signet1 , Signet2 et Signet3 


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

Sub Signet()

Dim oWord As Object, oDoc As Object
    Set oWord = CreateObject("Word.Application")
    Set oDoc = oWord.Documents.Open("D:\Utilisateurs\S821976\Desktop\Nouveau dossier\Doc1.docx")
    oWord.Visible = True

    oDoc.Close True 'ferme le document word en sauvegardant les données
    Range("A1:G8").Copy
    oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Signet1"
    oWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
    Application.CutCopyMode = False
    Range("A13:D31").Copy
    oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Signet2"
    oWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
    Application.CutCopyMode = False
    
    oDoc.Close True 'ferme le document word en sauvegardant les données

    Set oDoc = oWord.Documents.Open("D:\Utilisateurs\S821976\Desktop\Nouveau dossier\Doc2.docx")
    Range("A1:G8").Copy
    oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Signet1"
    oWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
    Application.CutCopyMode = False
    Range("A13:D31").Copy
    oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Signet2"
    oWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
    Application.CutCopyMode = False
    oDoc.Close True 'ferme le document word en sauvegardant les données
    oWord.Quit 'ferme la session Word

 End Sub