Discussion :

[Dreamer84]

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

[Dreamer84]

Bonsoir,

J'ai fini par trouver la solution de mon problème et ça donne ceci :

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
25
26
27
28
29
30
31
Sub MaMacro ()
 
 
    Dim MonDossier As String
    Dim MonFichier As String
    Dim MonChemin As String
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
 
 
    MonDossier = "MonDossierDeTravail"
    MonFichier = "MonFichierDeTravail"
    MonChemin = MonDossier & MonFichier
 
    Set wordApp = New Word.Application
    wordApp.Visible = True
 
    Set wordDoc = wordApp.Documents.Open(MonChemin)
    DoEvents
    Valeur = "Demarrage"
    wordApp.Run Valeur
 
    DoEvents
    wordDoc.Close False
    DoEvents
    wordApp.Quit
 
    Set WordDoc = Nothing
    Set wordApp = Nothing
 
End Sub

Je vais pouvoir continuer mes explorations