Discussion :

[ouisansdoute]

Bonjour,

J'ai une macro qui au cours de son déroulement lance un shell. Celui-ci s'exécute plus ou moins rapidement (de quelques secondes à plusieurs minutes).
Mon problème est que la macro continue de s'exécuter sans attendre la fin de l'exécution du shell.

Comment interrompre son exécution jusqu'à l'exécution complète du shell ?

[faves]

Pour l'exécution, la fonction Shell() est nécessaire.

Pour l'attente, j'utiliserai les fonctions OpenProcess() et GetExitCodeProcess() de l'API Windows :

Code :

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

1
2
3
4
5
6
 
Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

Avec les constantes suivantes :

Code :

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

1
2
3
 
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const STILL_ACTIVE As Long = &H103

Voila l'utilisation :

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
 
Dim lIDApp As Long
Dim lPtrProcess As Long
Dim lExitCode As Long
Dim lResult As Long
 
  ' Exécution de l'application externe.
  lIDApp = Shell("c:\windows\system32\notepad.exe", 1)
 
  ' Récupère le Handle du processus de l'application externe.
  lPtrProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, lIDApp)
 
  ' Attend la fin de l'exécution du processus.
  Do
    lResult = GetExitCodeProcess(lPtrProcess , lExitCode)
    DoEvents
  Loop While lExitCode = STILL_ACTIVE

[ouisansdoute]

Merci pour ta réponse faves,

Je vais essayer cette piste. Cependant, peux-tu m'expliquer la syntaxe

Code :

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

1
2
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const STILL_ACTIVE As Long = &H103

[faves]

c'est tout simplement des valeurs données en Hexadécimale.
&HXXX avec XXX code Hexa
Donc &H400(base 16) = 1024(base 10)

[ucfoutu]

Bonjour,

(j'aime bien ...)

Ce sont la les valeurs définiées par Windows pour correspondre à des états...

C'est Windows qui a défini ces/ses valeurs ....
On ne fait ici que s'y référer pour vérifier un état. On aurait pu donner n'importe quel autre nom à ces constantes, voire ne pas utiliser les constantes et utiliser directement leur valeur ===>> même résultat ... bien évidemment

[faves]

C'est tout à fait cela..
J'ai effectivement oublié d'expliquer l'utilité des constantes.

Merci ucfoutu et bonjour (au passage).