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 : 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
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
Partager