Const FichierLog As String = 'C:\\Temp\\Test.log'
Dim Resultat As String
Shell 'C:\\Temp\\MonFichier.bat'
Do Until Dir(FichierLog) <> '': Loop
Open FichierLog For Input As #1
Input #1, Resultat
Close #1
Kill FichierLog
MsgBox 'Valeur renvoyée : ' & Resultat