Discussion :

[Isiker]

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

[neupont]

Bonjour,
je crois que c'est lié à la manière d'écrire le fichier.

Essaye plutôt un truc dans ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
file1 = "C:\Documents and Settings\at91768\Bureau\excel batch\essai.bat"
Open file1 For Output As #1
    Print #1, "@ECHO OFF"
    Print #1, "pause"
Close #1
 
ShellPatient "C:\Documents and Settings\at91768\Bureau\excel batch\essai.bat"

[Isiker]

Merci ça marche.

J'ai aussi trouvé comment le faire fonctionner avec .writeLine, il faut faire la création et le remplissage dans une fonction et appeler la fonction puis exécuter le batch.

Ce qui donne:
CreationRempBatch()
Shell(patati)