Discussion :

[le_niak]

Bonjour,

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

Code :

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

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

[SilkyRoad]

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 :

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

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 :

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

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

[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.