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