utilisation de WScript.Shell

[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 :

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.

[ouskel'n'or]

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

[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 :

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 :

C:\PROGRA~1\...

[daniel_gre]

Merci,

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

Daniel.

[ouskel'n'or]

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

[dadavyvy]

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 à ce topic

[ouskel'n'or]

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