Discussion :

[ranzoken]

Bonjour,

Ma requête est toute simple. J'ai une instruction batch lancé avec l'objet Shell, et j'aimerais que cette instruction bloque l’exécution de mon programme.

Code :

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

1
2
 
retShell = Shell("""" & WINSCPPathEXE & """ /console /script=""" & s_pathFic & """", vbMaximizedFocus)

J'ai vu sur la msdn des paramètres "wait et time out" mais malheureusement, ce n'est pas le bon objet.
sinon si il n'est pas possible de rendre cette instruction bloquante, pourrez vous me donner un exemple pour récupérer le status du processus.
puisque ma variable retShell contient mon PID

Merci pour vos réponses

[Minise]

tu peux essayer un truc comme ça :

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
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
Public Const INFINITE = &HFFFF
 
Function LanceEtAttendLaFin(ByVal code As String) As Long
    Dim ProcessHandle, ProcessId As Long
 
    ProcessId = Shell(code, vbNormalFocus)
    ProcessHandle = OpenProcess(&H1F0000, 0, ProcessId)
    LanceEtAttendLaFin = WaitForSingleObject(ProcessHandle, INFINITE)
 End Function
 
Sub testototototititi()
 
Dim code As String
 
code = """" & WINSCPPathEXE & """ /console /script=""" & s_pathFic & """"
LanceEtAttendLaFin (code)
 
End Sub

C'est pas de moi mais je m'en sers pour bloquer la macro le temps de l'extraction de fichier zip avec la commande shell

[ranzoken]

Parfait, merci Minise, pour t'as réponse rapide.
c'est exactement ce que je cherchais.

tester et fonctionnel >> Résolu