1 pièce(s) jointe(s)
Application.Speech.Speak _code VBA pour changer la langue
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:
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:
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
Pièce jointe 167290
Merci d'avance
