Créer une tâche dans outlook via fichier Excel

Bonjour,

J'aimerais créer une macro qui permettent d'envoyer une alerte sur outlook (tâche, rappel, calendrier...) à partir d'un fichier excel.

J'ai un fichier qui contient une liste du matériel ainsi que les dates à laquelle il doit être contôler, j'aimerais pouvoir être alerter idéalement 1 mois avant que la date arrive à échéance ou que la date liite s'affiche dans mon calendrier outlook.

J'ai beaucoup de difficultés en ce qui concerne VBA.

Je joint un fichier exemple.

Merci pour votre aide.

Bonjour Stayssou,

Voici un exemple (selon votre fichier)

Sub OutlookTask()
' nécessite la référence à  Microsoft Outlook XX.X Object Library
Dim appOutlook As Outlook.Application
Set appOutlook = CreateObject("Outlook.Application")
Set myTask = appOutlook.CreateItem(olTaskItem)

rw = 2
TextBody = Cells(rw, 1) & " - " & Cells(rw, 2) & " - " & Cells(rw, 3) & Chr(10) & "*ATTENTION: Fin de validité : " & Cells(rw, 5)

With myTask
    .Subject = "Mon Sujet de Tâche" '? aucune idée
    .DueDate = DateSerial(Year(Cells(rw, 3)) + 1, Month(Cells(rw, 3)) - 1, Day(Cells(rw, 3)))
    .Body = TextBody
'    .Recipients.Add ("youremail@domain.com")
End With

myTask.Save
Set myTask = Nothing
Set appOutlook = Nothing
End Sub

Merci pour votre réponse

Cordialement

Merci je vais essayer car je vais en avoir besoin aussi.