Exécution d'un batch dans une macro

Version imprimable

Bonjour,
Dans une macro Excel je souhaite créer un fichier batch, le remplir puis l'exécuter.
Je rentre donc le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 'Pour creer le fichier .bat Set fileObject = CreateObject("Scripting.FileSystemObject") Set file = fileObject.CreateTextFile("C:\essai.bat") 'Pour écrire dans le fichier .bat With file .writeLine "ligne1" .writeLine "etc..." End With 'Exécution du .bat ret = Shell("cmd /c C:\essai.bat", vbNormalFocus)
Le fichier est bien créé et bien rempli mais lors de l'exécution je vois apparaître l'invité de commande puis disparaître très rapidement (je ne vois aucune ligne défiler, j'ai mis une pause pour bien vérifier que le fichier n'est pas exécuté et en effet, il n'y a pas de pause).

04/06/2010, 15h18
Minick

Salut,

Etrange ca fonctionne chez moi (j'ai fais un dir c:\ /s , pour bien avoir le temps de voir :mrgreen:)
[J'ai juste ajoute un file.Close - mais ca fonctionne sans]

Et si tu lances le batch manuellement (apres la creation par le programme)
que se passe t il?
04/06/2010, 15h54
Isiker

Si je lance le batch manuellement, il n'y a pas de problèmes ça marche.
04/06/2010, 16h10
neupont

De mémoire, je crois qu'il faut une option start /b ou quelque chose comme ça.
Mais tu risques aussi d'avoir un problème de synchronisation : en effet le code VB continue à s'exécuter en même temps que le batch.
C'est un gros inconvénient de shell. Je vais essayer de retrouver mes notes là-dessus.

Alors pour un éventuel problème de synchronisation entre le code VB et le batch, il faudrait utiliser ce genre de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
Option Explicit
 
Private Type STARTUPINFO
         cb As Long
         lpReserved As String
         lpDesktop As String
         lpTitle As String
         dwX As Long
         dwY As Long
         dwXSize As Long
         dwYSize As Long
         dwXCountChars As Long
         dwYCountChars As Long
         dwFillAttribute As Long
         dwFlags As Long
         wShowWindow As Integer
         cbReserved2 As Integer
         lpReserved2 As Long
         hStdInput As Long
         hStdOutput As Long
         hStdError As Long
End Type
 
Private Type PROCESS_INFORMATION
         hProcess As Long
         hThread As Long
         dwProcessID As Long
         dwThreadID As Long
End Type
 
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
         hHandle As Long, ByVal dwMilliseconds As Long) As Long
 
Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
         lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
         lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
         ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
         ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
         lpStartupInfo As STARTUPINFO, lpProcessInformation As _
         PROCESS_INFORMATION) As Long
 
Private Declare Function CloseHandle Lib "kernel32" (ByVal _
         hObject As Long) As Long
 
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&
 
Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessID As Long) As Long
 
Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, _
    lpExitCode As Long) As Long
'...end
 
 
Public Sub ShellPatient(vCommand As String)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
Dim ReturnValue As Integer
 
DoCmd.Hourglass True
 
ReturnValue = CreateProcessA(0&, vCommand, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
Do
    ReturnValue = WaitForSingleObject(proc.hProcess, 0)
    DoEvents
    DoEvents
Loop Until ReturnValue <> 258
 
ReturnValue = CloseHandle(proc.hProcess)
 
DoCmd.Hourglass False
 
 
End Sub
 
' un exemple
Sub testShell()
 
ShellPatient "cmd /c C:\essai.bat"
 
End Sub

Bon je sais que c'était pas le problème rencontré, mais je sens que ça va venir... :mrgreen:

Et pour la fenêtre batch qui se ferme vite, j'ai retrouvé un exemple où le batch lançait une commande externe (un .exe ou un java) et là il fallait, dans le batch, mettre au début de cette ligne start /b , mais si le batch fait seulement des commandes DOS je ne pense pas que ça puisse s'appliquer :calim2:

04/06/2010, 17h08
Isiker

Ouais j'ai aussi prévu le coup de la synchronisation pour après :mrgreen:

Mais le premier problème vient d'un tout petit truc je pense ... mais je vois vraiment pas...
04/06/2010, 17h26
neupont

Tout ce que je peux dire, c'est qu'en utilisant le fameux ShellPatient dont je t'ai fait la pub un peu plus haut ;), je lance directement le batch sans passer par cmd, comme ça :

Code:

ShellPatient "c:\monbatch.bat"

Le batch lance entre autres un exe qui normalement (si je le lançais manuellement) s'exécute sous la console DOS, eh bien celle-ci s'ouvre et je vois défiler l'affichage que renvoie l'exe.
07/06/2010, 09h31
Isiker

En utilisant ton bout de code, j'ai une erreur de compilation sur DoCmd: variable non définie.
07/06/2010, 09h35
neupont

Cette ligne-là ?

Code:

DoCmd.Hourglass True (et False)

A mon avis c'est juste une modification du pointeur de la souris, tu dois pouvoir t'en passer.

Précision : normalement ce code est à mettre dans un module.
07/06/2010, 09h38
Isiker

Le code compile bien mais, malheureusement mon batch n'est toujours pas exécuté.
07/06/2010, 10h08
neupont

Très curieux, ça me laisse coi quoi.
Tu pourrais nous montrer ton batch ?

Voici mon batch (lancé manuellement il s'exécute bien).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
REM ******************************
set user=#######
set passwd=######
 
REM *********************************************
REM * les fichiers seront sur le disque suivant *
REM *********************************************
K:\#########
 
for /F "tokens=1-4 delims=/ " %%i in ('date /t') do set yyyymmdd=%%k%%j%%i
echo Date: %yyyymmdd%
 
 
set CRCO=10.103.249.21
 
 
get cftp
 
:cftp
ECHO open %CRCO% >  passFTP.txt
ECHO %USER%   	   >> passFTP.txt
ECHO %PASSWD%      >> passFTP.txt
ECHO GET 'CXSIAB00.JDPSN000.JDCJAAS1(0)' CRCO.txt >> passFTP.txt
ECHO close >> passFTP.txt
ECHO quit >> passFTP.txt
ftp -s:passFTP.txt
 
del passFTP.txt
 
ECHO.
REM ECHO Hasta la vista baby !
 
:end
:

07/06/2010, 14h18
neupont

Bon je n'ai pas de proposition.
Désolé :(
07/06/2010, 14h28
Isiker

C'est normal, je viens de localiser le problème en fait.

Il bloque sur la destination...

Si je lance le ShellPatient dans C: cela marche mais pas sur le réseau sur lequel je souhaite l'exécuter.

Le comble c'est qu'il arrive à me créer le fichier au bon endroit, à bien me le remplir, mais il peut pas l'exécuter sur cette même adresse...

Sachant que ce n'est plus trop un problème d'Excel ou de macro, je vais mettre le sujet en Résolu dans quelques temps en attendant un peu voir si vous avez des idées pour ce problème là.
07/06/2010, 14h46
neupont

Est-ce que le batch ne pourrait pas être sur C: et faire ses traitements sur le réseau ?
07/06/2010, 14h48
Isiker

Non malheureusement.
07/06/2010, 16h44
Isiker

Finalement j'ai trouvé: 3 guillemets de chaque côté de l'adresse au lieu de 1...

Résolu.