Discussion :

[patricktoulon]

Bonjour a tous
apre m'ettre amuser avec la voix de Google je me suis interessé a l'environnement Windows
je trouvais dommage que la voix de virginie ne soit pas utilisable en 64 bits
en fait il y a une astuce pour que ca fonctionne je viens de tester
étape 1
telecharger la voix de virginie
IcI par exemple et installez la

une fois la voix installé comme microsoft n'a pas juger bon de nous donner la possibilité de changer la voix
nous allons le faire manuellement
étape 2
allons trifouiller dans Windows et rendez vous dans
C:\Windows\sysWOW64\speech\SpeechUX
et cliquez sur sapi.cpl

vous avez la fenêtre de synthèse vocale et surprise dans le choix on retrouve virginie
choisissez la
et appliquer
a partir de maintenant dans vba le

Code :

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

Application.Speech.Speak

sera en Français avec la voix de virginie
=================================================================

exemple pour tester

Code :

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

1
2
3
Sub test_speech()
Application.Speech.Speak "bonjour tout le monde "
End Sub

si vous ouvrez le narrateur seule la voix de anna(anglais) est pris en compte
la voix de virginie ne s'intègre donc pas totalement dans l'environnement Windows
mais cela est suffisant pour s'amuser en vba ,vbs ,vb,perl et bien d'autre
en essayant le narrateur la voix de anna se remet par défaut il faudra donc recommencer l'opération étape 2

c'est une autre alternative pour ceux qui ne sont ou ne veulent pas être connectés et utiliser mon module Google voix

j'ai tester et ca fonctionne impeccablement

[78chris]

Bonjour

Testé impec !

Je n'ai aucune idée de ce que je ferais, ou pas, avec tes 2 contributions (celle-ci et la dictée) mais ayant sur mon PC textAloud et des voix achetées, je me demandais si je peux faire la même chose en utilisant ce canal dans VBA (quand on lance de nouvelles idées elle vous retombent dessus ! : si le coeur t'en dit...

Edit : j'ai regardé. Il existe une possibilité command line mais elle est payante et très cher. Donc oublie...

[patricktoulon]

Bonsoir chris

oui je pense que l'on doit pouvoir lancer une commande en vba ou vbs
regarde du coté de l'object"WScript.Shell" on lance les applications avec ca en général je n'est pas ton app textloud donc je ne peut pas tester

[78chris]

Re,

Comme tu avais attisé ma curiosité, j'ai téléchargé le module CommandLine de cette appli (autre exe que le soft lui-même en essai pour 30 jours)et effectivement avec un simple shell cela fonctionne. Je me coucherai moins bête ...

Edit Coucou Clément : je n'avais pas rafraichi. Toujours bon à savoir. Merci...

Edit2 correction fautes de frappe

[NVCfrm]

Salut,
pour compléter;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub virgi()
 
    Dim texte, parler
    texte = "Bonjour Patrick. Je suis contente de te revoir"
    Set parler = CreateObject("sapi.spvoice")
    With parler
        .Volume = 50
        .Speak texte
        texte = "Tu souhaites donc une voix plus discrète ?"
        .Volume = 10
        .Speak texte
        texte = "Parles fort ! J'entends pas ta réponse."
        .Volume = 100
        .Speak texte
        texte = "Tu peux régler la vitesse de lecture et bien d'autres choses, tu sais ! Telle que commencer la lecture du texte à une position de ton choix. Ou déterminer le nombre de lettres du dernier mot lu."
        .Rate = 6
        .Speak texte
        .Rate = 1
        .Speak "C'était Trop rapide"
        Debug.Print .Voice.ID
        texte = "Oui Patrick! Tu peux affecter ces réglages à des contrôles dans un Userform."
        .Speak texte
    End With
 
    End Sub

Mais c'est limité pour quelqu'un qui veut faire des trucs élaborés.
MicroSoft a une api Microsoft Speech Object Library garnie qui permet des choses très avancés.
Voir le site http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
C'est manipulable en vba en cochant la référence.

Un exemple très peu significatif des possibilités:

Code :

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

1
2
3
4
5
6
7
 
Dim Sp As SpSharedRecoContext
Set Sp= New SpSharedRecoContext
With Sp
        .Voice.Volume = 50
        .Voice.Speak "Bonjour"
End With

[patricktoulon]

bonjour a tous
c'est curieux quand même ???

les voix en Français sont un problème récurent pour W 7 64 depuis sa sortie
et le fait de lancer un sujet fait sortir d'après ce que je viens de lire 2 autre solutions
comme quoi? hein..........nvcfrm je vais regarder de plus prêt ce que tu a proposé ca me semble plus adapter pour faire un module générique pour tous

[clementmarcotte]

Bonjour,

Bonjour

Testé impec !

Je n'ai aucune idée de ce que je ferais, ou pas, avec tes 2 contributions (celle-ci et la dictée) mais ayant sur mon PC textAloud et des voix achetées, je me demandais si je peux faire la même chose en utilisant ce canal dans VBA (quand on lance de nouvelles idées elle vous retombent dessus ! : si le coeur t'en dit...

Edit : j'ai regardé. Il existe une possibilité command line mais elle est payante et très cher. Donc oublie...

Tout comme Patrick, je ne connais pas ton application, et je ne pense pas que ce soit compatible avec VB6 - VBA, mais, chez Microsoft, ils offrent gratuitement une plate-forme pour applications numériques. C'est compatible avec la plate-forme .net. Sauf que c'est en 64 bits uniquement:



Le runtime:

http://www.microsoft.com/en-us/downl....aspx?id=27225

Les voix et les modules de reconnaissance vocale:

http://www.microsoft.com/en-us/downl...190a24fa6=True


Le SDK:

http://www.microsoft.com/en-us/downl....aspx?id=27226