Discussion :

[gratesnif]

Bonjour,

J'ai créé un code qui crée un fichier '*.bat', lance ce fichier dans un shell, puis doit executer d'autres actions.

Cependant, pour pouvoir executer les autres actions, j'ai besoin que mon fichier .bat ait fini de tourner.

Code :

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

1
2
3
4
5
6
7
open Chemin & "commande.bat" for output as #1
print #1, left(Chemin,2)
print #1, "cd " & Chemin
print #1, "executable.exe"
close #1
shell Chemin & "commande.bat",1
'reste du code

connaissez vous une méthode afin que mon code se mette en attente tant que le .bat n'a pas fini de tourner.

Merci d'avance

[ucfoutu]

Bonjour,

Tu ne crois pas que pour lancer un exe avec Shell, il y a quand même plus adroit que de passer par un batch qui le lancerait ?

[gratesnif]

c'est pas un executable, j'ai mis ça pour illustrer mon code...

je ne peux pas utiliser autre chose qu'un shell...

[neupont]

Une possibilité serait qu'à la fin de ton batch tu écrives un indicateur dans un fichier tiers.

Code :

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

1
2
3
4
5
 
print #1, "cd " & Chemin
print #1, "executable.exe"
print #1, "@echo fini > fichier2.txt"
close #1

Ainsi le mot "fini" sera mis dans fichier2.txt seulement quand executable.exe sera terminé.

Ensuite, il faut lancer le batch et vérifier périodiquement dans une boucle si la chaîne "fini" a été mise dans le fichier2.txt
Dès que c'est le cas, le code sort de la boucle et se poursuit.
Evidemment il ne faut pas oublier de liquider fichier2.txt ensuite sinon la prochaine exécution de ce code croira que c'est fini alors que ça ne l'est pas...

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
 
'lancement du batch :
shell Chemin & "commande.bat",1
 
'pour attendre la fin du batch, on vérifie périodiquement la présence de "fini" dans le fichier créé pour ça
retVal = 0
Do While retVal = 0
    Start = Timer   ' Définit l'heure de début de la pause.
    Do While Timer < Start + 1 'une seconde de pause
        DoEvents 'libère le processeur
    Loop
    Open "fichier2.txt" For Input As #1
        Line Input #1, textLine
    Close #1
    If Trim(textLine) = "fini" Then retVal = 1
Loop
 
Kill "fichier2.txt"

Il y a peut-être une gestion d'erreur à faire ou un test d'existence de fichier2.txt dans la boucle puisqu'il ne sera créé qu'à la fin du batch (d'ailleurs tu peux aussi considérer que la simple existence de fichier2.txt signifie la fin du traitement).

Tout ça n'est pas très "élégant", mais ça peut dépanner dans certains cas.

Edit : je m'étais aussi trouvé dans l'obligation de procéder via un batch car je n'ai pas trouvé de commande VBA qui permette au code d'attendre la fin de l'exécution de l'exécutable lancé.
Mais si une telle commande existe (en étant fiable), signalez-le ça m'intéresse aussi...

[tomy7]

fais un test sur ton fichier .bat pour voir si il est fermer???

je le ferai comme ca...je ne l ai jamais fais mais je le ferai comme ca.

[gratesnif]

Bon, j'ai opté pour la solution de neupont

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
'## necessite la référence Microsoft Scripting Runtime
 
Sub test()
Dim oFSO As New Scripting.FileSystemObject
 
    'supprime le fichier si celui ci existe déja
    If oFSO.FileExists(ThisWorkbook.Path & "\fini.txt") Then
        oFSO.DeleteFile ThisWorkbook.Path & "\fini.txt"
    End If
 
    ' crée le fichier .bat
    Open ThisWorkbook.Path & "\test.bat" For Output As #1
    Print #1, Left([path], 2)
    Print #1, "cd " & [path]
    Print #1, "execute un truc long"
    Print #1, Left(ThisWorkbook.Path, 2)
    Print #1, "cd " & ThisWorkbook.Path
    Print #1, "ECHO fini >> fini.txt"
    Close #1
 
    Shell ThisWorkbook.Path & "\test.bat", vbMaximizedFocus
 
    While Not oFSO.FileExists(ThisWorkbook.Path & "\fini.txt")
        DoEvents
    Wend
    oFSO.DeleteFile ThisWorkbook.Path & "\fini.txt"
    oFSO.DeleteFile ThisWorkbook.Path & "\test.bat"
 
End Sub

je vois pas bien comment voir si le fichier est fermé...