Discussion :

[baryum]

Bonjour,

J'ai créé une application Excel pour réviser mes mots en anglais (sans lecture vocale des mots). En ce moment, je lis un livre sur VBA Excel et j'ai appris existence de l'application Speech.
J'ai décidé d'améliorer mon application et d'y associer la lecture vocale. Le soucis (car il y en toujours un) c'est que le pc me lit le mot anglais en français.

Ce que je veux :

Que le mot anglais affiché dans la textbox soit lu en anglais

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TextBox_English_Change()
 
    If TextBox_English.Text <> "" Then
 
        Application.Speech.Speak (TextBox_English.Text)
 
    End If
 
End Sub

autres informations :

Code :

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

MsgBox (Application.LanguageSettings.LanguageID(msoLanguageIDUI))

résultat : 1036 (Français)



Avancement de mes recherches :

Sur WINDOW 8.1, Faire une recherche sur le PC avec le mot clé "Synthèse vocale"
Cliquer sur "Synthèse vocale"
Dans sélection de voix, choisir "Microsoft Hazel Desktop-English"
Cliquer sur Ok

De cette manière, le code Private Sub TextBox_English_Change() fonctionne.

Maintenant, que je sais faire cette tâche manuellement, comment transformer cela en VBA dans ma procédure, en sachant que l'idéal serait de revenir à l'état de la voix française en fin de procédure ?

Je continue à chercher mais si vous avez une solution ^^, je suis preneur



Merci d'avance