Attendre fin execution d'un programme DOS

Question

Bonjour,

Je voudrais savoir comment ma macro peut d&#233;tecter la fin d'&#233;x&#233;cution d'un programme externe .exe?
je lance cet .exe depuis ma macro par la commande shell, il g&#233;n&#233;re un fichier r&#233;sultat, et la macro doit attendre ce fichier avant de poursuivre son &#233;x&#233;cution. Cet exe est une fen&#234;tre DOS.
je me d&#233;brouille en faisant un sleep de la macro pendant un certain nombre de seconde mais c'est pas tr&#232;s propre...
j'ai pens&#233; d&#233;tecter le nom de la command prompt et voir quand celle ci disparait des fen&#234;tres active mais je sais pas comment faire?

Merci de votre aide!!!

Renfield · Answer

quel environnement utilises tu ?

VB6
VBA
VbScript

lamquin · Answer

c'est du visual basic pour excel....
t'as une id&#233;e?
j'ai fais un tour sur le forum et on parle de shellexecuteex ou waitforsingleobject mais je suis perdu!! aide moi stp!!

Julien237 · Answer

La fonction shell renvoie le task id du prog que tu lances, personellement j'ai jamais utilisé, (je pense que c'est pas la handle) mais tu devrais pouvoir trouver une fonction utilisant ce paramètre, et lorsque la fonction te renvoie 0 ou une erreur, c'est que le prog est terminé... Cherche du coté de ce task id...

dim h as double
h=shell(...)
while LaFonctionATrouver(h)<>0
   doevents
wend

Renfield · Answer

en gros, c'est effectivement cela...

http://www.vbfrance.com/code.aspx?ID=34867



Il te suffit d'ajouter le module dans ta feuille Excel, et d'appeler la fonction ExecCmd

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

lamquin · Answer

OK les gars!! je suis pas une star de vb alors allez y doucement svp:Mon prog est dans D:\TBRG\TBRG.exe.


Reynald, dans le lien que tu as envoy&#233;s, o&#249; dois je int&#233;grer le chemin de mon application? dans quelle ligne du code?


Merci de votre soutien!

Renfield · Answer

euh....
tu as juste a ajouter le module dans ton classeur...

(dans l'editeur VBA : Alt + F11)

ensuite, tu fait appel à :

    ExecCmd "D:\TBRG\TBRG.exe"

dans ton code, en lieu et place du Shell "D:\TBRG\TBRG.exe"

lamquin · Answer

ok je viens de faire ce que tu m'as dis mais il me met un message d'erreur comme quoi "le type d&#233;fini par l'utilisateur est non d&#233;fini ". il met l'erreu sur les 3 premiere lignes (dim Proc as Process_information,etc...) o&#249; je d&#233;clare les variables?

Renfield · Answer

télécharge le Zip, les declarations d'API ne sont pas dans l'apercu du code

process_information est un type, déclaré dans le module, dans le Zip

lamquin · Answer

j'ai copi&#233; les lignes de code de modApi.bas dans un nouveau module module, j'ai bien remplac&#233; Shell "D:\TBRG\TBRG.exe par ExecCmd "D:\TBRG\TBRG de la macro, et j'obtient le message "objet requis" sur la ligne if createprocessA de la fonction ExecCmd?

D&#233;sol&#233; de rien comprendre...
merci de ta patience...

Renfield · Answer

&#224; cause du App.Path, que j'ai laiss&#233;, dsl ^^



enl&#232;ve le, et met ""

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

lamquin · Answer

OK ya plus d'erreu mais l'&#233;x&#233;cutable ne se lance pas, j'ai essay&#233; de faire un pas &#224; pas et il ne rentre pas dans la boucle if createprocess, il passe directement &#224; else?
le ExecCmd devrait lancer le prog non?

Renfield · Answer

si l'executable est bien où indiqué, oui

lamquin · Answer

comment t'explique qu'il ne rentre pas dans la boucle?
tu peux tester?

Renfield · Answer

Ca fonctionne chez moi, sous Excel...
seule explication, ton exe n'est pas au bon endroit...

ca fonctionne, si tu execute "Calc.exe" ??

lamquin · Answer

Non même avec "Calc.exe" rien ne se passe?
ça ne m'ouvre même pas la calculatrice?

Attendre fin execution d'un programme DOS

15 réponses

sur les mêmes thèmes