Alors voilà...
Dans WORD
Dans EXCEL
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub Coucou(LeTruc) MsgBox LeTruc End Sub
Important
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 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
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
Partager