Discussion :

[BDA53]

Bonjour amis développeur,

Une petite question sur la copie de données excel dans un document word.
Je souhaite réaliser un transfert de données d'un tableau excel vers un fichier word depuis un bouton lié à une macro dans le fichier excel.
voici la macro utilisée pour cette action :

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
18
19
20
21
22
23
24
25
26
27
28
Sub Offre()   
    Dim wApp As Object
    Dim wDoc As Object
 
    Set wApp = CreateObject("Word.Application")
    Set wDoc = CreateObject("Word.Document")
 
    Dim AppWord As Word.wApp
    Dim DocWord As Word.wDoc
 
    Set AppWord = New Word.wApp
 
    Application.DisplayAlerts = True
    AppWord.ShowMe
    AppWord.Visible = True
 
    chemin = Environ("USERPROFILE") & "\Mes documents\Offre2017"
    'Ouvre le document Word
    Set DocWord = AppWord.Documents.Open(chemin & "\Offre2017.docm", ReadOnly:=False)
 
    ' Copie les données Excel
    ThisWorkbook.Worksheets("Feuil1").Range("AE13:AG60").Copy
 
    ' Colle les données dans Word
    DocWord.Range(Start:=0, End:=2).PasteSpecial
    Application.CutCopyMode = False
    DocWord.Application.ActiveDocument.Save
End Sub()

Lors du lancement de la macro, je me retrouve avec l'erreur suivante :
"erreur de compilation : Type défini par l'utilisateur non défini"
Elle intervient pour ces 2 lignes de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Dim AppWord As Word.wApp
    Dim DocWord As Word.wDoc

Est-ce qu'il s'agit d'un problème lié à la référence "Microsoft Word 16.0 Object Library" ?
Les références "Microsoft Word 16.0 Object Library" et "Microsoft Excel 16.0 Object Library" sont activés dans word et excel.
C'est la première fois que je me retrouve à utiliser vba entre excel et word, j'avoue que je suis un peu perdu sur la syntaxe qui fait le lien vers word.

Merci d'avance pour vos retours,
Cordialement,
BDA53

[Menhir]

On ne peut pas déclarer deux fois une même variable.

Remplace tes 20 premières lignes par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Offre()   
    Dim DocWord As Word.Document
    Dim Chemin As String
 
    chemin = Environ("USERPROFILE") & "\Mes documents\Offre2017"
    Set DocWord = GetObject(chemin & "\Offre2017.docm")
    DocuWord.Application.Visible = True

[BDA53]

Bonjour Menhir,

C'est tout bon ça fonctionne correctement merci beaucoup
Il y avait juste une coquille dans le code que tu m'as donné, je l'ai modifié et voici le code qui fonctionne :

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
18
Sub Offre()
    Dim DocWord As Word.Document
    Dim Chemin As String
 
    Chemin = Environ("USERPROFILE") & "\Mes documents\Offre2017"
 
    'Ouvre le document Word
    Set DocWord = GetObject(Chemin & "\Offre2017.docm")
    DocWord.Application.Visible = True
 
    'Copie les données Excel
    ThisWorkbook.Worksheets("Feuil1").Range("AE13:AG60").Copy
 
    ' Colle les données dans Word
    DocWord.Range(Start:=0, End:=2).PasteSpecial
    Application.CutCopyMode = False
    DocWord.Application.ActiveDocument.Save
End Sub()

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    DocWord.Application.ActiveDocument.Save

Plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    DocWord.Save