Problème avec macro pour créer des taches dans Outlook

Bonjour,

Dans les archives, j'ai trouvé cette macro proposé par Pierre Fauconnier
pour créer des taches dans Outlook à partir d'Excel (message original
http://minilien.com/?RlD9dH7sQ3).


Sub Creer_TacheOutlook()
' Dimensionner l'objet Outlook
Dim oOutlook As Outlook.Application
' Dimensionner la tâche
Dim oTache As TaskItem

' Initialiser l'objet Outlook
Set oOutlook = CreateObject("Outlook.Application")
' Créer la tâche
Set oTache = oOutlook.CreateItem(olTaskItem)
' Affecter les propriétés à la tâche
With oTache
.DueDate = Range("a1") ' Echéance
.Subject = Range("b1") ' Objet
.Body = Range("c1") ' texte explicatif
.Save ' Enregistrer la nouvelle tâche
End With
' vider les objets pour libérer la mémoire
Set oTache = Nothing
Set oOutlook = Nothing
End Sub


Et apparement, la personne qui cherchait le moyen de faire ça y est arrivé
avec cette macro; alors que moi, dès que j'essaie de l'exécuter, ça
m'affiche une erreur de compilation 'Type défini par l'utilisateur non
défini' avec en surbrillance cette ligne 'oOutlook As Outlook.Application';
et lorsque je clique sur 'OK', ça me fait apparaitre la première ligne 'Sub
Creer TacheOutlook()' en surbrillance...

Petites précisons... Je suis sous office XP, j'ai bien rajouté à mes
références dans l'éditeur VBE 'Microsoft Office 10.0 Object Library'; et,
par contre, comparé à la macro originale, j'ai rajouté un underscore _ entre
Creer et TacheOutlook à la 1ère ligne, parce qu'autrement, excel me détecte
pas la macro (il m'affiche la 1ère ligne en rouge; mais j'y connais pas
grand chose en VBA non plus, alors c'est peut être une boulette de faire
ça); et pour finir, mais je suppose que là, j'ai quand même juste, c'est
dans un module standard que j'ai collé la macro.

Si quelqu'un peut éclairer ma lanterne...

Merci!

--
__________________________
Géjoun.
dam-mail2004@ifrance.com
····················································
Enlevez l'année pour répondre...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯