Faire parler une application Access

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:

---

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:

---

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.

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

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

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:

---

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

---

Bonjour,

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

Bonne journée