Discussion :

[Chrispi]

Bonjour,

Je vous propose une petite procédure pour faire parler une application.

Posez sur un formulaire une zone de texte (Txt1) et un bouton (Btn1).

Code de la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Blabla()
Dim Msg, Sapi
Set Sapi = CreateObject("Sapi.spvoice")
  Msg = Txt1.Value 'Texte à lire
  Sapi.Speak Msg 'Lecture du texte
End Sub

Appliquer la procédure sur le clic du bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Btn1_Click()
  Blabla 'Lancement lecture du texte
End Sub

Pour essayer, assurez vous que vos haut-parleurs soient actifs puis saisissez un texte dans la zone de texte et cliquez sur le bouton.

[micniv]

C'est toujours intéressant d'essayer ces fonctions.
Merci de la faire découvrir.

[tee_grandbois]

bonsoir,
j'ai essayé cela fonctionne bien.
Merci pour l'astuce.

[Chrispi]

Bonjour,

Merci micniv et tee_grandbois.

On peut ajouter à la procédure la vitesse de diction et le volume.

Voilà le code avec les options :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Blabla()
Dim Msg, Sapi
Set Sapi = CreateObject("Sapi.spvoice")
  'Optionnel : Réglage vitesse et volume de la voix
  Sapi.Rate = 0 'Vitesse de la voix de -10 à 10
  Sapi.Volume = 100
  Msg = Txt1.Value 'Texte à lire
  Sapi.Speak Msg 'Lecture du texte
End Sub

[Robert1957]

Bonjour,

En complément, les propriétés et méthodes sont ICI

Bonne journée