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 : Sélectionner tout - Visualiser dans une fenêtre à part
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