Coier tableau sur Word via VBA d'Excel

Question

Bonjour, je cherche un code permettant de copier des données d'Excel sur Word via VBA.

Je voudrais que vous m'aidiez à obtenir ce que je voulais.

Voici mon code :

Sub EnvoyerDonneesExcelVersWord()

     Dim DocWord As Word.Document
    Dim AppWord As Word.Application
     Set AppWord = New Word.Application

     Application.DisplayAlerts = True
     AppWord.ShowMe
     AppWord.Visible = True

     'crée un document Word

     Set DocWord = AppWord.Documents.Add

     ' Copie les données Excel

     ThisWorkbook.Worksheets("Feuil1").Range("A1:B6").Copy

     ' Colle les données dans Word

     DocWord.Range.PasteSpecial

     Application.CutCopyMode = False

     DocWord.Application.ActiveDocument.Save
     'DocWord.SaveAs "monDocument.doc"

     AppWord.Application.Quit

End Sub

Le débogage indique toujours "AppWord.ShowMe", "Microsoft Word 14.0 Library Object étant coché.

J'ai même essayé de fermer Word et de redémarrer Excel. Rien n'a fonctionné. Des idées ?

Merci

cousinhub · Answer

Chez moi, ce code fonctionne.... Dans les références, n'as-tu pas un "MANQUANT"? Peux-tu joindre une image des références validées...