Macro Word avec paramètre lancée depuis Excel
Bonjour,
En faisant quelques recherches je suis arrivé sur ce post et cela m’intéresse
beaucoup.
J'ai deux macros dans Word , Poste1 et Poste2 il faut que j'arrive à lancer l'une ou l'autre depuis Excel en fonction d'une ListBox.
Malheureusement je coince sur la ligne 16 et ça ne veut pas aller plus loin.
Que faut il que je mette pour lancer ma macro Word qui se nomme Poste1 ou Poste2 selon les cas de figure ?
Voici ce que j'utilise comme code actuellement :
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
| Sub ExecuterMacroDansWord()
Dim Chemin As String
Dim nomFich As String
Dim wdApp As Word.Application
Dim WdDoc As Document
Dim Valeur As String
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
Chemin = "C:\MonDossierdeTravail\"
nomFich = "MonFichier.doc"
Set wdApp = CreateObject("word.application")
Set WdDoc = AppWord.Documents.Open(Chemin & nomFich, ReadOnly:=True)
Valeur = "Poste1"
WdDoc. ' que dois-je mettre ici pour que ça lance ma macro ?
DoEvents
WdDoc.Close False
DoEvents
wdApp.Quit
Set WdDoc = Nothing
Set wdApp = Nothing
End Sub |