Lancer une macro word depuis excel

Bonsoir, j'ai une macro que je lance depuis excel pour m'ouvrir un fichier word et me lancer une macro mais le probleme c'est que word ne reste pas ouvert...
Si vous avez une meilleure macro je suis preneur.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim wrdApp As Object Set wrdApp = CreateObject("word.Application") MonFichier = "C:Notes.doc" wrdApp.documents.Open (MonFichier) wrdApp.Run "Ajout" wrdApp.Quit Set wrdApp = Nothing   End Sub

---

Normalement pour ouvrir un fichier word depuis excel j'utilise plutot cette macro :

Code:

---

1 2 3 4 5 6

Sub OuvrirWord() Dim RetVal RetVal = Shell("C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE C:\Users\BE1.CMAS\Documents\1\NoticeMini.docm", 1)     End Sub

---

Cordialement

Bonjour, bonjour !

Copier / Coller n'est pas coder ‼

Et en retirant la ligne fermant Word, cela devait aller mieux, n'est-il pas ?‼


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Bonjour,

Peut être comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim wrdApp As Object Set wrdApp = CreateObject("word.Application")   MonFichier = "C:\Notes.doc" 'il faut un \ wrdApp.documents.Open (MonFichier)   'wrdApp.Visible = True 'éventuellement pour visualiser Word   wrdApp.Run "Ajout" wrdApp.Quit Set wrdApp = Nothing End Sub

---