Problème de copier/coller Excel vers Word

Version imprimable

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:

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?

13/10/2012, 19h51
fring

Bonjour,

Tu dois cocher la référence Microsoft Word Object xx Library
Dans l'éditeur VBA, menu Outils --> Références

Salut, oubli d'une réference à cocher : Microsoft Word xx.x Object Library
Sinon developper en Early Binding et déployer en Late Binding ( voir ici )
c'est à dire qqch comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub EnvoyerDonneesExcelVersWord()
Dim DocWord As Object 
Dim AppWord As Object 
    Set AppWord = CreateObject("Word.Application")
    Set DocWord = AppWord.Documents.Open(ThisWorkbook.Path & "\Fichier.doc", ReadOnly:=False)
     ThisWorkbook.Worksheets("Feuil1").Range("A1:G43").Copy
     DocWord.Range.PasteSpecial
    Application.CutCopyMode = False
    DocWord.Application.ActiveDocument.Save
    AppWord.Application.Quit
 
    Set DocWord = Nothing
    Set AppWord = Nothing
End Sub

PS : Oops pas vu ta réponse, salut Fred.

13/10/2012, 20h01
orsanofear

Oh mon Dieu le mongol..Merci à vous de m'avoir ouvert les yeux ! Vous êtes au top les gars.