Continuer le programme uniquement a la fin de l'execution d'un shellRésolu

Question

Rebonjour ami(e)s programmeurs et programmeuzes,

j'utilise des commandes DOS dans mon projet VBA et à chaque fois, pour laisser le temps au shell d'executer ce que je lui demande je met une temporisation de quelques secondes (qui varie de pas tres longtemps pour un tit telechargement a presque 30 secondes pour un netsh)

Or l'execution du shell est variable d'un ordinateur a l'autre, selon qu'il est deja ete lancé une fois ...

Donc j'aurais voulu savoir si il y avait un moyen de continuer l'execution du programme uniquement lorsque le shell a fini de travailler?? ou alors peut etre est ce plus simple de vérifier si une fenètre est ouvert ou non mais la non plus je ne sais pas comment faire.

PS : call shell(command\c), rapport a vérifier si une fenetre est ouverte ou pas.

BruNews · Accepted Answer

http://www.vbfrance.com/codes/SHELLANDWAIT-EXECUTER-APPLICATION-ATTENDRE-FIN-RENVOYER-SON-CODE_34867.aspx



ciao...
BruNews, MVP VC++

bigfish_le vrai · Answer

Salut,

une autre solution :

Sub test()
    Dim CMDAppli As Double , TestFichier As String
    'on cree un fichier bidonqui ne sert qu'a verifié l'etat d'execution de la commande ping
    CMDAppli = Shell("cmd.exe /c echo > c:	emp\bidon.txt", 0)
    Do While TestFichier = "" 'on boucle tant que le fichier bidon n'est pas créé
        TestFichier = Dir("c:	emp\bidon.txt")
         DoEvents
    Loop
    'on lance une commande ping, puis on ecrit le resultat dans un fichier ResultatPing.txt et on efface le fichier bidon
    'start /min /wait lance la commande ping dans une deuxieme cmd qui attendra que la commande ping soit terminé avant
    'd'autoriser l'execution de la commande del. cette partie n'est pas obligatoire
    'les 2 && permetent d'executer une 2ieme commande ecrite sur la meme ligne que la premiere
    CMDAppli = Shell("cmd.exe /c start /min /wait ping www.vbfrance.com > c:	emp\ResutatPing.txt&&del c:	emp\bidon.txt", 0)
    Do While TestFichier <> ""  le fichier bidon ne sera effacé qu'une fois la commande ping terminé donc on boucle tant que le fichier existe
        TestFichier = Dir("c:	emp\bidon.txt")
         DoEvents
    Loop
    MsgBox "fin d'execution"
End Sub

Vala

A+

BruNews · Answer

Il y a DoEvents() en VBA ?

ciao...
BruNews, MVP VC++

bigfish_le vrai · Answer

oui ! copie de l'aide VBA Excel 2003 :

[javascript:hhobj_4.Click() Integer] representing the number of open 
forms in stand-alone versions of Visual Basic, such as Visual Basic, 
Professional Edition. DoEvents returns zero in all other 
applications.

DoEvents passes control to the operating system. Control is 
returned after the operating system has finished processing the events in its 
queue and all keys in the SendKeys queue have been sent.

DoEvents is most useful for simple things like allowing a user 
to cancel a process after it has started, for example a search for a file. For 
long-running processes, yielding the processor is better accomplished by using a 
Timer or delegating the task to an ActiveX EXE component.. In the latter case, 
the task can continue completely independent of your application, and the 
operating system takes case of multitasking and time slicing.

Caution   Any time you temporarily yield the processor within 
an event procedure, make sure the [javascript:hhobj_5.Click() procedure] is not executed again from a 
different part of your code before the first call returns; this could cause 
unpredictable results. In addition, do not use DoEvents if other 
applications could possibly interact with your procedure in unforeseen ways 
during the time you have yielded control.

A+

BruNews · Answer

ok ok OUI suffisait.

ciao...
BruNews, MVP VC++

Renfield · Answer

jolie boucle ^^

cs_faucheuse · Answer

ok merci beaucoup minna, je vais voir ce que je peux faire avec ca, d'abord faut que je comprenne comment ca marche et c'est pas gagné XD.

oommeeggaa3d · Answer

J'ai déja utilisé l'idée du fichier, ça marche bien.
Par contre j'y avais ajouté un timer ou un sleep( ) pour éviter de scanner en permanence l'existence du fichier, mais seulement toutes les secondes ou plus.

cs_faucheuse · Answer

Euh...scusez moi, quelqu'un pourrait m'expliquer un peu le code de Renfield svp, par exemple le "lpverb" , les mask utilisés (je comprend pas trop pourquoi ils sont la), les 4 "public declare function", se sont mes principales questions (oui je sais que ca fait la moitié du code, mais faut bien XD)

Merci d'avance

Renfield · Answer

ravi de voir que tu te dirige vers cette solution plus fiable (je dis pas caparce que j'ai posté cetet fonction)

les Declare permettent de donner accès à certaines fonctions (APIs) de Windows.
Entre autre ici, lancer un processus, attendre sa fin, libérer son handle (qui permet de le manipuler) ...

concernant les question spécifiques que tu as concernant lpVerb, faudrait potasser la doc MSDN:

http://msdn2.microsoft.com/en-us/library/bb762154.aspx

et

http://msdn2.microsoft.com/en-us/library/bb759784(VS.85).aspx

...

cs_faucheuse · Answer

d'ailleurs quand j'essaye de l'integrer le compilateur me dit "il ne peut y avoir que des commentaires apres un End Function, End Sub...

cs_faucheuse · Answer

ok merci, je m'en va potasser donc ^^

Dsl pour le post j'avais pas vu que tu avais repondu.

Encore merci

Renfield · Answer

tu dois copier les declare et const tout en haut, dans la partie 'declaration' de ton module.

cs_faucheuse · Answer

Scuzez moi j'ai enore un tit probleme : 

Lorsque je lance ma macro j'ai un message d'erreur : "Des constantes, chaines de longueur fixes, tableaux, typês définis par l'utilisateur et instructionsDeclare ne sont pas autorisés comm membres Public de modules objet".
Lorsque ce message s'affiche le compilateur surligne les constantes.

J'ai donc enlevé leur declaration en tant que constante, et les ai mise en declaration par défaut et est déclaré leur valeur dans la Sub.

Mais dans la fonction ExecCmd on a besoin de constante.

Qu'est ce que je dois faire?

Renfield · Answer

mets les Declare et Const en Private

cs_faucheuse · Answer

Lol c'est justement ce que je viens de penser a faire et ca fonctionne (faut aussi mettre la fonction en Private sinon il met : "Erreur interne") c'est normal que ca fasse ca??

Renfield · Answer

"normal" ... euh normallement non.... 
a voir, ce que tu as dans ton module...

m'enfin, si tu es parvenu a faire tourner la chose.

cs_faucheuse · Answer

En tout cas merci beaucoup, ca me fait gagner une 20aine de secondes!

Continuer le programme uniquement a la fin de l'execution d'un shell

18 réponses

Votre réponse

Discussions similaires