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