Discussion :

[Juunii]

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

[gnain]

Bonjour,
Je cherchais en vain à importer les données d'Excel vers Word.

Ce serait supposé de fonctionné.

essaie de déclarer tes variables as Object
et il faut bien évidement la référence Microsoft Word

Code :

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

1
2
     Dim DocWord As Object 
     Dim AppWord As Object

[Juunii]

Merci.

En fait c'est à partir de là : http://ericrenaud.free.fr/droitedde.htm , mais ça ne fonctionne pas chez moi. J'ai vérifié les cases cochées dans Références et ça marche toujours pas.

Est-ce que je dois passer par Excel et que je ferme Word avant d'activer la macro ?

Merci beaucoup

[gnain]

Est-ce que je dois passer par Excel et que je ferme Word avant d'activer la macro ?

Quoi???
Ton code appelle Word ... C'est certain que ta macro doit être dans Excel et Word fermé.
la référence Microsoft Word doit être coché dans Excel.

[Juunii]

Un message d'erreur s'affiche : "Le composant ActiveX ne peut pas créer l'objet".

C'est peut-être Set AppWord = New Word.Application

Est-ce que tu as essayé toi-même ?

[Juunii]

[gnain]

Un message d'erreur s'affiche : "Le composant ActiveX ne peut pas créer l'objet".

C'est peut-être Set AppWord = New Word.Application

Est-ce que tu as essayé toi-même ?

bien sur, j'utilise toujours ce type de connexion quand j'échange des données excel vers word et vis versa

et toi as-tu essayé de déclaré tes variables as Object
comme je t'ai proposé au message 2

Code :

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

1
2
3
  Dim DocWord As Object 
     Dim AppWord As Object