ouvrir word d'excel

[stephane]

Bonjour à la fin d'une macro d'excel je voudrais ouvrir un fichier word et fermer mon fichier excel. J'ai utilisé cette macro ( recupérée ici ) mais elle me genere une erreur DDEtmp sur le nom du fichier word.

Merci de votre aide.

Sub ouv_word()

app$ = "C:\program files\microsoft OFFICE\office\WINWORD.EXE"
file$ = "C:\totol.doc"

Shell app$, 6
channelNumber = Application.DDEInitiate(app:="WinWord", topic:="System")
DDEExecute channelNumber, "[fileopen(" + Chr$(34) + file$ + Chr$(34) + ")]"
DDETerminate Channel:=channelNumber

Windows("ouvre_word.XLS").Activate
Application.Quit

End Sub

 

[@+Thierry]

Salut Stephane

Ouh La la, on dirait que tu as récupéré un code que j'avais écrit pour une appli qui ne fait pas partie de la "famille" Microsoft !! lol et en plus il fallait créer des liens DDE ....

Dans ce cas, assure toi que tu as bien la référence à la blibliothèque Word (VBE menu Outil => Référence / Cocher Microsoft Word 9.0 Object Library) ou 10 si tu es sous XP...

et ce code sera nettement plus simple qu'un Shell / DDE :

Sub OuvrirWorldFermerExcel()
Dim Wd As New Word.Application
Wd.Visible = True
Wd.documents.Open "C:\mes documents\test2.doc"
Excel.Application.Quit
End Sub

Bon fin de Journée
@+Thierry