Bonjour,
Je désirerais faire parler les cellules. J'ai fait ce que l'un des membres
du groupe m'a dit
de faire :
J'ai coché dans VBA Project la référence à MicrosoftSpeechObjectLibrary et
j'ai mis ce code
dans un module standard :
Public Vocal As New SpVoice
Public Phrase As Variant
Sub Information(ByVal Phrase As String)
Application.StatusBar = Phrase
Assistant.Visible = True
Vocal.Speak Phrase
End Sub
Sub Test_Parlage()
[A1].Value = "Bonjour Serge !! Je peux parler !!"
Information "Exécution de la macro"
Informatiion "Monsieur ! Moi je bosse"
Informatiion "Exécution terminée"
Information [A1].Value
End Sub
Le problème est qu'il y a bien une voix qui lit, mais c'est en américain. Je
souhaiterais l'avoir en français.
Quelqu'un peut-il m'aider ?
Daniel -- VBAXL Exemples de procédures Visual Basic pour Excel http://dj.joss.free.fr
"imej-clavier" a écrit dans le message de news:
| Bonjour, | Je désirerais faire parler les cellules. J'ai fait ce que l'un des membres | du groupe m'a dit | de faire : | J'ai coché dans VBA Project la référence à MicrosoftSpeechObjectLibrary et | j'ai mis ce code | dans un module standard : | Public Vocal As New SpVoice | Public Phrase As Variant | Sub Information(ByVal Phrase As String) | Application.StatusBar = Phrase | Assistant.Visible = True | Vocal.Speak Phrase | End Sub | Sub Test_Parlage() | [A1].Value = "Bonjour Serge !! Je peux parler !!" | Information "Exécution de la macro" | Informatiion "Monsieur ! Moi je bosse" | Informatiion "Exécution terminée" | Information [A1].Value | End Sub | Le problème est qu'il y a bien une voix qui lit, mais c'est en américain. Je | souhaiterais l'avoir en français. | Quelqu'un peut-il m'aider ? | | D'avance merci, | | Jean-michel | |
Bonjour,
Je crois qu'il existe un "pack" pour avoir la langue en français !
Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de news:
Od7hjm1iEHA.2660@TK2MSFTNGP15.phx.gbl...
| Bonjour,
| Je désirerais faire parler les cellules. J'ai fait ce que l'un des membres
| du groupe m'a dit
| de faire :
| J'ai coché dans VBA Project la référence à MicrosoftSpeechObjectLibrary et
| j'ai mis ce code
| dans un module standard :
| Public Vocal As New SpVoice
| Public Phrase As Variant
| Sub Information(ByVal Phrase As String)
| Application.StatusBar = Phrase
| Assistant.Visible = True
| Vocal.Speak Phrase
| End Sub
| Sub Test_Parlage()
| [A1].Value = "Bonjour Serge !! Je peux parler !!"
| Information "Exécution de la macro"
| Informatiion "Monsieur ! Moi je bosse"
| Informatiion "Exécution terminée"
| Information [A1].Value
| End Sub
| Le problème est qu'il y a bien une voix qui lit, mais c'est en américain. Je
| souhaiterais l'avoir en français.
| Quelqu'un peut-il m'aider ?
|
| D'avance merci,
|
| Jean-michel
|
|
Daniel -- VBAXL Exemples de procédures Visual Basic pour Excel http://dj.joss.free.fr
"imej-clavier" a écrit dans le message de news:
| Bonjour, | Je désirerais faire parler les cellules. J'ai fait ce que l'un des membres | du groupe m'a dit | de faire : | J'ai coché dans VBA Project la référence à MicrosoftSpeechObjectLibrary et | j'ai mis ce code | dans un module standard : | Public Vocal As New SpVoice | Public Phrase As Variant | Sub Information(ByVal Phrase As String) | Application.StatusBar = Phrase | Assistant.Visible = True | Vocal.Speak Phrase | End Sub | Sub Test_Parlage() | [A1].Value = "Bonjour Serge !! Je peux parler !!" | Information "Exécution de la macro" | Informatiion "Monsieur ! Moi je bosse" | Informatiion "Exécution terminée" | Information [A1].Value | End Sub | Le problème est qu'il y a bien une voix qui lit, mais c'est en américain. Je | souhaiterais l'avoir en français. | Quelqu'un peut-il m'aider ? | | D'avance merci, | | Jean-michel | |
