Bonjour,
Comment faire pour lire les cellules dans Excel,
Les boutons de la barre d'outils restent gris=E9s et je=20
n'ai pas l'option dans le menu outils.
La lecture vocale est bien initialis=E9 car cela fonctionne=20
tr=E8s bien avec Microsoft Reader.
J'ai install=E9 le TTS Fran=E7ais et je sais donc =E9couter des=20
livres en fran=E7ais dans MS Reader mais pas dans Excel.
La dict=E9e vocale est disponible uniquement avec les=20
versions Chinoise et anglaise. En est il de m=EAme pour la=20
relecture ?
Je poss=E8de les versions Office XP et Windows XP Pro,=20
toutes deux en langue fran=E7aise.
Merci de vos r=E9ponses.
Beno=EEt Lefebvre.
PS: pour une r=E9ponse 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
Christian Herbé
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.
Pour tester ta config, fais la manip suivante:
démarrez l'éditeur Visual Basic (Menu Outils | Macro | Macros | Visual editor). Insérez un userform Cliquez avec le bouton droit de la souris sur le fond de la boite à outils et sélectionnez "Contrôles supplémentaires" Dans la liste dec contrôles disponibles, cochez "Microsoft Agent Control" Un contrôle "Agent" s'est ajouté dans la boite à outils Glissez le sur le Userform Double-cliquez sur la grille du Userform pour accéder à la fenêtre de code collez le code suivant et exécutez le (n'oubliez pas d'activez le son de l'ordinateur!):
Private Sub UserForm_Activate()
UserForm1.Hide Dim Merlin As IAgentCtlCharacter chemin = Environ("windir") & "msagentcharspeedy.acs"
Set Merlin = Agent1.Characters("Merlin") Merlin.Show Merlin.Speak "Bonjour Benoît Lefebvre" 'pause de 10 secondes Application.Wait (TimeSerial(Hour(Now()), _ Minute(Now()), Second(Now()) +10))
End Sub
Si elle ne fonctionne pas, tu as un Pb avec ta config Excel. Fais la même manip dans Word ou PowerPoint.
La dictée vocale est disponible uniquement avec les versions Chinoise et anglaise. En est il de même pour la relecture ?
Non, le Français est dispo en lecture.
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.
Pour tester ta config, fais la manip suivante:
démarrez l'éditeur Visual Basic (Menu Outils | Macro | Macros |
Visual editor).
Insérez un userform
Cliquez avec le bouton droit de la souris sur le fond de la boite à
outils et sélectionnez "Contrôles supplémentaires"
Dans la liste dec contrôles disponibles, cochez "Microsoft Agent
Control"
Un contrôle "Agent" s'est ajouté dans la boite à outils
Glissez le sur le Userform
Double-cliquez sur la grille du Userform pour accéder à la fenêtre
de code
collez le code suivant et exécutez le (n'oubliez pas d'activez le
son de l'ordinateur!):
Private Sub UserForm_Activate()
UserForm1.Hide
Dim Merlin As IAgentCtlCharacter
chemin = Environ("windir") & "msagentcharspeedy.acs"
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.
Pour tester ta config, fais la manip suivante:
démarrez l'éditeur Visual Basic (Menu Outils | Macro | Macros | Visual editor). Insérez un userform Cliquez avec le bouton droit de la souris sur le fond de la boite à outils et sélectionnez "Contrôles supplémentaires" Dans la liste dec contrôles disponibles, cochez "Microsoft Agent Control" Un contrôle "Agent" s'est ajouté dans la boite à outils Glissez le sur le Userform Double-cliquez sur la grille du Userform pour accéder à la fenêtre de code collez le code suivant et exécutez le (n'oubliez pas d'activez le son de l'ordinateur!):
Private Sub UserForm_Activate()
UserForm1.Hide Dim Merlin As IAgentCtlCharacter chemin = Environ("windir") & "msagentcharspeedy.acs"
Set Merlin = Agent1.Characters("Merlin") Merlin.Show Merlin.Speak "Bonjour Benoît Lefebvre" 'pause de 10 secondes Application.Wait (TimeSerial(Hour(Now()), _ Minute(Now()), Second(Now()) +10))
End Sub
Si elle ne fonctionne pas, tu as un Pb avec ta config Excel. Fais la même manip dans Word ou PowerPoint.
La dictée vocale est disponible uniquement avec les versions Chinoise et anglaise. En est il de même pour la relecture ?
Non, le Français est dispo en lecture.
Benoît Lefebvre
Pour tester ta config, fais la manip suivante: ...
...
Si elle ne fonctionne pas, tu as un Pb avec ta config Excel.
Fais la même manip dans Word ou PowerPoint.
C'est fait et le code fonctionne. Malgré tout, je n'arrive pas à relire mes cellules dans Excel ou même un texte dans Word. Pire, dans Word, je n'ai même pas accès à la barre d'outils 'Texte en Parole' (elle est inexistante) tandis que dans Excel, je l'ai mais tjs grisée. @+ Benoît
Pour tester ta config, fais la manip suivante:
...
...
Si elle ne fonctionne pas, tu as un Pb avec ta config
Excel.
Fais la même manip dans Word ou PowerPoint.
C'est fait et le code fonctionne.
Malgré tout, je n'arrive pas à relire mes cellules dans
Excel ou même un texte dans Word.
Pire, dans Word, je n'ai même pas accès à la barre
d'outils 'Texte en Parole' (elle est inexistante) tandis
que dans Excel, je l'ai mais tjs grisée.
@+ Benoît
Pour tester ta config, fais la manip suivante: ...
...
Si elle ne fonctionne pas, tu as un Pb avec ta config Excel.
Fais la même manip dans Word ou PowerPoint.
C'est fait et le code fonctionne. Malgré tout, je n'arrive pas à relire mes cellules dans Excel ou même un texte dans Word. Pire, dans Word, je n'ai même pas accès à la barre d'outils 'Texte en Parole' (elle est inexistante) tandis que dans Excel, je l'ai mais tjs grisée. @+ Benoît
Christian Herbé
Et que donne le code suivant ? Private Sub UserForm_Activate()
texte=range("A1").Value
UserForm1.Hide Dim Merlin As IAgentCtlCharacter chemin = Environ("windir") & "msagentcharspeedy.acs"
Set Merlin = Agent1.Characters("Merlin") Merlin.Show Merlin.Speak texte 'pause de 10 secondes Application.Wait (TimeSerial(Hour(Now()), _ Minute(Now()), Second(Now()) +10))
End Sub
Michel Pierron
Salut Christian; Pour les "ceusses" qui veulent se dispenser d'un UserForm inutile:
Sub MS_Agent() Dim agt As Object, Chemin As String, Merlin As Object Set agt = CreateObject("Agent.Control.2") Chemin = Environ("windir") & "msagentcharsMerlin.acs" agt.Connected = True agt.Characters.Load "Merlin", Chemin DoEvents With agt.Characters.Character("Merlin") .SoundEffectsOn = True .MoveTo 200, 200 .Show .Speak "Hello, je suis " & .Name & "." _ & " Je vous recommande fortement le site Excelabo," _ & "qui fourmille d'astuces pour Excel et VBA !" .Play "GestureUp" .Think "J'espère ne faire aucune erreur !" DoEvents .Play "GestureRight" .MoveTo 100, 200 .Think "Man, this machine is slooooow..." .Play "Confused" Application.Wait Now + TimeValue("0:00:30") End With Set agt = Nothing End Sub
MP
"Christian Herbé" a écrit dans le message de news:
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.
Pour tester ta config, fais la manip suivante:
démarrez l'éditeur Visual Basic (Menu Outils | Macro | Macros | Visual editor). Insérez un userform Cliquez avec le bouton droit de la souris sur le fond de la boite à outils et sélectionnez "Contrôles supplémentaires" Dans la liste dec contrôles disponibles, cochez "Microsoft Agent Control" Un contrôle "Agent" s'est ajouté dans la boite à outils Glissez le sur le Userform Double-cliquez sur la grille du Userform pour accéder à la fenêtre de code collez le code suivant et exécutez le (n'oubliez pas d'activez le son de l'ordinateur!):
Private Sub UserForm_Activate()
UserForm1.Hide Dim Merlin As IAgentCtlCharacter chemin = Environ("windir") & "msagentcharspeedy.acs"
Set Merlin = Agent1.Characters("Merlin") Merlin.Show Merlin.Speak "Bonjour Benoît Lefebvre" 'pause de 10 secondes Application.Wait (TimeSerial(Hour(Now()), _ Minute(Now()), Second(Now()) +10))
End Sub
Si elle ne fonctionne pas, tu as un Pb avec ta config Excel. Fais la même manip dans Word ou PowerPoint.
La dictée vocale est disponible uniquement avec les versions Chinoise et anglaise. En est il de même pour la relecture ?
Non, le Français est dispo en lecture.
Salut Christian;
Pour les "ceusses" qui veulent se dispenser d'un UserForm inutile:
Sub MS_Agent()
Dim agt As Object, Chemin As String, Merlin As Object
Set agt = CreateObject("Agent.Control.2")
Chemin = Environ("windir") & "msagentcharsMerlin.acs"
agt.Connected = True
agt.Characters.Load "Merlin", Chemin
DoEvents
With agt.Characters.Character("Merlin")
.SoundEffectsOn = True
.MoveTo 200, 200
.Show
.Speak "Hello, je suis " & .Name & "." _
& " Je vous recommande fortement le site Excelabo," _
& "qui fourmille d'astuces pour Excel et VBA !"
.Play "GestureUp"
.Think "J'espère ne faire aucune erreur !"
DoEvents
.Play "GestureRight"
.MoveTo 100, 200
.Think "Man, this machine is slooooow..."
.Play "Confused"
Application.Wait Now + TimeValue("0:00:30")
End With
Set agt = Nothing
End Sub
MP
"Christian Herbé" <herbe@nancy.inra.fr> a écrit dans le message de
news:u6X0Xm12DHA.2948@TK2MSFTNGP09.phx.gbl...
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.
Pour tester ta config, fais la manip suivante:
démarrez l'éditeur Visual Basic (Menu Outils | Macro | Macros |
Visual editor).
Insérez un userform
Cliquez avec le bouton droit de la souris sur le fond de la boite à
outils et sélectionnez "Contrôles supplémentaires"
Dans la liste dec contrôles disponibles, cochez "Microsoft Agent
Control"
Un contrôle "Agent" s'est ajouté dans la boite à outils
Glissez le sur le Userform
Double-cliquez sur la grille du Userform pour accéder à la fenêtre
de code
collez le code suivant et exécutez le (n'oubliez pas d'activez le
son de l'ordinateur!):
Private Sub UserForm_Activate()
UserForm1.Hide
Dim Merlin As IAgentCtlCharacter
chemin = Environ("windir") & "msagentcharspeedy.acs"
Salut Christian; Pour les "ceusses" qui veulent se dispenser d'un UserForm inutile:
Sub MS_Agent() Dim agt As Object, Chemin As String, Merlin As Object Set agt = CreateObject("Agent.Control.2") Chemin = Environ("windir") & "msagentcharsMerlin.acs" agt.Connected = True agt.Characters.Load "Merlin", Chemin DoEvents With agt.Characters.Character("Merlin") .SoundEffectsOn = True .MoveTo 200, 200 .Show .Speak "Hello, je suis " & .Name & "." _ & " Je vous recommande fortement le site Excelabo," _ & "qui fourmille d'astuces pour Excel et VBA !" .Play "GestureUp" .Think "J'espère ne faire aucune erreur !" DoEvents .Play "GestureRight" .MoveTo 100, 200 .Think "Man, this machine is slooooow..." .Play "Confused" Application.Wait Now + TimeValue("0:00:30") End With Set agt = Nothing End Sub
MP
"Christian Herbé" a écrit dans le message de news:
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.
Pour tester ta config, fais la manip suivante:
démarrez l'éditeur Visual Basic (Menu Outils | Macro | Macros | Visual editor). Insérez un userform Cliquez avec le bouton droit de la souris sur le fond de la boite à outils et sélectionnez "Contrôles supplémentaires" Dans la liste dec contrôles disponibles, cochez "Microsoft Agent Control" Un contrôle "Agent" s'est ajouté dans la boite à outils Glissez le sur le Userform Double-cliquez sur la grille du Userform pour accéder à la fenêtre de code collez le code suivant et exécutez le (n'oubliez pas d'activez le son de l'ordinateur!):
Private Sub UserForm_Activate()
UserForm1.Hide Dim Merlin As IAgentCtlCharacter chemin = Environ("windir") & "msagentcharspeedy.acs"
