Exécution d'un batch interne
Bonjour,
J'ai un problème d'exécution de mon batch que je créé, rempli et exécute directement dans ma macro.
La création et le remplissage se passent bien mais le programme n'arrive pas à exécuter la macro, il ne se passe rien...
Ma macro:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Sub testLancementBatch()
Dim fileObject As Object
Dim file As Object
'Pour creer le fichier texte
Set fileObject = CreateObject("Scripting.FileSystemObject")
Set file = fileObject.CreateTextFile("C:\Documents and Settings\at91768\Bureau\excel batch\essai.bat")
'Pour écrire dans le fichier texte
With file
.writeLine "@ECHO OFF"
.writeLine "pause"
End With
ShellPatient "C:\Documents and Settings\at91768\Bureau\excel batch\essai.bat"
End Sub |
(Je vous ai pas mis la fonction ShellPatient qui permet d'attendre la fin du batch avant de lancer les commandes suivantes (testé et fonctionnel).
A noté que: Si je lance manuellement mon batch, cela marche.
Si je lance n'importe quel batch qui n'a pas été créé dans la macro, cela marche.
Merci d'avance
