Discussion :

[orsanofear]

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?

[fring]

Bonjour,

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

[kiki29]

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 :

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
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.

[orsanofear]

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