Export d'un tableau Excel vers Word : Erreur 91

Bonsoir,

Cela fait plusieurs jours que j'essaie via VBA, d'exporter un tableau depuis Excel vers Word, à un endroit déterminé, ce qui nécessite d'utiliser des signets. Mon code fonctionne lorsque je copie le contenu d'une cellule. Cependant, lorsque je veux copier mon tableau, ce message apparaît "erreur d’exécution '91' : Variable objet ou Variable bloc With non définie".

Voici mon code :

Sub ExportExcelToWord()

Dim WordApp As Object

Dim WordDoc As Object

Dim Tableau As Range

Set WordApp = CreateObject("Word.Application")

WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open("C:\Users\Desktop\DocWord.docx", ReadOnly:=yes)

Tableau = Range("A1:E10")

WordDoc.Bookmarks("Signet1").Range = Tableau

End Sub

J'ai essaye plusieurs solutions que j'ai pu trouver sur des forums mais aucune n'a fonctionné.

Par avance merci pour votre aide.

JF

Slt,

essaie comme ca

Set Tableau = Range("A1:E10")

Hello m3ellem1,

Merci pour ton message.

J'y avais également pensé mais cette fois-ci ça me renvoie le message "Erreur 13: incompatibilité de type".

Tu as une autre proposition ?

JF

je peux voir les fichier excel et word?

Les voici.

La macro Excel se situe dans ThisWorkBook.

La visibilité des signets Word est activée.

Slt JF,

essaie comme ca

Sub ExportExcelToWord()

Dim WordApp As Object
Dim WordDoc As Object
Dim Tableau As Range

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("C:\Users\Desktop\DocWord.docx", ReadOnly:=yes)
    Set Tableau = Range("A1:E10")

    Tableau.Copy
    WordDoc.Bookmarks("Signet1").Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=True, RTF:=False

End Sub

Merci beaucoup, ça marche !

Belle journée en perspective.

Je vais me pencher sur le code pour bien le comprendre.