XL 2021 Application.speech.speak

[Attila451]

Bonjour,
J'ai voulu intégrer un message vocal dans une macro mais le message est lu avec un accent "Amerloque" très prononcé alors qu'il est destiné à un public Français 🙂

Sub UseSpeech()
Application.Speech.Speak "Merci d'avance pour votre aide"
End Sub

Comment faire svp pour que le message soit un peu plus proche de Molière ?
Merci d'avance !

 

[patricktoulon]

bonjour
donc tu dois être vraiment bloqué
donc la sauf utilisation d'app tiers c'est mort si tant est que tu es le droit d'installer babooka par exemple

 

[Lolote83]

Bonjour à tous,
J'ai utilisé le programme fourni par @patricktoulon (que je salu) au passage et j'ai voulu tester avec les autres voies disponibles sur mon PC
Voir ci-dessous

J'ai donc Hortense, Julie et Paul
J'ai donc modifié le fichier de Patrick afin de pouvoir choisir le nom de la personne qui parle

Sub TestAvecLesNoms()
    xQuiParle = "Hortense"
    'xQuiParle = "Julie"
    'xQuiParle = "Paul"
    Call DireBonjour(xQuiParle)
End Sub

Sub DireBonjour(xQuiParle)
    Dim Voix As Object
    Dim VoixDisponible As Object
    Dim Trouve As Boolean
    
    ' Créer l'objet SAPI.SpVoice
    Set Voix = CreateObject("SAPI.SpVoice")
    Voix.Volume = 100   'pour le volume de 0 à 100
    Voix.Rate = 2      ' pour la vitesse d'élocution de -10 à 10
 
    ' Parcourir les voix disponibles pour chercher "Hortense"
    Trouve = False
    For Each VoixDisponible In Voix.GetVoices
        If InStr(1, VoixDisponible.GetDescription, xQuiParle, vbTextCompare) > 0 Then
            Set Voix.Voice = VoixDisponible
            Trouve = True
            Exit For
        End If
    Next
    
    If Trouve Then
        Voix.Speak "Bonjour,;   ;je suis " & xQuiParle
    Else
        MsgBox "La voix '" & xQuiParle & "' n'est pas disponible sur ce système.", vbExclamation
    End If
End Sub

Or si j'utilise Hortense, no problème mais que ce soit pour Julie ou Paul, j'ai le message suivant

@patricktoulon , quand tu dis dans le code "Parcourir les voix disponibles pour chercher "Hortense", seule Hortense fonctionne.
Pourquoi ?????
Merci pour le retour
@+ Lolote83

 

[patricktoulon]

re
Bonjour @Lolote83

• L’erreur 400 est générique en VBA, mais dans ce cas elle indique que tu essaies d'utiliser une voix installée uniquement pour un moteur spécifique (par exemple, la plateforme OneCore) non accessible via CreateObject("SAPI.SpVoice").
• En clair, certaines voix (comme Paul, Julie, etc.) visibles dans Windows (Paramètres > Heure et langue > Voix) sont installées pour OneCore, pas pour le moteur COM classique (SAPI 5) que ton VBA utilise.

---

 

[Nicolas JACQUIN]

Bonjour à tous,
J'ai utilisé le programme fourni par @patricktoulon (que je salu) au passage et j'ai voulu tester avec les autres voies disponibles sur mon PC
Voir ci-dessous

J'ai donc Hortense, Julie et Paul
J'ai donc modifié le fichier de Patrick afin de pouvoir choisir le nom de la personne qui parle

Or si j'utilise Hortense, no problème mais que ce soit pour Julie ou Paul, j'ai le message suivant

Regarde la pièce jointe 1219923

@patricktoulon , quand tu dis dans le code "Parcourir les voix disponibles pour chercher "Hortense", seule Hortense fonctionne.
Pourquoi ?????
Merci pour le retour
@+ Lolote83

Bonjour à tous,
Test à faire :

Sub ListerVoixDisponibles()
    Dim synthese As Object
    Dim voix As Object
    Set synthese = CreateObject("SAPI.SpVoice")
    
    Debug.Print "Voix installées sur ce système :"
    For Each voix In synthese.GetVoices
        Debug.Print "? " & voix.GetDescription
    Next
End Sub

 

[patricktoulon]

Bonjour
ça sert a rien sur Win 10 et 11 seule hortence en français et zira en anglais sont disponible nativement et compatible avec sapi
inutile de faire des propositions qui ont déjà été faite
le post 18 est suffisamment clair je crois non ?
si hortence n'est pas dispos alors cette partie de win est bloquée (voir ton administrateur)

 

[nullosse]

Salut,
pour voir les voix qui sont installées sur son ordinateur à la fois pour l' API Speech_OneCore ou l'API Speech de TTS lancer ces commandes sous powershell :

Get-ChildItem -Path HKLM:\Software\Microsoft\Speech_OneCore\Voices\Tokens\* -Recurse
Get-ChildItem -Path HKLM:\SOFTWARE\Microsoft\Speech\Voices\Tokens\* -Recurse

Moi j'ai Zira (anglais) et Hortense (français) pour l'API Speech et Hortense, Julie et Paul pour l'API Speech_OneCore sous Windows 11.

L'accès à Powershell et aux clés de registre peut être problématique dans un environnement professionnel où les droits sont centralisés sur un serveur.

Nullosse

 

[patricktoulon]

Bonjour à tous
j'ai créé une ressource en utilisant une vielle astuce de déplacement ou création de clé de registre comme j'avais fait en 2014 ICI dans le tutoriel pour utiliser la voix virginie sur windows 7 et office 2007 sauf que la c'est pour Windows 10/11 et toutes les versions d'office excel
cette ressource sera disponible dans quelques jours après modération
les voix françaises Hortense , Julie et paul seront désormais disponible pour sapi 5 en vba
Patrick