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 !

 

[Phil69970]

Bonjour @Attila451

A priori tu arrives à trouver tout seul donc je te laisse chercher 😳

==> https://excel-downloads.com/threads/remplacer-un-mot-et-ajouter-une-couleur.20087453/#post-20691710

 

[patricktoulon]

perso je suis perplexe la voix normalement c'est cortana depuis w8(en option) et d'office sur w10
donc question sur quel sytem windows travaille tu ?

 

[Attila451]

Bonjour @Attila451

A priori tu arrives à trouver tout seul donc je te laisse chercher 😳

==> https://excel-downloads.com/threads/remplacer-un-mot-et-ajouter-une-couleur.20087453/#post-20691710

 

[Attila451]

Bonjour,
Mea culpa, mea culpa, mea MAXIMA culpa.. Désolé pour cet impair
Cdlt

 

[Attila451]

Bonjour @Attila451

A priori tu arrives à trouver tout seul donc je te laisse chercher 😳

==> https://excel-downloads.com/threads/remplacer-un-mot-et-ajouter-une-couleur.20087453/#post-20691710

Je ne comprends pas trop ta remarque, je t'ai remercié le jour même pour ta réponse et sur le post de réponse... Je veux bien valider mais précises comment stp

 

[Attila451]

perso je suis perplexe la voix normalement c'est cortana depuis w8(en option) et d'office sur w10
donc question sur quel sytem windows travaille tu ?

Bonjour, sur Windows10.
Cdlt

 

[nullosse]

Salut,
le windows 10 il est en français ou en anglais ?
Sinon sous windows 10 , 11 il faut aller dans les paramètres et regarder les voix installées et celle choisie dans heure et langue - Voix :

Nullosse.

 

[Attila451]

Bonjour,
Merci ! J'ai tout en grisé... je pense que c'est un paramétrage groupe... Je vais voir l'administrateur.

 

[patricktoulon]

essaie de passer par sapi.voice

Sub DireBonjourAvecHortense()
    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, "Hortense", vbTextCompare) > 0 Then
            Set voix.voice = voixDisponible
            trouve = True
            Exit For
        End If
    Next
    
    If trouve Then
        voix.Speak "Bonjour,;   ;je suis Hortense."
    Else
        MsgBox "La voix 'Hortense' n'est pas disponible sur ce système.", vbExclamation
    End If
End Sub

 

[Phuong]

Option Explicit
'Tools > References and [x] Microsoft Speech Object Library.
Sub ExcelSpeak()
     Call Speak("Hi! How are you, today?", "female")
     Application.Wait Now() + TimeValue("0:0:01")
     Call Speak("Hi! Glad to see you!", "male")
End Sub


Sub Speak(say As String, Optional gender As String = "male")
     Dim Talk As Object, i As Single
     i = IIf(gender <> "male", 1, 0)
     Set Talk = CreateObject("SAPI.SpVoice")
     Talk.Volume = 100
     Set Talk.Voice = Talk.GetVoices().Item(i)
     Talk.Speak say
End Sub

 

[patricktoulon]

@Phuong
depuis quand avec CreateObject("SAPI.SpVoice") a ton besoins d'activer la référence?????

 

[Attila451]

essaie de passer par sapi.voice

Sub DireBonjourAvecHortense()
    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, "Hortense", vbTextCompare) > 0 Then
            Set voix.voice = voixDisponible
            trouve = True
            Exit For
        End If
    Next
    
    If trouve Then
        voix.Speak "Bonjour,;   ;je suis Hortense."
    Else
        MsgBox "La voix 'Hortense' n'est pas disponible sur ce système.", vbExclamation
    End If
End Sub

 

[Attila451]

Option Explicit
'Tools > References and [x] Microsoft Speech Object Library.
Sub ExcelSpeak()
     Call Speak("Hi! How are you, today?", "female")
     Application.Wait Now() + TimeValue("0:0:01")
     Call Speak("Hi! Glad to see you!", "male")
End Sub


Sub Speak(say As String, Optional gender As String = "male")
     Dim Talk As Object, i As Single
     i = IIf(gender <> "male", 1, 0)
     Set Talk = CreateObject("SAPI.SpVoice")
     Talk.Volume = 100
     Set Talk.Voice = Talk.GetVoices().Item(i)
     Talk.Speak say
End Sub

Bonjour, merci pour l'aide mais la macro plante: la méthode Item de l'objet IspeechObjectTokens a échoué...

 

[Attila451]

essaie de passer par sapi.voice

Sub DireBonjourAvecHortense()
    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, "Hortense", vbTextCompare) > 0 Then
            Set voix.voice = voixDisponible
            trouve = True
            Exit For
        End If
    Next
    
    If trouve Then
        voix.Speak "Bonjour,;   ;je suis Hortense."
    Else
        MsgBox "La voix 'Hortense' n'est pas disponible sur ce système.", vbExclamation
    End If
End Sub

Bonjour, merci pour le coup de main, apparemment pas d'Hortense disponible 🙁
Cdlt