Discussion :

[abertaud]

Bonjour,

J'ai une application composée de trois modules exécutables (fichiers vbs)

J'aimerais pouvoir, à la fin de l'exécution du premier, lancer le second automatiquement. C'est-à-dire que dans l'idéal, la derniere ligne VBS de mon premier module serait une instruction permmettant d'exécuter un fichier vbs.

Un truc qui ressemblerait à :
LancerScript ("/chemin/module2.vbs")

J'ai pu trouver la fonction Run, comme suit :

Code :

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

1
2
Set objWshShell = CreateObject("Wscript.Shell")
objWshShell.Run (fichierAExecuter)

Le problème que j'ai est le suivant. fichierAExecuter est un chemin complet vers un fichier vbs. Or, dans ce chemin, il y a parfois des espaces.
Lorsqu'il n'y en a pas, tout marche. Mais dès qu'il y en a, tout foire....

Je ne peux malheureusement absolument pas supprimer ces espaces dans l'arborescence déjà en place

[pc75]

Bonjour,

Juste une idée (pas testé)

Code :

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

1
2
 
objWshShell.Run (chr(34) & fichierAExecuter & chr(34))

[abertaud]

Effectivement, en plaçant des guillemets des deux côtés du chemin d'accès, ça fonctionne parfaitement. Merci

[abertaud]

Je retire le Tag résolu, car j'ai l'impression que, lorsque la méthode

Code :

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

Run(ApplicationB)

est appelée, le code continue à s'exécuter sans attendre la fin du traitement complet de ApplicationB

Comment procéder pour que l'appel de Run soit bloquante. Existe-t-il plutot une autre méthode qui permet d'exécuter une application, et qui attend qu'elle se termine avant de continuer sa propre exécution ?

En espérant que j'ai été clair...

[dadavyvy]

Et avec ?

Code :

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

1
2
Set objWshShell = CreateObject("Wscript.Shell")
objWshShell.Run chr(34) & fichierAExecuter & chr(34), 0, True

Je te renvoie à la description de la méthode Run : site msdn

[SfJ5Rpw8]

Comment exécuter un programme externe ?

[abertaud]

C'est exactement ce qu'il me faut.

Merci à tous les deux