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