lancer une commande dos en shell

**Patnel** · 31/03/2010, 13h02

bonjour forum

je bute depuis un momment pour lancer un fichier de commande dos depuis vba
j' ai essayé ça :

Code :

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

1
2
3
4
5
6
7
 
Sub maj_IVM()
com_dos = ThisWorkbook.Path & "\Rep_IVM.cmd"
S = ThisWorkbook.Path & "\Rep_IVM.txt"
com_dos = "COMMAND.COM /C " & com_dos
Shell "cmd.exe /c " & com_dos
End Sub

Rep_IVM.cmd contient :
dir S:\ORG_CIS_IVM /s >Rep_IVM.txt

ce code ne veut pas se lancer

j' aimerai essayer

Code :

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

1
2
3
4
5
6
7
8
 
Sub try1()
 
com_dos = ThisWorkbook.Path & "\Rep_IVM.cmd"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run com_dos, SH_WIDE
 
End Sub

mais la compilation plante :
"object required"
peut être y a t il une librairie qu'il faille activer avant
mais laquelle ?

**aalex_38** · 31/03/2010, 13h54

bonjour à tous,

Un exemple :

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
16
17
18
Sub essai_forum_Bat()
Dim tableau(3)
 
iNumFichier = FreeFile
Open ThisWorkbook.Path & "\Test.bat" For Output As iNumFichier
 
    tableau(1) = "S"
    tableau(2) = "CD S:\ORG_CIS_IVM\"
    tableau(3) = "dir /S >Rep_IVM.txt"
 
For j = 1 To UBound(tableau)
    Print #iNumFichier, tableau(j) ''& Chr$(34)
Next j
 
Close iNumFichier
lShell = Shell(ThisWorkbook.Path & "\Test.bat", vbMinimizedFocus)
 
End Sub

**Patnel** · 31/03/2010, 14h07

ok merci
ton code marche

peux tu me dire comment on sait par vba que la commande dos
- ne s'exécute pas
-si elle s'exécute et quand elle est terminée

mon pb est que le répertoire que je scrute est trés grand donc le batch est trés long et j'aimerai pouvoir exploiter les données que lorsque le fichier généré est disponible

**aalex_38** · 31/03/2010, 14h59

le batch est trés long

Pour controler la fin d'une application je ne connais pas de réponse simple :

vba ShellAndWait

**Patnel** · 31/03/2010, 15h54

bon j'ai vu des choses mais les codes proposés passent par
WScript.Shell
ça fait planter la compil

il faut je pense activer une librairie dans les références et je ne sais pas laquelle

**neupont** · 01/04/2010, 14h03

Bonjour,
Voici un code (pas de moi) qui permet au code VB d'attendre la fin du batch sans avoir à en contrôler la fin par d'autres moyens.

Il faut mettre ce code dans un module à part :

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
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
 
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
 
 
 
Public Sub ShellPatient(vCommand As String)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
Dim ReturnValue As Integer
 
 
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)
 
End Sub

Puis lancer ta commande DOS comme ça :

Code :

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

ShellPatient "cmd.exe /c " & com_dos

**Patnel** · 01/04/2010, 14h04

ouf j' ai trouvé la solution en exemple pour ceux que ça intersse voici le code

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub try()
myshell = False
Dim com_dos As String
com_dos = ThisWorkbook.Path & "\Rep_IVM.cmd"
'myshell = Shell(com_dos, 1)
 
myshell = ShellAndWait(com_dos)
 
MsgBox "fini ok "
 
End Sub
 
 
 
Function ShellAndWait(FileName As String)
Dim objScript As Object
Dim ShellApp As Long
 
On Error GoTo ERR_OpenForEdit
 
Set objScript = CreateObject("WScript.Shell")
 
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
 
EXIT_OpenForEdit:
Exit Function
ERR_OpenForEdit:
MsgBox Err.Description
GoTo EXIT_OpenForEdit
End Function

par contre quand la commande plante ça dit rien

je mets cette discution en résolu
si quelqu'un sait répondre à la question je suis preneur

Merci à tous et en trés particulier à aalex

lancer une commande dos en shell

Macros et VBA Excel

Discussions similaires

Partager

Partager