Application.speech.speak comment désactiver

Bonjour,

Comment faire pour désactiver l'application.speech.speak lors d'une lecture, sans passer par 'Echap'

On clic sur un bouton --> lecture OK avec application.speech.speak

mais pas d'arrêt ou de stop, sauf la touche Echap = Erreur

Est-ce que vous avez une idée en VBA?

Merci

@bientôt

Bonjour,

je n'utilise pas cet objet, donc pas de retour d'expérience.

L'explorateur d'objet nous montre un 4ème paramètre optionnel [purge]
Speak(Text As String, [SpeakAsync], [SpeakXML], [Purge])
Tente avec le même texte et True en 4ème paramètre (?)
eric

Edit : a-priori, ne pas remettre le texte.

Tente application.speech.speak ,,,True
ou
application.speech.speak Purge:=True

Bonjour,

Et merci beaucoup pour votre retour.

Je vais essayer

@bientôt

Bonjour,

Ça ne peut pas fonctionner.

Pendant la lecture ça mouline, impossible de cliquer sur un bouton.

Pas le choix, faut utiliser la touche "echap"

Merci de ton aide

@bientôt

Bonsoir,

en ajoutant un "DoEvents" avant la lecture afin de rendre la main à l'utilisateur ?

@ bientôt

LouReeD

Bonjour,

j'y suis presque...

If Cel <> "" Then DoEvents: Application.Speech.Speak Cel ....> là c'est OK

Application.Speech.Speak Cel, , Purge:=True-----> pour cette ligne si je mets un bouton ça plante

j'ai essayé de mettre MsgBox mais la boite de dialogue disparait quand on clic sur OK

Peut-on y mettre un code si (clic 1 fois =lit , si clic 2fois = arrêt)?

voici le code

Sub TraducFR()
    Set Sh_Fr = Sheets("TEXTE-Français-Italien")
     Dim DerLi As Long, rep As String
    DerLi = Sh_Fr.Range("A" & Rows.Count).End(xlUp).Row

For Each Cel In Sh_Fr.Range("A1:A" & DerLi)
'rep = MsgBox("Clique sur ok pour écouter, annuler pour arrêter la lecture", vbOKCancel + vbExclamation, "Lecture")
        If Cel <> "" Then DoEvents: Application.Speech.Speak Cel ' ok pour la lecture
  Next
    Sheets("jeu").Activate
    Set Sh_Fr = Nothing
End Sub

merci

@ bientôt

Bonjour,

Bouton droit pour lecture ok

Mais double clic gauche pour stopper, plantage

Impossible de l'arrêter sans passer par esc

Pas le choix

Merci beaucoup de votre aide

@bientôt

Bonsoir,

si le double clic vous convient pour arrêter la lecture alors regardez (écoutez) ceci :

@ bientôt

LouReeD

Bonjour,

ça ne fonctionne pas

 Sub test()

'Ne pas oublier d'ajouter cette ligne(j'étais sur l'espagnol):

1  CreateObject("SAPI.SpVoice").Voice.Category.Default = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_fr-FR_Hortense_11.0"

  ' il garde en mémoire le dernier lu

    ' on active la gestion d'erreur avec renvoi vers la lecture de fin
2    On Error GoTo ArrêtLecture
    ' on active la gestion d'arrêt de la lecture avec renvoi en gestion d'erreur
3    Application.EnableCancelKey = xlErrorHandler
    ' on prévient que l'on peut arrêter la lecture avec un double clic
4    Application.Speech.Speak "Faites un double clic pour arrêter le texte parlé "
    ' on initialise la deuxième lecture

5 Application.Speech.Speak "Bonjour, " _
    & "J'ai ajouté des textes 'parlés' dans un excel, " _
    & "pour expliquer -par exemple- pourquoi un champ est mal saisi." _
    & "Je souhaiterai, dans le cas ou le texte parlé est trop long pouvoir l'interrompre" _
    & "et continuer la suite de ma macro." _
    & "Connaitriez-vous une commande qui permette cela ?" _
    & " Merci d'avance."
    ' on a fini de lire on quitte la procédure
6    Exit Sub
' si le double clic alors on arrive ici
7 ArrêtLecture:
    ' on prévient que la lecture à été arrêtée

    '  ça ne fonctionne pas ligne 8 erreur 50290

8  Application.Speech.Speak "Vous avez stoppé la lecture !" 
End Sub

En ligne 8 erreur 50290

si je mets une MsgBox ça arrête la lecture mais dés que je clic sur OK de la Msgbox la lecture reprend

@ bientôt

Bonjour

Que répondre ? Chez moi le fichier envoyé fonctionne.

Clic sur le carré bleu, la voix indique qu'il faut double cliquer, puis le texte est lu, un double clic sur une cellule et la lecture est stoppé et annoncé...

@ bientôt

LouReeD

re

c'est exactement ce que j'ai fait...

plantage

@ bientôt

Avez vous testé sans modification ? C'est peut être votre ligne 1 qui coince...

Ou bien remplacez ESC par ESCAPE.

@ bientôt

LouReeD

Oui j'ai tout essayé mais ce n'est absolument pas grave.

Merci pour votre aide

@bientôt

Peut être est ce du à "2007"?

@ bientôt

LouReeD

Oui sûrement

mais ce n'est pas grave

dommage c'était sympa votre code 'camouflage'

merci

@bientôt

Je viens de tester votre code avec la ligne 1 et ceci fonctionne également !

@ bientôt

LouReeD

Bonsoir,

Ca n'arrive qu'à moi, sérieux. Si demain je vais acheter une tondeuse, vous pouvez être sûr qu'elle ne fonctionnera pas. Ça m'est déjà arrivé à plusieurs reprise.

Bref

Je vais désinstallé Excel et le réinstaller.

Bonne soirée

Toujours à l'affût !

C'est vrai, vous l'avez déjà dit : quand vous êtes sur un sujet vous ne le lâcher plus !

@ bientôt

LouReeD