Discussion :

[hackoofr]

Salut à Tous !
J'ai un petit problème quand je teste ce script sur Windows XP SP3

Code :

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

1
2
set voix = createobject("SAPI.Spvoice")
voix.speak "salut developpez.com !"

je crois le problème vient au niveau du système puisque en jetant un coup d'œil sur le panneau de configuration il n' y a pas l'applet Voix "propriétés de la reconnaissance vocale Microsoft SAM".
Donc ce qui explique bien l'absence de l'ActiveX dans ce script.

Code :

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

Erreur Un composant ActiveX ne peut pas créer un objet :'SAPI.Spvoice'

Donc ma question : comment résoudre ce problème d'installation d'ActiveX ?
Merci !
Cordialement

[omen999]

salut,
http://www.microsoft.com/downloads/e...displaylang=en
tu risques d'être déçu, il n'y a pas de localisation en français

[Fifi69]

Hello, pour une vocalisation en français, il y a la voix de Virginie
http://rapidshare.com/#!download|211...inie.exe|24496

[Fifi69]

En suivant le lien donné par omen999, j'ai installé sans problème et fait un essai avec la voix sensuelle (et surtout francaise) de Virginie. C'est nickel !

Il faut déclarer Microsoft Speech Object Library dans références.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private mV As SpeechLib.SpVoice
 
Public Function Vocalisation(strText)
On Error GoTo Fin
Set mV = New SpVoice
mV.Speak strText, SVSFIsXML
 
Fin:
Set mV = Nothing
End Function

[hackoofr]

salut,
http://www.microsoft.com/downloads/e...displaylang=en
tu risques d'être déçu, il n'y a pas de localisation en français

En suivant le lien donné par omen999, j'ai installé sans problème et fait un essai avec la voix sensuelle (et surtout francaise) de Virginie. C'est nickel !

Il faut déclarer Microsoft Speech Object Library dans références.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private mV As SpeechLib.SpVoice
 
Public Function Vocalisation(strText)
On Error GoTo Fin
Set mV = New SpVoice
mV.Speak strText, SVSFIsXML
 
Fin:
Set mV = Nothing
End Function

Merci Bien le problème est

[Kropernic]

Sorry de remonter un sujet relativement vieux et déjà résolu mais comment est-ce qu'on choisit la voix ?

Perso, ça n'utilise que la voix anglaise d'un type qui a l'air peu recommandable. Je voudrais bien entendre virginie ^^

[Fifi69]

Par VBA , je n'ai pas cherché.
Sous windows il suffit d'aller :panneau de configuration /voix

[ThierryAIM]

Panneau de configuration >> Voix >> Virginie

Pour la sélection auto, je ne sais pas...

[Edit] grillé par Fifi

[hackoofr]

Sorry de remonter un sujet relativement vieux et déjà résolu mais comment est-ce qu'on choisit la voix ?
Perso, ça n'utilise que la voix anglaise d'un type qui a l'air peu recommandable. Je voudrais bien entendre virginie ^^

Un coup d'oeil sur cette Discussion puis si tu veux changer la voix par script il suffit de mette ce code pour charger le TextToSpeech en Français de Viriginie :

Code :

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

Merlin.TTSModeID = "{0879A4E0-A92C-11D1-B17B-0020AFED142E}" ' TextToSpeech en Français de Viriginie

[Kropernic]

Ok pour la config dans le control pannel mais je ne me vois pas aller faire ça sur chaque poste où l'application se trouvera ^^.

Pour la réponse de hackoofr, je ne vais pas installer merlin non plus ^^

Sinon, pour le moment, j'ai reussi en ajoutant une ligne à la méthode de Fifi.
Ce qui donne le code ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub Vocalisation(ByVal strText As String)
        On Error GoTo Fin
        mV = New SpeechLib.SpVoice
        mV.Voice = mV.GetVoices("gender = female").Item(2)
 
        mV.Speak(strText, SpeechLib.SpeechVoiceSpeakFlags.SVSFIsXML)
 
Fin:
        mV = Nothing
    End Sub

Ce n'est probablement valable que tant que je n'ai que les voix actuelles installées. Mais je n'ai pas encore trouver comme faire autrement.
J'ai chopé le fichier d'aide (.chm) de sapi mais quand je l'ouvre, j'ai bien les différents "paragraphe" qui s'affiche mais je n'obtiens aucun contenu....

[Kropernic]

Etant tombé sur cette discussion via google, je viens seulement de réaliser que je suis dans la partie vbscript XD

En fait je code en vb.net ^^.