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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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