Discussion :

[papyxy]

Bonjour
J'ai essayé de procéder comme indique dans la Faq, mais je n'y parvient pas.
voici mon code, sachant que l'argument ne passe pas .
l'appelant :

Code :

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

1
2
3
ph=  "j'ai du bon tabac" 
Set WshShell = WScript.CreateObject("WScript.Shell")
Retour = WshShell.Run("parlant.vbs " & chr(34) & ph & chr(34))

l'appelé :

Code :

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

1
2
3
4
5
6
7
         Set Voix = CreateObject("SAPI.Spvoice")
	If wscript.Arguments.length >0 Then
phrase= wscript.Arguments(0)
	else
phrase=	"aucun argument transmis"
	end if
         Voix.Speak phrase

[hackoofr]

Il faut exécuter le script avec le moteur cscript.exe et non pas avec wscript.exe pour passer les arguments

Code :

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

1
2
3
4
ph=  "J'ai du bon tabac" 
Set WshShell = WScript.CreateObject("WScript.Shell")
Retour = WshShell.Run("cscript parlant.vbs " & chr(34) & ph & chr(34),1,True) 'La valeur=1 Exécution avec affichage de la console
Retour = WshShell.Run("cscript parlant.vbs " & chr(34) & ph & chr(34),0,True) 'La valeur=0 Exécution sans affichage de la console

[papyxy]

Merci pour la solution; je n'y comprenais plus rien, d'autant plus que ça avait déjà fonctionné.