ouvrir Word et fermer Excel

Bonjour jicé, le forum

le code suivant fonctionnera sous word pour lancer excelmais également sous excel pour lancer word (avec un minimum d'adaptation quand même, par exemple ddeterminateall n'existe pas sous excel et il faudra faire un Application.DDETerminate Chan)
la macro lance excel avec un fichier donné, lance la macro précisée et quitte word

ReturnValue = Shell("Excel.exe " & Chr(34) & "monfichieravecchemin.xls" & Chr(34), 1)
AppActivate ReturnValue
Chan = DDEInitiate(App:="Excel", Topic:="System")
DDEExecute Channel:=Chan, Command:="[Run(" & Chr(34) & "monfichiersanschemin.xls!macroaexecuter" & Chr(34) & ")]"
DDETerminateAll
Application.Quit

en exemple, le code suivant lance un diaporama powerpoint (situé dans le même répertoire que le classeur actif) en mode diaporama
Shell "POWERPNT /S " & Chr(34) & ThisWorkbook.Path & "\Notice.pps" & Chr(34), vbMaximizedFocus

En espérant t'avoir aidé

Cordialement, A+

Un peu que ca m'aide !!

Je vais regarder ca de plus prêt, et à une bidouille prêt, ca va résoudre mon problème !

Merci à toi pour le moment consacré.

Bonne journée