Bonjour,
Comment faire pour lire les cellules dans Excel,
Les boutons de la barre d'outils restent grisés et je n'ai pas l'option dans
le menu outils.
La lecture vocale est bien initialisé car cela fonctionne très bien avec
Microsoft Reader.
J'ai installé le TTS Français et je sais donc écouter des livres en français
dans MS Reader mais pas dans Excel.
La dictée vocale est disponible uniquement avec les versions Chinoise et
anglaise. En est il de même pour la relecture ?
Je possède les versions Office XP et Windows XP Pro, toutes deux en langue
française.
Merci de vos réponses.
Benoît Lefebvre.
PS: pour une réponse directe enlever le 'bluf'
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benoît Lefebvre
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
Merci pour vos réponses, mais malheureusement je crois que vous avez mal
compris le sens de ma question.
Les agents fonctionnent et parlent très bien
Ce que je souhaite c'est tout simplement relire mes cellules via l'option
Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre
d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent
grisés).
Tout ceci sans passez par du code VBA.
Malgré le fait que je suis développeur et que donc je maîtrise (pas trop
mal) le VBA.
@+ Benoît
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
Michel Pierron
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells()
On Error Resume Next
Dim TTS As Object
Set TTS = CreateObject("Speech.VoiceText")
If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit
Sub
TTS.Register "", " ": Err.Clear: TTS.Enabled = True
If Err.Number = 0 Then
Dim Cell As Range, Msg As String
For Each Cell In ActiveSheet.UsedRange
If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " "
Next Cell
If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte"
TTS.Speak Msg, 16
While TTS.IsSpeaking: DoEvents: Wend
Else
Status "Erreur Speech.VoiceText automation !"
End If
Set TTS = Nothing
End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS CreateObject("Speech.VoiceText.1")
Pour activer la barre d'outils Texte en parole, je pense qu'il te faut:
Démarrer / Panneau de configuration / Ajout/Suppression de programmes
Modifier Office XP en ajoutant le ou les composants nécessaires.
MP
"Benoît Lefebvre" <benoitlefebvre_@skynet.be> a écrit dans le message de
news:40086be4$0$318$ba620e4c@news.skynet.be...
Merci pour vos réponses, mais malheureusement je crois que vous avez mal
compris le sens de ma question.
Les agents fonctionnent et parlent très bien
Ce que je souhaite c'est tout simplement relire mes cellules via l'option
Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre
d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent
grisés).
Tout ceci sans passez par du code VBA.
Malgré le fait que je suis développeur et que donc je maîtrise (pas trop
mal) le VBA.
@+ Benoît
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
isabelle
:-) super ce code, Michel, je me suis bien amusé en lui faisant lire "zazazazazazazazazazazazazaza" isabelle
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
:-) super ce code, Michel, je me suis bien amusé en lui faisant lire
"zazazazazazazazazazazazazaza"
isabelle
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells()
On Error Resume Next
Dim TTS As Object
Set TTS = CreateObject("Speech.VoiceText")
If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit
Sub
TTS.Register "", " ": Err.Clear: TTS.Enabled = True
If Err.Number = 0 Then
Dim Cell As Range, Msg As String
For Each Cell In ActiveSheet.UsedRange
If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " "
Next Cell
If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte"
TTS.Speak Msg, 16
While TTS.IsSpeaking: DoEvents: Wend
Else
Status "Erreur Speech.VoiceText automation !"
End If
Set TTS = Nothing
End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > CreateObject("Speech.VoiceText.1")
Pour activer la barre d'outils Texte en parole, je pense qu'il te faut:
Démarrer / Panneau de configuration / Ajout/Suppression de programmes
Modifier Office XP en ajoutant le ou les composants nécessaires.
MP
"Benoît Lefebvre" <benoitlefebvre_@skynet.be> a écrit dans le message de
news:40086be4$0$318$ba620e4c@news.skynet.be...
Merci pour vos réponses, mais malheureusement je crois que vous avez mal
compris le sens de ma question.
Les agents fonctionnent et parlent très bien
Ce que je souhaite c'est tout simplement relire mes cellules via l'option
Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre
d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent
grisés).
Tout ceci sans passez par du code VBA.
Malgré le fait que je suis développeur et que donc je maîtrise (pas trop
mal) le VBA.
@+ Benoît
:-) super ce code, Michel, je me suis bien amusé en lui faisant lire "zazazazazazazazazazazazazaza" isabelle
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
isabelle
ho pardon, à lui faire lire isabelle
:-) super ce code, Michel, je me suis bien amusé en lui faisant lire "zazazazazazazazazazazazazaza" isabelle
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
ho pardon, à lui faire lire
isabelle
:-) super ce code, Michel, je me suis bien amusé en lui faisant lire
"zazazazazazazazazazazazazaza"
isabelle
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells()
On Error Resume Next
Dim TTS As Object
Set TTS = CreateObject("Speech.VoiceText")
If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit
Sub
TTS.Register "", " ": Err.Clear: TTS.Enabled = True
If Err.Number = 0 Then
Dim Cell As Range, Msg As String
For Each Cell In ActiveSheet.UsedRange
If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " "
Next Cell
If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte"
TTS.Speak Msg, 16
While TTS.IsSpeaking: DoEvents: Wend
Else
Status "Erreur Speech.VoiceText automation !"
End If
Set TTS = Nothing
End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > > CreateObject("Speech.VoiceText.1")
Pour activer la barre d'outils Texte en parole, je pense qu'il te faut:
Démarrer / Panneau de configuration / Ajout/Suppression de programmes
Modifier Office XP en ajoutant le ou les composants nécessaires.
MP
"Benoît Lefebvre" <benoitlefebvre_@skynet.be> a écrit dans le message de
news:40086be4$0$318$ba620e4c@news.skynet.be...
Merci pour vos réponses, mais malheureusement je crois que vous avez mal
compris le sens de ma question.
Les agents fonctionnent et parlent très bien
Ce que je souhaite c'est tout simplement relire mes cellules via l'option
Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre
d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent
grisés).
Tout ceci sans passez par du code VBA.
Malgré le fait que je suis développeur et que donc je maîtrise (pas trop
mal) le VBA.
@+ Benoît
:-) super ce code, Michel, je me suis bien amusé en lui faisant lire "zazazazazazazazazazazazazaza" isabelle
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
Michel Pierron
Mille excuses, j'avais juste oublié de joindre la petite proc Status qui va avec (mais c'est sans conséquences)
Sub Status(strMessage) MsgBox strMessage, 64 End Sub
MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
Mille excuses, j'avais juste oublié de joindre la petite proc Status qui va
avec (mais c'est sans conséquences)
Sub Status(strMessage)
MsgBox strMessage, 64
End Sub
MP
"Benoît Lefebvre" <benoitlefebvre_@skynet.be> a écrit dans le message de
news:40086be4$0$318$ba620e4c@news.skynet.be...
Merci pour vos réponses, mais malheureusement je crois que vous avez mal
compris le sens de ma question.
Les agents fonctionnent et parlent très bien
Ce que je souhaite c'est tout simplement relire mes cellules via l'option
Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre
d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent
grisés).
Tout ceci sans passez par du code VBA.
Malgré le fait que je suis développeur et que donc je maîtrise (pas trop
mal) le VBA.
@+ Benoît
Mille excuses, j'avais juste oublié de joindre la petite proc Status qui va avec (mais c'est sans conséquences)
Sub Status(strMessage) MsgBox strMessage, 64 End Sub
MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
isabelle
j'avais remplacé le mot statut par msgbox pour la faire fonctionner, je réaissais avec la suite. isabelle
Mille excuses, j'avais juste oublié de joindre la petite proc Status qui va avec (mais c'est sans conséquences)
Sub Status(strMessage) MsgBox strMessage, 64 End Sub
MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
j'avais remplacé le mot statut par msgbox pour la faire fonctionner, je
réaissais avec la suite.
isabelle
Mille excuses, j'avais juste oublié de joindre la petite proc Status qui va
avec (mais c'est sans conséquences)
Sub Status(strMessage)
MsgBox strMessage, 64
End Sub
MP
"Benoît Lefebvre" <benoitlefebvre_@skynet.be> a écrit dans le message de
news:40086be4$0$318$ba620e4c@news.skynet.be...
Merci pour vos réponses, mais malheureusement je crois que vous avez mal
compris le sens de ma question.
Les agents fonctionnent et parlent très bien
Ce que je souhaite c'est tout simplement relire mes cellules via l'option
Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre
d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent
grisés).
Tout ceci sans passez par du code VBA.
Malgré le fait que je suis développeur et que donc je maîtrise (pas trop
mal) le VBA.
@+ Benoît
j'avais remplacé le mot statut par msgbox pour la faire fonctionner, je réaissais avec la suite. isabelle
Mille excuses, j'avais juste oublié de joindre la petite proc Status qui va avec (mais c'est sans conséquences)
Sub Status(strMessage) MsgBox strMessage, 64 End Sub
MP
"Benoît Lefebvre" a écrit dans le message de news:40086be4$0$318$
Merci pour vos réponses, mais malheureusement je crois que vous avez mal compris le sens de ma question. Les agents fonctionnent et parlent très bien Ce que je souhaite c'est tout simplement relire mes cellules via l'option Outils-Speech (qu'y n'apparaît même pas dans mon menu) ou via la barre d'outil 'Text to Speech" (qui apparaît mais dont les boutons restent grisés). Tout ceci sans passez par du code VBA. Malgré le fait que je suis développeur et que donc je maîtrise (pas trop mal) le VBA. @+ Benoît
Benoît Lefebvre
Merci, c'est exactement ce que je cherchais. Juste une petite précision, ou puis-je trouver la doc pour CreateObject("Speech.VoiceText") ? J'ai cherché sur le Net, mais je n'ais rien trouvé de bien précis. En fait j'aimerais connaître les méthodes et propriétés de cet objet. Notamment pour faire parler avec l'accent français, avec un agent, je sais définir .LanguageID = &H40C Sinon, parfait et encore merci @+ Benoît
"Michel Pierron" a écrit dans le message de news:
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
Merci, c'est exactement ce que je cherchais.
Juste une petite précision, ou puis-je trouver la doc pour
CreateObject("Speech.VoiceText") ?
J'ai cherché sur le Net, mais je n'ais rien trouvé de bien précis.
En fait j'aimerais connaître les méthodes et propriétés de cet objet.
Notamment pour faire parler avec l'accent français, avec un agent, je sais
définir .LanguageID = &H40C
Sinon, parfait et encore merci
@+ Benoît
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:OZu7BFQ3DHA.556@TK2MSFTNGP11.phx.gbl...
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells()
On Error Resume Next
Dim TTS As Object
Set TTS = CreateObject("Speech.VoiceText")
If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit
Sub
TTS.Register "", " ": Err.Clear: TTS.Enabled = True
If Err.Number = 0 Then
Dim Cell As Range, Msg As String
For Each Cell In ActiveSheet.UsedRange
If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " "
Next Cell
If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte"
TTS.Speak Msg, 16
While TTS.IsSpeaking: DoEvents: Wend
Else
Status "Erreur Speech.VoiceText automation !"
End If
Set TTS = Nothing
End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > CreateObject("Speech.VoiceText.1")
Pour activer la barre d'outils Texte en parole, je pense qu'il te faut:
Démarrer / Panneau de configuration / Ajout/Suppression de programmes
Modifier Office XP en ajoutant le ou les composants nécessaires.
MP
Merci, c'est exactement ce que je cherchais. Juste une petite précision, ou puis-je trouver la doc pour CreateObject("Speech.VoiceText") ? J'ai cherché sur le Net, mais je n'ais rien trouvé de bien précis. En fait j'aimerais connaître les méthodes et propriétés de cet objet. Notamment pour faire parler avec l'accent français, avec un agent, je sais définir .LanguageID = &H40C Sinon, parfait et encore merci @+ Benoît
"Michel Pierron" a écrit dans le message de news:
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte" TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut: Démarrer / Panneau de configuration / Ajout/Suppression de programmes Modifier Office XP en ajoutant le ou les composants nécessaires. MP
Clément Marcotte
Bonjour,
Tu peux aller fouiller à partir de là:
http://www.microsoft.com/msagent/default.asp
"Benoît Lefebvre" a écrit dans le message de news:4009b000$0$311$
Merci, c'est exactement ce que je cherchais. Juste une petite précision, ou puis-je trouver la doc pour CreateObject("Speech.VoiceText") ? J'ai cherché sur le Net, mais je n'ais rien trouvé de bien précis. En fait j'aimerais connaître les méthodes et propriétés de cet objet.
Notamment pour faire parler avec l'accent français, avec un agent, je sais
définir .LanguageID = &H40C Sinon, parfait et encore merci @+ Benoît
"Michel Pierron" a écrit dans le message de news:
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit
Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte"
TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut:
Démarrer / Panneau de configuration / Ajout/Suppression de programmes
Modifier Office XP en ajoutant le ou les composants nécessaires. MP
Bonjour,
Tu peux aller fouiller à partir de là:
http://www.microsoft.com/msagent/default.asp
"Benoît Lefebvre" <benoitlefebvre_@skynet.be> a écrit dans le message
de news:4009b000$0$311$ba620e4c@news.skynet.be...
Merci, c'est exactement ce que je cherchais.
Juste une petite précision, ou puis-je trouver la doc pour
CreateObject("Speech.VoiceText") ?
J'ai cherché sur le Net, mais je n'ais rien trouvé de bien précis.
En fait j'aimerais connaître les méthodes et propriétés de cet
objet.
Notamment pour faire parler avec l'accent français, avec un agent,
je sais
définir .LanguageID = &H40C
Sinon, parfait et encore merci
@+ Benoît
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:OZu7BFQ3DHA.556@TK2MSFTNGP11.phx.gbl...
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells()
On Error Resume Next
Dim TTS As Object
Set TTS = CreateObject("Speech.VoiceText")
If TTS Is Nothing Then Status "Erreur Speech.VoiceText création
!": Exit
Sub
TTS.Register "", " ": Err.Clear: TTS.Enabled = True
If Err.Number = 0 Then
Dim Cell As Range, Msg As String
For Each Cell In ActiveSheet.UsedRange
If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " "
Next Cell
If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de
texte"
TTS.Speak Msg, 16
While TTS.IsSpeaking: DoEvents: Wend
Else
Status "Erreur Speech.VoiceText automation !"
End If
Set TTS = Nothing
End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > > CreateObject("Speech.VoiceText.1")
Pour activer la barre d'outils Texte en parole, je pense qu'il te
faut:
Démarrer / Panneau de configuration / Ajout/Suppression de
programmes
Modifier Office XP en ajoutant le ou les composants nécessaires.
MP
"Benoît Lefebvre" a écrit dans le message de news:4009b000$0$311$
Merci, c'est exactement ce que je cherchais. Juste une petite précision, ou puis-je trouver la doc pour CreateObject("Speech.VoiceText") ? J'ai cherché sur le Net, mais je n'ais rien trouvé de bien précis. En fait j'aimerais connaître les méthodes et propriétés de cet objet.
Notamment pour faire parler avec l'accent français, avec un agent, je sais
définir .LanguageID = &H40C Sinon, parfait et encore merci @+ Benoît
"Michel Pierron" a écrit dans le message de news:
Bonjour Benoît; pour faire lire les cellules:
Sub ReadCells() On Error Resume Next Dim TTS As Object Set TTS = CreateObject("Speech.VoiceText") If TTS Is Nothing Then Status "Erreur Speech.VoiceText création !": Exit
Sub TTS.Register "", " ": Err.Clear: TTS.Enabled = True If Err.Number = 0 Then Dim Cell As Range, Msg As String For Each Cell In ActiveSheet.UsedRange If Len(Cell.Text) > 0 Then Msg = Msg & Cell.Text & " " Next Cell If Len(Msg) = 0 Then Msg = "Aucune cellule ne contient de texte"
TTS.Speak Msg, 16 While TTS.IsSpeaking: DoEvents: Wend Else Status "Erreur Speech.VoiceText automation !" End If Set TTS = Nothing End Sub
Si tu as une erreur de création de l'objet, essaie avec Set TTS > > CreateObject("Speech.VoiceText.1") Pour activer la barre d'outils Texte en parole, je pense qu'il te faut:
Démarrer / Panneau de configuration / Ajout/Suppression de programmes
Modifier Office XP en ajoutant le ou les composants nécessaires. MP
