D'Excel vers Word via VBA

Version imprimable

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:

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

23/05/2015, 16h08
gnain
Citation:

Envoyé par Juunii

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:

1 2 Dim DocWord As Object Dim AppWord As Object
23/05/2015, 16h33
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
23/05/2015, 16h46
gnain

Citation:

Envoyé par Juunii

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.
23/05/2015, 17h05
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 ?
23/05/2015, 17h08
Juunii

1 pièce(s) jointe(s)

Pièce jointe 178640
23/05/2015, 17h57
gnain
Citation:

Envoyé par 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 ?

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:

1 2 3 Dim DocWord As Object Dim AppWord As Object

essaie ceci

Code:

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
Dim AppWord As Word.Application
Dim DocWord As Word.Document
Set AppWord = CreateObject("Word.Application")
 
Set DocWord = AppWord.Documents.Add
 
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

23/05/2015, 18h21
Juunii

Ok, merci

Je le mets dans une module de Projet ? Ou dans Feuill ? Car ça marche pas... Je vais essayer avec un autre fichier Excel
23/05/2015, 18h28
Juunii

3 pièce(s) jointe(s)

Pièce jointe 178654 Pièce jointe 178652
23/05/2015, 19h12
gnain
Je remarque que tu n'a toujours pas essayé de mettre tes variables as Object
essaie ça avant d'aller plus loin
Code:

1 2 Dim DocWord As Object Dim AppWord As Object
si ça ne fonctionne toujours pas voir
https://support.microsoft.com/fr-fr/kb/244264/fr
23/05/2015, 23h17
clementmarcotte

Moi, j'ai ouvert mon aide et j'ai cherché showme et j'ai trouvé cela:

Citation:

Référence du développeur Word
Application.ShowMe, méthode
Affiche le Compagnon Office ou la fenêtre Aide lorsque des informations complémentaires sont disponibles.
Syntaxe

expression.ShowMe

expression Variable qui représente un objet Application.

Remarques

Dans le cas contraire, cette méthode génère un message indiquant qu'aucune rubrique d'aide n'est associée.

Exemple

Cet exemple montre comment exécuter une démonstration de l'Assistant Conseil, si elle est disponible.

Visual Basic pour Applications
Application.ShowMe

Or, cela fait une mèche que Microsoft a zappé le compagnon Office

Commence par condamner cette ligne:

Code:

AppWord.ShowMe

On ne le dira jamais assez souvent : Regarder dans l'aide cela ne donne pas la peste.

Dans VBA : un clic sur un mot-clef et un coup de doigt sur :f1:, cela fait des miracles.
24/05/2015, 10h40
Juunii
Citation:
Envoyé par gnain

Je remarque que tu n'a toujours pas essayé de mettre tes variables as Object
essaie ça avant d'aller plus loin

Code:

1 2 Dim DocWord As Object Dim AppWord As Object

si ça ne fonctionne toujours pas voir
https://support.microsoft.com/fr-fr/kb/244264/fr
J'ai essayé avec ce que tu as indiqué mais ça a pas marché non plus. Suis-je blond ? :(

Avec un code légèrement modifié :

Code:

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
 
 
Sub PilotageWord()
     Dim MonBeauWord As Object
     Set MonBeauWord = CreateObject("Word.Application")
     ' Création d'un nouveau document :
     Documents.Add
   ' Ecriture dans ce nouveau document :
    'Selection.TypeText "Test de fonctionnement"
     Dim AppWord As Word.Application
     Set AppWord = New Word.Application
     Application.DisplayAlerts = True
     AppWord.ShowMe
     AppWord.Visible = True
     ' Copie les données Excel
     ThisWorkbook.Worksheets("tableau des salaires").Range("A1:B6").Copy
     ' Colle les données dans Word
     MonBeauWord.Range.PasteSpecial
     Application.CutCopyMode = False
     'MonBeauWord .Application.ActiveDocument.Save
     'AppWord.Application.Quit
      ' Sauvegarde de ce document ainsi créé :
      ActiveDocument.SaveAs "Simple test.doc"
     ' Fermeture de ce document :
      ActiveDocument.Close
      Set MonBeauWord = Nothing
End Sub

24/05/2015, 17h15
kiki29

Salut, déjà ne mélange pas tout : Early ou Late Binding ensuite dans la FAQ
25/05/2015, 10h57
Juunii

Bonjour Kiki29. Merci mais désolé je ne vois pas en quoi ça apporte ??

Bonjour,

J'ai fait le ménage dans tes objets, je me suis assuré que Word créait vraiment un nouveau document et que toutes les opérations à faire dans Word étaient préfacées avec appword. Parce que, quand on pilote une autre application pas automation, il faut que VBA soit explicitement prévenu de tout ce qu'il doit faire dans l'autre application, sinon il essaie automatiquement de l'appliquer à l'application-hôte.

Tu dois ajouter la référence à Word dans VBA Excel.

Code:

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
Sub PilotageWord()
'ajouter la référence à
'Microsoft Word Object Library
'Ne pas se plaindre si cela n'a pas
'été fait
'En enlevant MonBeauWord et en gardant
'Seulement appword et en s'organisant pour
'que Word crée vraiment un nouveau
'document, et en préfaçant tous les objets Word
'avec appword,cela finit par marcher
   ' Ecriture dans ce nouveau document :
    'Selection.TypeText "Test de fonctionnement"
     Dim AppWord As Word.Application
     Set AppWord = New Word.Application
     Application.DisplayAlerts = True
     AppWord.ShowMe
     AppWord.Visible = True
     AppWord.Documents.Add
     ' Copie les données Excel
     ThisWorkbook.Worksheets("tableau des salaires").Range("A1:B6").Copy
     ' Colle les données dans Word
     AppWord.Selection.PasteSpecial
     Application.CutCopyMode = False
           ' Sauvegarde de ce document ainsi créé :
      AppWord.ActiveDocument.SaveAs "Simple test.doc"
     ' Fermeture de ce document :
      AppWord.ActiveDocument.Close
      AppWord.Quit
End Sub

25/05/2015, 20h47
clementmarcotte

Citation:

Envoyé par Juunii

Bonjour Kiki29. Merci mais désolé je ne vois pas en quoi ça apporte ??

Lis bien ma réponse avec le code modifé.

Early BInding = new Word.application
Late Binding = CreateObject("word.application")
Un seul object Word.application au lieu de deux...