Bonjour,

Je cherchais en vain à importer les données d'Excel vers Word. J'ai toujours la même erreur : "Le composant activex ne peut pas créer un objet"

Voici mon code :

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
29
30
31
32
33
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("/Users/Juunii/Desktop/projet/salaire.doc", ReadOnly:=False)
 
     ' Copie les données Excel
 
     ThisWorkbook.Worksheets("tableau des salaires").Range("A1:G16").Copy
 
     ' Colle les données dans Word
 
     DocWord.Range.PasteSpecial
 
     Application.CutCopyMode = False
 
     DocWord.Application.ActiveDocument.Save
 
     AppWord.Application.Quit
 
End Sub
Set AppWord = New Word.Application : C'est là que ça "bogue". Merci de votre aide.

Juunii