animer compagnon office

[Hervé]

Bonjour tout le monde

Cette nuit en me baladant sur le net, j’ai trouvé cette page de Christian Herbé :

http://cherbe.free.fr/animation2.html

Ou l’on ou explique comment utiliser les animations des compagnons d’office.

Alors, je me suis amusé à faire le bidule en pièce jointe, qui fonctionne sur mon excel 2002 windows XP

Je ne sais pas si ceci fonctionne sur toutes les versions, je sais meme pas si il faut installer une référence particulière, ou un complément d’office. Pour vous dire ou j’en suis de mon apprentissage . :whistle:

Mais bon si ca tourne chez vous, et si ca peut donner des idées.

Merci de me tenir au courant.

Salut
[file name=merlin.zip size=15421]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/merlin.zip[/file]

 

[PascalXLD]

Bonjour

JOLI Hervé

Cela a marché sans problème chez moi avec Excel 2000 et windows XP Pro

Bonne journée

Edition

J'ai juste modifié un peu la macro d'initialisation de ton UF comme ceci

Private Sub UserForm_Activate()

UserForm1.Hide ' inutile d'afficher le userform
Dim texte As String ' texte est la variable contenant le baratin
texte = 'Bonjour à toi Pascal76'

chemin = Environ('windir') & '\\msagent\\chars\\Merlin.acs' ' récupérer le dossier Windows contenant l'agent

'ici, la constante &h409 représente l'anglais; &H40C le francais
Agent1.Characters.Load 'Merlin', chemin ' ouverture du fichier et définition d'un nom
Agent1.Characters('Merlin').LanguageID = &H40C 'on spécifie la langue voulue.
'ici, la constante &h409 représente l'anglais; &H40C le francais

Set Merlin = Agent1.Characters('Merlin') ' On instancie Merlin !

Merlin.Show ' on l'affiche
Merlin.MoveTo 250, 250 'Int((500 * Rnd) + 1), Int((500 * Rnd) + 1) 'valeurs absolues

Merlin.Speak texte 'on lui fait réciter le contenu de la variable texte
Merlin.Play 'Congratulate'
Merlin.Speak 'Tu as bien mérité cette coupe, pour tout ce que tu fais.'


ET comme ce ci c'est parfait

Message édité par: pascal76, à: 04/08/2005 11:57

 

[Celeda]

Bonjour,

Chevalier HervéduMérite : c'est mimi comme tout!!!

merci et cela fonctionne bien sur XP pro, excel 2000.


:kiss: :kiss:

Celeda

 

[Dan]

Salut Hervé,

Comme d'autres ici, tu m'épateras toujours !!!

c'est super ! Cela fonctionne sous Excel 2000 et windows 2000 Pro.

J'essaie sur MAC ce soir et te dit quoi sur le Tchat.

:woohoo: :woohoo:

 

[_Thierry]

Bonjour à tous

Oui je connaissais Merlin, il fonctionne encore sous XP Pro.

J'ai même eu à l'époque dans un script IRC (Babylon de Vlad) Merlin qui me fesait la causette en m'écrivant les lignes de Tchat afin de suivre tout en étant sur une autre fenêtre... (Attention c'est pas trop Top niveau Sécu)

Mais sinon oui c'est assez amusant cet MS Agent et le travail de Christian Herbé est très sympa.

Merci à toi d'en faire profiter XLD

Bonne Journée à Tous et Toutes

[ol]@+Thierry[/ol]

H - 31 = U 2

 

[Hellboy]

Bonjour a tous

Hervé pour un 1100, ça se prète bien !

C'est super cool. Ça ma mis un sourire pour le reste de la journée.

a+

 

[Gipéhel]

Bonjour Hervé, le forum,
Mignon tout plein. Un petit peu de gaieté après une mauvaise nouvelle. Merci. JPL.

 

[Hervé]

re tout le monde


Merci à vous tous pour vos tests, il ne me reste plus qu'a faire un petit dessin animé

Salut

 

[Dan]

Re Hervé,

Bon sur MAC cela bloque dès le départ sur cette instruction.

Dim Merlin As IAgentCtlCharacter

Il ne trouve pas l'objet en question.

 

[Fx]

Bonjour,

Je suis tombé par hasard sur ce forum, et j'ai trouvé ça assez marrant.
J'ai donc fait une petite macro pour diriger Merlin (parler, bouger, zoomer... etc).

Une petite fonction sympa : si vous voulez que Merlin lise un texte pour vous (fainéant), copiez le texte en question, puis Cliquez sur Merlin avec votre sourie. B)
C'est d'autant plus pratique que Merlin reste toujours au premier plan.

Ps : Pour que merlin puisse parler en Français, suivez les infos suivantes, extraite du site http://cherbe.free.fr/animation2.html
« Les MS-agents sont programmés pour l'anglais. Avant d'utiliser une autre langue, il faut télécharger le programme adapté:
- rendez-vous sur la page de téléchargement de l'agent
- sélectionnez la langue voulue dans la rubrique Download the Microsoft Agent core components
- téléchargez le composant Français
- télécharger le composant 'langage de l'agent' dans la rubrique Text-to-speech engines
- installez-les »

 

[Fx]

Heu... Voilà la pièce jointe.


Si ça ne marchait toujours pas cette fois ( ), voici mon mail :

Fx.Laurent@free.fr

 

[Fx]

Heu... Voilà la pièce jointe.


Si ça ne marchait toujours pas cette fois ( ), voici mon mail :

Fx.Laurent@free.fr

 

[michel_m]

Bonjour à tous


Très sympa ce Merlin, Merci à toi Hervé c'est rangé dans mon disque dur (win Xp, office 2000)

bon WE

Michel

 

[_Thierry]

Bonjour Michel, FX, Hervé, Dan, le Fil, le Forum

Pour FX voici le Tutoriel Pour Uploader un Fichiersur XLD

Bon Week End
[ol]@+Thierry[/ol]

 

[andré]

Salut Thierry et les autres (que @+ a déjà nommés),

C'est très bien, même très très bien, mais ce serait parfait si à la fin de la démo l'écran précédent s'affichait sans devoir fermer la fenêtre.

Enfin, pour ce que j'en dis !
De la critique constructive, bon sang !

Â+