Discussion :

[Akronyme]

Le problème est assez simple en apparence, j'ai besoin de lancer un programme depuis une macro en VB, pour cela , j'utilise ows.run sous la manière suivante :

Code :

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

1
2
Set oWS = CreateObject("WScript.Shell")
oWS.Run "J:\temp 2\test.exe", 0, True

ça fonctionne pas...
Mais si je met :

Code :

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

1
2
Set oWS = CreateObject("WScript.Shell")
oWS.Run "J:\temp2\test.exe", 0, True

Sans l'espace entre temp et 2, il n'y a pas de soucis. Le gros truc c'est que c'est censé être un programme relativement générique qui va récupérer le dossier perso (Mes documents) du user et qui exécute un programme dans ce répertoire. Et dans le chemin de repertoire "Mes Documents" il y a un espace...

[SfJ5Rpw8]

rajoute des "...

Code :

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

1
2
oWS.Run """J:\temp 2\test.exe""", 0, True

[Akronyme]

Merci Merci !!!!
Quelle promptitude!

[Akronyme]

Imaginons maintenant que je veuille pas coder en dur le path et que je veuille récupérer une variable de format string (qui évidemment est initialisée à la bonne valeur)?
Type :

Code :

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

1
2
3
Dim AExecuter As Integer 
Set oWS = CreateObject("WScript.Shell")
oWS.Run AExecuter, 0, True

[ThierryAIM]

Imaginons que tu réflechisse 2 mn et que tu tentes un truc comme :

Code :

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

oWS.Run """ & AExecuter & """, 0, True

Imaginons ....

[Akronyme]

Ok,
Merci beaucoup, imaginons que j'ai essayé avant de poster et que ça fonctionne pas...

P.S je sens un certain "mais-qu-qu-est-ce-que-c-est-que-ce-noob" esprit, si j'ai loupé des post dans d'autres forum ou si le fait que je ne sache pas coder en VB (ce qui est vrai, j'apprends sur le tard et j'ai bien plus d'expérience dans d'autres langages) vous ennuie au plus haut point, vous pouvez me le dire... Et si jamais vous connaissez une refcard pour le vb, je vous en serais très reconnaissant de m'indiquer l'url!

[SfJ5Rpw8]

et ou il est le code avec lequel tu as essayé...?

si tu fais :

Code :

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

Dim AExecuter As Integer

c'est mal parti...

[ThierryAIM]

et imaginons que tu testes avec un " de plus (que j'ai zappé, ok pour moi), et que tu definisses AExecuter en String, et non pas en Integer (ce qui va beaucoup mieux pour les chaines de caractères !) :

Code :

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

oWS.Run """" & AExecuter & """", 0, True

[Akronyme]

Désolé, j'ai oublié de copy-pasté tout mes tests, je trouve juste un peu "piquant" comme style de réponse celle de ThierryAIM
Finalement ça passe de la manière suivante :

Code :

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

oWS.Run Chr(34) & AExecuter & Chr(34), 0, True

Merci de votre aide

[Akronyme]

Au temps pour moi le

Code :

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

Dim AExecuter as Integer

il n'est pas dans mon code, j'ai du merder un bout de copy-paste

[ThierryAIM]

Désolé, j'ai oublié de copy-pasté tout mes tests, je trouve juste un peu "piquant" comme style de réponse celle de ThierryAIM
Finalement ça passe de la manière suivante :

Code :

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

oWS.Run Chr(34) & AExecuter & Chr(34), 0, True

Merci de votre aide

Si tu ne veux pas de piquant ni d'humour au 2e voire 3e degré, ne tends pas la perche ou change de forum

[ThierryAIM]

Au temps pour moi le

Code :

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

Dim AExecuter as Integer

il n'est pas dans mon code, j'ai du merder un bout de copy-paste

no comments !

bonne prog quand même, avec ou sans piquant, et bienvenue parmi nous !

On est parfois espiègles mais pas méchant

[Akronyme]

Ok, je me le tiens pour dit.
Ceci dit, je me demande pourquoi on dirait que y'a pas de methode pour escaper "...
Merci encore

[SfJ5Rpw8]

Ok, je me le tiens pour dit.
Ceci dit, je me demande pourquoi on dirait que y'a pas de methode pour escaper "...
Merci encore

ben la méthode on te la mis plus haut... pour ecaper un " il faut le doubler !