PB Parametrage de ShellExecute

Bonjour a tous,

Je cherche actuellement a lancer via VBA Excel une commande dans le shell cmd de WINDOWS.

Pour cela, j 'applique le code suivant:
Declaration de ShellExecute

Code:

---

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

Partie du code ou je fais appel a shellExecute

Code:

---

1 2 3 4 5 6

Dim Result, CommandString, fName, fCommandString fName = "C:\WINDOWS\system32\cmd.exe" ''"Index.html" fCommandString = "pdsdecode -p ""D:\Files Exeample\GPIT-F_Calibration_Report.PDS"" -d ""D:\Files Exeample\GPIT-F_Calibration_Report.txt""" MsgBox (fCommandString) Result = ShellExecute(hwnd, "Open", fName, fCommandString, 0, 1) If Result = 0 Then MsgBox ("Error while executing command")

---

J ai egalement essaye la chose suivante, histoire de tracer mon probleme

Code:

---

1 2 3 4 5 6

Dim Result, CommandString, fName, fCommandString fName = "C:\WINDOWS\system32\cmd.exe" ''"Index.html" fCommandString = "cd .." ''"pdsdecode -p ""D:\Files Exeample\GPIT-F_Calibration_Report.PDS"" -d ""D:\Files Exeample\GPIT-F_Calibration_Report.txt""" MsgBox (fCommandString) Result = ShellExecute(hwnd, "Open", fName, fCommandString, 0, 1) If Result = 0 Then MsgBox ("Error while executing command")

---

Dans les deux cas, je me retrouve avec la fenetre du shell "system32\cmd.exe" ou apparait D:\Documents\.
Il semble donc que la fonction Shellexecute ne comprend pas mon parametrage fCommandString .

Quelqu'un a t'il une explication?

Merci de votre aide

C'est normal, là tu lances cmd, donc tu passes en dos.
Si tu veux ouvrir un fichier texte, teste ça sans rien changer

Code:

---

ShellExecute 0, vbNullString, "D:\Files Exeample\GPIT-F_Calibration_Report.txt", vbNullString, vbNullString, 0

---

Tu dis ce qui ne va pas ;)
A+

Citation:

---

Si tu veux ouvrir un fichier texte, teste ça sans rien changer

---

Je ne cherche pas a ouvrir un fichier texte.
Je cherche a faire executer dans cmd.exe la commande fCommandString, qui est passée en parametre dans le ShellExecute. J y arrive sans probleme dans une MFC mais pas sous VBA.

Le commande ShellExecute marche tres bien quand je cherche a "seulement"" ouvirir un fichier texte".

Edit @ 14h21
Je viens de realiser quew sous MFc j utilise non pas ShellExecute mais ShellExecuteEx avec la fonction WaitforSingleObject pour etre sur que mon app attende la fin.
Il me faut donc trouver comment incorpporer tout cela en VBA!!

Edit @ 14h36
J ai exactement le meme probleme avec ShellExecuteEX!
Des idees?

Declaration

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long Private Declare Function WaitForSingleObject Lib "Kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "Kernel32" (ByVal hObject As Long) As Long Private Const WAIT_INFINITE = -1& Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type

---

Code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim Result, CommandString, fName, fCommandString fName = "D:\Files Exeample\GPIT-F_Calibration_Report.txt" ''"C:\WINDOWS\system32\cmd.exe" ''"Index.html" fCommandString = "pdsdecode -p ""D:\Files Exeample\GPIT-F_Calibration_Report.PDS"" -d ""D:\Files Exeample\GPIT-F_Calibration_Report.txt""" ''MsgBox (fCommandString) ''Result = ShellExecute(hwnd, "Open", fName, fCommandString, 0, 0) ''Result = ShellExecute(hwnd, 0, fName, fCommandString, 0, 0) ''ShellExecute 0, vbNullString, "D:\Files Exeample\GPIT-F_Calibration_Report.txt", vbNullString, vbNullString, 0   Dim ExecuteEncodeInfo As SHELLEXECUTEINFO With ExecuteEncodeInfo ExecuteEncodeInfo.cbSize = Len(ExecuteEncodeInfo) 'sizeof(ExecuteEncodeInfo) ExecuteEncodeInfo.fMask = 0 ExecuteEncodeInfo.hwnd = 0 ExecuteEncodeInfo.lpVerb = "Open" ExecuteEncodeInfo.lpFile = "C:\WINDOWS\system32\cmd.exe" ExecuteEncodeInfo.lpParameters = fCommandString ExecuteEncodeInfo.lpDirectory = 0 ExecuteEncodeInfo.nShow = 1 ExecuteEncodeInfo.hInstApp = 0 End With If Result = ShellExecuteEX(ExecuteEncodeInfo) = False Then MsgBox ("Error while executing command") _ Else Call WaitForSingleObject(ExecuteEncodeInfo.hProcess, WAIT_INFINITE)

---

Je viens d essayer ton code ci-dessus tel quel.
il ne se passe rien du tout.

Salut,

je ne sais pas si cela peut convenir pour ton cas, mais j'ai ci-dessous un exemple ou je lance un proc avec des parametres. Ca me parait similaire.

le but est de boucle sur un répertoire et pour chaque fichier .ETI trouvé, on lance le soft an passant le nom du fichier .ETI en parm.

Voici le code (il marche) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Proc = "C:\Program Files\Weber Marking Systems\Legi for Windows\bin\Legi32.exe" Quote = "" Scan = Trim(Labels_folder) & "\*.ETI" 'obtient le premier fichier .ETI qui est dans Labels_Folder Rep = Dir(Scan)   Do While (Rep <> "") cmd = Quote & Proc & Quote & " /batch " & Quote & Labels_folder & "\" & Rep & Quote ret = Shell(cmd, vbNormalFocus) 'passe à l'élément suivant Rep = Dir Loop

---

Ok. ShellExecute s'adresse à un fichier windows, pas Dos
ShellExecute recherche l'application indiquée par défaut dans windows pour ouvrir un fichier avec extension connue par "lui".
Pour utiliser cmd, c'est Shell tout court.
Voici toujours un exemple avec une commande dos

Code:

---

Shell "cmd /c dir *.* /s > d:\doc\txt.txt"

---

liste le répertoire et les sous-rpertoires dans le fichier txt.txt
Adapté à ton code, je ne sais pas mais la ligne doit toujours commencer par "cmd"
Tu vois si tu peux adapter... Ou alors détaille-nous les paramètres que tu utiises pour qu'on puisse savoir qu'en faire :aie:
A+

Ici une explication sur shellexecute.

Citation:

---

Code:

---

Shell "cmd /c dir *.* /s > d:\doc\txt.txt"

---

---

Il ne se passe rien du tout apres cette commande (pas de creation de fichier "d:\doc\txt.txt"). Je l'ai pourtant copie tel quel.
J'utilise Excel2003, si ca peut t'aiguiller.
Edit@11:48: Pardon, cette commande fonctionne bien. Il faut par contre que le dossier D:\doc soit au prealablement cree

Concernant ShellExecute et son pendant ShellExecuteEX, ce sont bien les fonctions que j'utilise sous MFc pour lancer ce genre de commande, a savoir.
1 - Lancer la fenetre cmd.exe
2 - Y passer en commande ma string (lpzParameters) "pdsdecode -p nomFichier.PDS -d nomFichier.txt" (c est une commande maion permettant de decoder un fichier PDS en fichier ASCII)
3 - Attendre que la commande se soit bien executée (grace a la fonction WaitForSingleObject)

As-tu testé la solution de Godzestla ?

Sinon, j'utilise également cette syntaxe

Code:

---

Shell "cmd /c " & Chemin & "Util.exe " & CheminFichier & "xlsAppli.vbs"

---

où j'indique le chemin de l'exe et du fichier.
Désolé mais je suis brouillé avec tes paramètres :cry:

Normallement ma solution devrait fonctionner.

Seule inconnue, au niveau des quotes je ne sais pas s'il faut "quotter" séparément les paramètres ou globalement et ou exactement les mettres par rapport à certains switchs (-p , -d).

personnelkement j'essaierai ceci, en remplacant full_pathname par ce qu'il y a lieu.

Code:

---

1 2 3 4 5 6 7 8

Proc = "full_pathname\pdsdecode" parm1 = "D:\Files Exeample\GPIT-F_Calibration_Report.PDS" parm2 = "D:\Files Exeample\GPIT-F_Calibration_Report.txt" Quote = "" cmd = Quote & Proc & Quote & " -p " & Quote & parm1 & Quote & " -d " & Quote & parm2 & Quote ret = Shell(cmd, vbNormalFocus)

---

:mouarf:

Merci beaucoup.
La solution de Godzestla marche tres bien.
Il ne me reste plus qu a trouver la fonction permettant d attendre le temps necessaire a la creation de mon fichier (output de cmd).

Bravo !
Pour le délai, DoEvents règle généralement le pb en VBA (laisse le temps au système de travailler) S'écrit simplement

Code:

---

DoEvents

---

sur la ligne suivant la commande
Sinon, tu as Wait

Code:

---

Application.Wait(Now + TimeValue("0:00:02"))

---

Pour 2 secondes (!)

Tant mieux si cela fonctionne. :yaisse2:

Tu as essayé

Code:

---

Doevents

---

pour l'attente. ?

Code:

---

Application.Wait(Now + TimeValue("0:00:02"))

---

Ce code marche du feu de Dieu.
Un grand merci a tous les deux!