Sub runBatch()
Shell "cmd.exe /k cd " & "C:\Temp\" & "&&test.bat"
End Sub
Shell "C:\Temp\Test.bat"
dir *.xls? >toto.txt
cls
exit
Sub TestOK()
CreateObject("wscript.shell").Run "cmd.exe /k cd " & "C:\Temp\" & "&&test.bat", 0, True
End Sub
Sub TestPASOK()
CreateObject("wscript.shell").Run "C:\temp\test.bat", 0, True
End Sub