Discussion :

[arnaud47000]

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

[Marc-L]

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

[PMO2017]

Bonjour,

Peut être comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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