Discussion :

[daniel_gre]

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 :

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

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 :

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

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.

[ouskel'n'or]

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

Code :

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

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

[dadavyvy]

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...

[ouskel'n'or]

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

Code :

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

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.

[AlainTech]

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

Code :

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

C:\PROGRA~1\...

[daniel_gre]

Merci,

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

Daniel.