Discussion :

[alex79]

Bonjour,

Je suis en train de développer un bout de code en Visual Basic 6.3 pour une feuille excel. Celle-ci permet via des boutons de lancer des .bat avec la commande Shell (ceci afin de pouvoir continuer l'execution du code vb).
Afin d'agrémenter ma feuille, je souhaiterai être averti automatiquement de la fin de l'execution de la commande Shell (par une combobox ou le changement de couleur d'une cellule de la feuille). Pour le moment je récupère le process id généré par la commande Shell puis je dois cliquer sur un bouton pour tester son existence.
Pouvez-vous me donner quelques pistes pour être notifié automatiquement dès que le process est terminé sans avoir à cliquer sur un bouton?
Merci de votre aide

[SilkyRoad]

bonsoir

j'espere que cet exemple pourra t'aider

La procedure ouvre la calculatrice et colorie la cellule A1, uniquement lorsque la calculatrice est refermée (testé avec Excel2002 & WinXP)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Declare Function WaitForSingleObject Lib "Kernel32" (ByVal hHandle As Long, _
    ByVal dwMilliseconds As Long) As Long
Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
 
 
Sub lancementProcedure()
    Dim RetVal As Long
    Dim hHandle As Long
    Dim dwProcessId As Long
 
    'Ouvre la calculatrice
    dwProcessId = Shell("C:\Windows\system32\calc.exe", vbNormalFocus)
    hHandle = OpenProcess(&H1F0000, 0, dwProcessId)
    RetVal = WaitForSingleObject(hHandle, &HFFFF)
 
    'Colorie la cellule en vert lorsque la calculatrice est refermée
    If RetVal = 0 Then Range("A1").Interior.ColorIndex = 4
 
End Sub

bonne soiree
michel

[alex79]

Merci Michel pour ta réponse,

j'ai avancé dans mon code,
mais le seul petit pb est la synchronisation synchrone à cause de la fonction :
(obligé d'attendre que la commande shell se termine pour continuer le code)

Code :

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

RetVal = WaitForSingleObject(hHandle, &HFFFF)

je voudrais pouvoir garder la main pendant l'execution de la commande shell, et n'être alerté qu'une fois que celle-ci est terminée. Peut-être faut il que je mette un timer qui vérifirait si 'hHandle' est toujours présent ? si non, la commande est terminée ?

Qu'en pensez vous ?

[SilkyRoad]

bonsoir Alex

malheureusement je n'ai pas de solution à te proposer...désolé


bonne soiree
michel