Bonjour à tous,

Je sollicite vos lumières pour une macro excel qui me pose problème depuis quelques temps. Quand je clique sur le Bouton la macro ne se lance pas et montre le message suivant :

"Erreur de compilation - Type défini par l'utilisateur non defini" et surligne en jaune la ligne : Dim DocWord As Word.Document

Dans le meme dossier se trouvent mon fichier Excel 2010 "Formulaires" et un Word vide "Fichier"

J'aimerais copier le Range A1 à G43 de la feuil1 du Excel et le coller dans mon Word. Enregistrer et Fermer.

Voici mon code (la macro se lance en cliquant sur un Bouton de Commande qui est sur la feuil1)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
    'Ouvre le document Word
    Set DocWord = AppWord.Documents.Open(ThisWorkbook.Path & "\Fichier.doc", ReadOnly:=False)
    ' Copie les données Excel
    ThisWorkbook.Worksheets("Feuil1").Range("A1:G43").Copy
    ' Colle les données dans Word
    DocWord.Range.PasteSpecial
    Application.CutCopyMode = False
    DocWord.Application.ActiveDocument.Save
    AppWord.Application.Quit
End Sub
Si quelqu'un peut m'aider la dessus ca serait vraiment cool. Dois je mettre le fichier en ligne pour que vous pussiez y jeter un oeil?