utilisation de WScript.Shell

Bonjour,

je cale sur l'utilisation (pourtant simple) de WScript.Shell.

je souhaite lancer un executable avec des parametres, mais malheureusement ca ne marche pas. Pour etre sur que ce n'est pas ma cmd commande qui est la root-cause je l'ai validee a partir d'un .bat ... pas e probleme
Ci dessous mon code vba et le .bat qui fonctionne bien

VBA code:

Code:

---

1 2 3 4 5 6 7 8

Str_Path = ThisWorkbook.Path & "\Login.txt" Str_Wget_Path = ThisWorkbook.Path Dim ID As Variant Str_Wget = "cmd /c " & Chr(34) & Str_Wget_Path & "\wget.exe" & Chr(34) & " --no-check-certificate -O text.txt -a wgetlog.txt -i login.txt" Dim Sh Set Sh = CreateObject("WScript.Shell") ID = Sh.Run(Str_Wget, 0, True) Set Sh = Nothing

---

.BAT code:

Code:

---

cmd /c "C:\dev\www\public\www - Black For Archive\doc Version 1-0\Multi-Accounts\wget.exe" --no-check-certificate -O text.txt -a wgetlog.txt -i login.txt

---

???!!! y a t'il quelqu'un qui identifi mon probleme?

par avance merci,

Daniel.

Tes chr(34) sont de trop. Une syntaxe qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8

Chemin = "C:\Windows\" CheminFichier = "C:\" Str_Wegg = "cmd /c " & Chemin & "Notepad.exe " & CheminFichier & "xlsAppli.vbs" Dim Sh Set Sh = CreateObject("WScript.Shell") ID = Sh.Run(Str_Wegg, 0, True) DoEvents Set Sh = Nothing

---

Les parenthèses ne sont là que quand tu as à concaténer variables et string. Faut pas en ajouter.
Désolé mais je n'ai pas pu tester avec ton code ;)

En fait, je crois que les chr(34) sont des guillemets car le chemin n'est pas au format DOS.
Je pense plutot que le probleme se situe par rapport au chemin des fichiers text.txt, wgetlog.txt et login.txt.
Il faut surement utiliser ChDrive et ChDir avant de lancer la commande...

Effectivement, chr(34) est un guillemet. Mais qu'entends-tu par "le chemin n'est pas au format DOS" ?
Si je fais

Code:

---

1 2	Str_Wget_Path = ThisWorkbook.Path MsgBox Str_Wget_Path ' "D:\xls"

---

Càd exactement la syntaxe utilisée en dos, le "\" de la fin en moins.

Format DOS = Max 8 caractères (+ éventuelle extension) et pas d'espace.

Code:

---

C:\PROGRA~1\...

---

Merci,

la solution est dans ChDir "<new directory>" avant de lancer le shell

Daniel.

Pour mon info, tu as laissé les guillemets ? Je suis étonné, j'ai toujours pensé, pour l'avoir souvent utilisé, que le dos n'utilisait pas les guillemets. Va falloir que je révise mon dos :(

En fait, cmd ou command accepte les formats non Dos sous Windows 2000 ou XP. Par contre, quand il s'agit de le mettre dans un parametre, et qu'il y a des espaces, Dos ne sait plus de quel parametre il s'agit.
Le probleme ne vient pas vraiment du format Dos, mais des espaces, car avec un nom de fichier long sans espace, il n'y a pas de probleme. Exemple :

Code:

---

cmd /c C:\nomdedossiertreslongsansespace\monProg.exe

---

Mais si mon dossier s'appelle "C:\chemin -o nimportequoi\", si je ne mets pas de guillemets dans la commande Dos voila ce que ca donne :

Code:

---

cmd /c C:\chemin -o nimportequoi\monProg.exe

---

Il faut bien :

Code:

---

cmd /c "C:\chemin -o nimportequoi\monProg.exe"

---

ou alors

Code:

---

cmd /c C:\chemin~1\monProg.exe

---

Voila, je pense qu'il faut mettre :resolu: à ce topic

Ok, dans ce cas, j'utilise toujours le nom court. Et j'ai cherché longtemps avant d'en arriver là... J'étais tout content quand j'ai vu qu'on pouvait faire ça simplement par fso

Code:

---

1 2 3 4 5 6 7 8 9 10

Function NomCourt(LeFich) Dim fso, Nomfich Set fso = CreateObject("Scripting.FileSystemObject") Set Nomfich = fso.GetFile(LeFich) NomCourt = Nomfich.ShortName End Function   Sub NomAbrégé() MsgBox NomCourt("Commandes publiques - Courrier arrivé.xls") End Sub

---

Merci dadavyvy, ta réponse va me simplifier la vie... parfois ;)