Bonjour Forum,
J'aimerais lancer un fichier .bat dans mon application VB. Or si on ne le précise pas, l'appication VB n'attend pas la fin de l'exécution du fichier VB pour passer aux instructions suivantes.
J'ai donc fait une recherhce sur internet et on m'a proposé cette solution :
Sub Lancement_Bat(f As String)
Dim chemin As String
ChDir ('C:\\Mes Documents')
chemin = f
WaitForEnd chemin
End Sub
Function WaitForEnd(fichier) As Long
Dim wsh As Object
Set wsh = CreateObject('WScript.Shell')
WaitForEnd = wsh.Run(fichier, 1, True)
End Function
Je ne comprends pas la fonction WaitForEnd. Je ne connais pas vraiment le VB et donc j'ai du mal à déchiffrer certaines instructions. Merci d'avance de prendre le temps de m'éclairer un peu plus...
Bonne fin de journée,
Johanna
J'aimerais lancer un fichier .bat dans mon application VB. Or si on ne le précise pas, l'appication VB n'attend pas la fin de l'exécution du fichier VB pour passer aux instructions suivantes.
J'ai donc fait une recherhce sur internet et on m'a proposé cette solution :
Sub Lancement_Bat(f As String)
Dim chemin As String
ChDir ('C:\\Mes Documents')
chemin = f
WaitForEnd chemin
End Sub
Function WaitForEnd(fichier) As Long
Dim wsh As Object
Set wsh = CreateObject('WScript.Shell')
WaitForEnd = wsh.Run(fichier, 1, True)
End Function
Je ne comprends pas la fonction WaitForEnd. Je ne connais pas vraiment le VB et donc j'ai du mal à déchiffrer certaines instructions. Merci d'avance de prendre le temps de m'éclairer un peu plus...
Bonne fin de journée,
Johanna