Macro Word avec paramètre lancée depuis Excel

[ouskel'n'or]

Alors voilà...
Dans WORD

Code :

1
2
3
Sub Coucou(LeTruc)
MsgBox LeTruc
End Sub

Dans EXCEL

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ExecuterMacroDansWord()
Dim Chemin As String
Dim nomFich As String
Dim wdApp As Word.Application
Dim WdDoc As Document
Dim Valeur
    Chemin = "D:\Doc\"
    nomFich = "TestParam.doc"
    Set wdApp = CreateObject("word.application")
    Set WdDoc = wdApp.Documents.Open(Filename:=Chemin & nomFich)
    DoEvents
    Valeur = "Coucou"
    WdDoc.coucou (Valeur)
    DoEvents
    WdDoc.Close False
    DoEvents
    wdApp.Quit
 
    Set WdDoc = Nothing
    Set wdApp = Nothing
End Sub

Important
Pour que la macro "coucou" s'exécute, elle doit se trouver dans l'objet ThisDocument du document ouvert
Et vous remplacez ça qui faut là où y faut
A+

Un grand merci à Michel (allias SikyRoad) qui ne sait même pas que c'est lui qui a ouvert la voie de la solution dans Word

[fred65200]

Mercià toi et à Michel (allias SikyRoad) pour cette nouvelle voie à explorer.

Cordialement