Création tâche Outlook à partir d'un tableau Excel

Bonjour, j'espère que vous allez bien

Mon problème est comme suit : J'ai un planning sur Excel sous forme de tableau contenant des noms d'équipements dans une colonne et dans la colonne suivante des dates du contrôle prochain de ces équipements. J'ai essayé de créer une macro pour permettre à partir de ce tableau de créer une tâche qui va s'afficher sur ma messagerie Outlook un jour avant la date du contrôle prévu. Malheureusement, le programme ne marche pas comme il faut, et avec mon niveau faible en VBA, je ne sais plus comment avancer.

Je vous écris ici mon code pour plus de clartés, sachant que A et B sont les colonnes qui contiennent respectivement le nom de l'équipement et la date (les données commencent à partir de la ligne 2)

Sub NouveauRDV_Calendrier()

'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library

Dim myOlApp As New Outlook.Application

Dim MyItem As Outlook.AppointmentItem

Dim Cell As Range

For Each Cell In Range("A2:A" & Range("A6").End(xlUp).Row)

Set MyItem = myOlApp.CreateItem(olAppointmentItem)

With MyItem

.MeetingStatus = olNonMeeting

.Subject = Cell.Offset(1, 0)

.Start = Cell.Offset(1, 1)

.Save

End With

Set MyItem = Nothing

Next Cell

End Sub

Merci à vous !

Bonjour,

Avez-vous trouver une solution ?

J'ai besoin de quelque chose de similaire mais je ne trouve pas comment faire ?

Merci

Angélique