Demande d'explications sur une fonction

[Joh]

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

 

[G.David]

Je ne vais pas pouvoir te dire grand chose apparament c'est une fonction creer par un utilisateur
WAit For ENd attendre la fin (si mes souvenir d'anglais sont encore correct)
Function WaitForEnd(fichier) As Long la fonction doit avoir un renseignement (fichier)

Dim wsh As Object 'definition de wsh
Set wsh = CreateObject('WScript.Shell') creation de la variable
WaitForEnd = wsh.Run(fichier, 1, True) valeur prise par la fonction
End Function

lceci est repassé à la procédure sub pour la valeur de waitforend

par contre pour etre sur du fonctionnement il faudra avoir recours a quelquun de plus doue que moi
Cordialement
G.David