Bonjour

Je souhaiterais copier un tableau excel vers un signet dans un document word existant

Sub exportDonneesDansSignetsWord()
   
    Dim AppWord As Word.Application
    Dim WordDoc As Word.Document
    Dim i As Byte
 
    Set AppWord = CreateObject("word.application")                              'ouvre session word
    Set WordDoc = AppWord.Documents.Open("C:\Users\b_leb\OneDrive\Documents\PROJET DTO\Template\FSMT.docm")       'ouvre document Word 
    AppWord.Visible = False 'word masqué pendant l'operation
    For i = 1 To 2
        Range("B3:F9" & i).Copy
        'les signets du document Word sont nommés Tableau1, Tableau2
        WordDoc.Bookmarks("signet" & i).Range.Select
        AppWord.Selection.Paste
    Next i

    AppWord.Visible = True 'affiche le document Word
    WordDoc.Close True 'ferme le document word en sauvegardant les données
    AppWord.Quit 'ferme la session Word
End Sub

J'en suis la et ça ne fonctionne pas

quelqu'un pourrait-il m'aider SVP

Merci