Changer la voix ( fonction speak vba)

Version imprimable

13/04/2019, 15h43
RobertPaul

Changer la voix ( fonction speak vba)

Bonjour

J'ai crée un application vba pour réviser des phrases et du vocabulaire en anglais et français.
En fonction des pc que j'utilise avec le même fichier excel vba la voix est différente et je n'arrive pas à la modifier.
Je viens d'acheter un pc avec windows 10 et office 2016 , la voix est une voix française et la fonction vba " speak" lit les chiffres en francais alors que je veux que la fonction "speak de vb"a lise le texte et les chiffres en anglais.

Merci de votre aide
13/04/2019, 16h18
patricktoulon

re

Bonjour
ceci pourrait éventuellement t'intéresser
https://www.developpez.net/forums/d1...-francais-vba/
il est montré comment changer de voix pour sapi ou application.speech.peak
13/04/2019, 18h51
RobertPaul

Bonjour Patrick

tout d abord merci pour ta réponse

J'avoue la réponse est trop complexe pour moi

Je suis novice en vba et j'ai juste utiliser la fonction speak pour lire une cellule et je trouve ca super .

Je recherche juste quelque ligne simple de code a rajouter a mon programme pour qu il puisse lire avec la voix de david au lieu de la voix d' Hortense actuellement

J'ai verifie dans mon registre j'ai les voix ci dessous :
J'ai Hortense ,david et zira

Merci pour votre aide
13/04/2019, 19h07
patricktoulon

re

ben oui mais non: simple ca le sera pas

il faudrait déjà savoir si les voix sont compatible avec ta version d'office ce qui m'entonnerait, microsorft n'a jamais fait d'effort de ce coté la

par contre peut être y a t il un truc a faire pour les voix que tu a il faut fouiller sur le net
n'ayant pas ton system d'exploitation je ne peux t'en dire plus
13/04/2019, 19h29
RobertPaul

j'ai windows 10 famille et office 2016
13/04/2019, 21h45
patricktoulon

re

re
W10 je touche pas et j'en veux pas
2016 j'ai pas et j'aurais jamais
je ne peux donc pas plus t'aider

saurais tu aller voir une clé dans la base de registre ????
13/04/2019, 22h24
RobertPaul

1 pièce(s) jointe(s)

oui
ùais je n'arrive pas a mettre la copie ici alors g joint en piece jointe la copie du registre

Merci merci
13/04/2019, 22h37
patricktoulon

1 pièce(s) jointe(s)

re

re
ton 2016 c'est un 32 bits? si oui ca devrai fonctionner si non il faut regarder si tu les a aussi dans

Pièce jointe 466527
14/04/2019, 00h00
RobertPaul

1 pièce(s) jointe(s)

J'ai utilise le code suivant que j'ai récupère ,
j'ai copie l'adresse de la voix de zira de mon registre dans ce code , cela lit bien mais le text est lu en Français surtout le 14 qui est lu comme quatorze et non pas forteen
14/04/2019, 00h05
RobertPaul

Merci Patrick , tes réponses m'encourage à persévérer …
(-:
14/04/2019, 08h16
patricktoulon

re

re
les deux textes sont lu?????
14/04/2019, 19h54
RobertPaul
Bonjour

Finalement j'ai trouve du code qui répond a mon problème
Je ne sais pas encore comment je dois le placer dans ma macro mais déja j'arrive a lire les voix qui sont installé .
Code:

1 2 3 4 5 6 7 Sub voixa() Dim speech As New SpVoice Set speech.voice = speech.GetVoices.Item(0) speech.Speak ("14Hello World!") End Sub
voici le lien
https://social.msdn.microsoft.com/Fo...forum=exceldev
14/04/2019, 22h17
RobertPaul

Citation:

Envoyé par patricktoulon

re
les deux textes sont lu?????

Oui les deux ou trois en fonction du chiffre speech.GetVoices.Item(0) et du nombre de voix disponible.