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 :
Set AppWord = New Word.Application : C'est là que ça "bogue". Merci de votre aide.
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
Juunii
Partager