ouvrir Word et fermer Excel

[jicé]

Bonjour à tous,

je souhaite trouver une macro, ou savoir s'il est possible de trouver une macro, qui m'ouvre un fichier word. L'exécution de cette macro doit fermer le fichier excel. Cela tient-il du rêve ?

L'inverse est-il possible (une macro sous word qui ouvre Excel en fermant Word) ?

Merci pour l'attention et bonne soirée à vous

 

[Yeahou]

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+

 

[jicé]

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