Discussion :

[lionel86500]

Bonjour,

Je souhaiterais passer une variable d'un vbs à un autre.

Voici ce que j'ai fait

premier VBS (Passage_parametre_1.vbs) ------------------------------------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oShell
dim reponse
dim autre
 
Set oShell = WScript.CreateObject ("WSCript.shell")
 
msgbox "avant lancement"
 
reponse = "parametre1"
autre = "parametre2"
 
oShell.run "C:\couvratl\A_conserver\Vbscript\Passage_parametre_2.vbs reponse autre"

second VBS (Passage_parametre_2.vbs) ------------------------------------------------------------------------------

Code :

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

1
2
3
4
5
spar01 = WScript.Arguments(0)
spar02 = WScript.Arguments(1)
 
msgbox "spar01 -" & spar01
msgbox "spar02 -" & spar02

en résultat dans le second vbs s'affiche le mot reponse et le mot autre
alors que je souhaiterais avoir le mot parametre1 et parametre2

Je n 'arrive pas à trouver la solution.

D'avance merci

Lionel

[pc75]

Bonjour,

Tu as essayé avec :

Code :

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

1
2
 
spar01 = WScript.Arguments(0).Named

[lionel86500]

Re bonjour,

cette solution ne fonctionne pas elle affiche une erreur

Objet requis

[Miistik]

Bonjour,

Dans le premier VBS, remplacez :

Code :

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

oShell.run "C:\couvratl\A_conserver\Vbscript\Passage_parametre_2.vbs reponse autre"

par

Code :

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

oShell.run "C:\couvratl\A_conserver\Vbscript\Passage_parametre_2.vbs " & reponse & " " & autre

Dans le premier cas, vous passez la valeur reponse et autre en tant que tel car c'est compris dans les doubles quotes.
Dans le deuxieme cas, vous passez la valeur des variables.

[lionel86500]

Merci de cette réponse
j'ai modifié mon vbs comme ceci

(Passage_parametre_1.vbs) -----------------------------------------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oShell
dim reponse
dim autre
 
Set oShell = WScript.CreateObject ("WSCript.shell")
 
msgbox "avant lancement"
 
reponse = "parametre1"
autre = "parametre2"
 
msgbox "reponse -" & reponse & chr(13) & "autre - " & autre
 
oShell.run "C:\couvratl\A_conserver\Vbscript\Passage_parametre_2.vbs " & reponse & " " & autre

lors de l'affichage du second script, je récupère bien la valeur
parametre1 de la variable reponse
parametre2 de la variable autre

Merci pour l'info

Lionel