[VBA] exécuter macro Word à partir d'excel

Version imprimable

Bonjour,

J'ai une erreur lorsque j'essaye d'exécuter cette macro Word à partir d'Excel.
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Sub Copie() Dim WordDoc As Word.Document Range("A1:N89").Select Selection.Copy Set WordDoc = GetObject("F:\Fiches.doc") WordDoc.Run "CopieSpeciale" End Sub
Est ce que quelqu'un aurait une petite idée
Merci

bonjour

Ton document Word est deja ouvert?
Quel est le message d'erreur, sur quelle ligne?

Un exemple qui ouvre un document Word depuis Excel et déclenche une macro

Code:

1
2
3
4
5
6
7
8
9
Sub lancerMacroWord()
    Dim wordApp As Word.Application
 
    Set wordApp = CreateObject("Word.Application")
 
    wordApp.Visible = True
    wordApp.Documents.Open ("C:\monDocument.doc")
    wordApp.Run "NomModule.NomMacro"
End Sub

Un autre exemple si le document Word est deja ouvert:

Code:

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    Dim wordApp As Object
 
    Set wordApp = GetObject(, "Word.Application")
    wordApp.Run "'NomDocument.doc'!NomModule.NomProcedure"
End Sub

michel

24/05/2007, 09h26
le_niak

Le document est deja ouvert,

L'erreur se produit sur cette ligne

WordDoc.Run "CopieSpeciale"

Edit : C'est bon, ta méthode fonctionne merci.