Discussion :

[Raphs]

Bonjour, je lance un shell sur un fichier BAT, et j'aimerais savoir quand cette commande se termine pour passer à la suite de mon programme.

Code :

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

Shell CurDir & "\tuile.bat"

MErci de vos réponses

Raphael

[avigeilpro]

Juste une question :
Ce processus ouvre-t-il une fenêtre ayant un nom constant ?
Si oui, va sur mon site, tu y trouvera un module nommé APIWindow qui contient des fonctions de traitement sur les fenêtres. Il y en à une (désolé je ne me souviens plus de son nom) qui permet de savoir si une fenêtre dont on connait ce qu'il y à d'écrit dans la bar de titre existe ou non. Ainsi tu pourrais savoir si la fenêtre de ton processus et fermée ou non. A condition bien sur que la fenêtre se ferme à la fin.
En espérant t'avoir aidé.

[ProgElecT]

Cala pourrait resembler 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Form_Load()
Me.Caption = "lancement du prog avec Shell"
Me.Visible = True
Dim MeShell
On Error Resume Next
MeShell = Shell("C:\WINNT\NOTEPAD.EXE", vbNormalFocus)
If MeShell = 0 Or Err.Number <> 0 Then
 MsgBox "lancement echoué", vbCritical: Exit Sub
End If
'boucle d'attente du chargement du prog lancé avec Shell
Do
 On Error Resume Next
 AppActivate MeShell
 If Err.Number = 0 Then
  'le prog lancé par le Shell est maintenant chargé
  Exit Do
 End If
 On Error GoTo 0
 'le prog lancé par le Shell n'est pas encor chargé .... attendre
 DoEvents
Loop
 
 
'boucle d'attente de l'auto fermeture du prog lancé avec Shell
Do
 On Error Resume Next
 AppActivate MeShell
 If Err.Number <> 0 Then
  'la fenetre du prog lancé par le Shell n'existe plus
  'avec l'exemple fermer le notpad pour sortir de la boucle
  On Error GoTo 0
  Exit Do
 End If
 ' la fenêtre est en cours .... attendre
 DoEvents
Loop
 
 
Me.Caption = "prog términé"
End Sub

donc pas forcement obligatoire de connaitre le nom de la fenêtre
Bonne continuation

[Raphs]

Merci pour vos réponses.

La solution de ProgElecT fonctionne à merveille.
Je n'ai pas eu l'occasion de tester celle d'avigeilpro, mais je regarderai à l'occasion.

Merci et meilleures salutations

Raphael