Envoi d'un mail sur outlook à partir d'une date sur Excel

Bonjour,

je n'y connais rien en macro alors je viens vous demander votre aide si précieuse.

Je voudrais envoyer un mail sur outlook lorsqu'une date arrive à une certaine échéance, en l'occurrence 185 jours avant la date de fin.

J'ai réalisé le tableau excel avec une mise en forme conditionnelle qui affiche les dates concernées en vert.

Je vous mets un exemple ci-joint.

Je vous remercie infiniment de bien vouloir venir à mon secours.

Fabi

Bonjour,

je ne voudrais pas abuser mais c'est vraiment important s'il vous plait

Merci beaucoup

Bonjour, je me permets de remonter le message svp

J'ai testé ceci après des recherches mais ça ne me donne qu'une seule adresse et je n'arrive pas à impliquer deux colonnes, ça me met une erreur

Sub EnvoiMail()

Dim OutApp As Object

Dim OutMail As Object

Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

strbody = "" & _

"Bonjour, " & _

"Le dossier " & Cells(ActiveCell.Row, 3).Value & " doit être révisé."

With OutMail

.To = "ais@aisbassemeuse.be"

.CC = ""

.BCC = ""

.Subject = "Mise à jour du dossier"

.HTMLBody = strbody

.Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

et ceci sur la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = G And Target.Offset(, 1).Value <= Date Then Call EnvoiMail

End Sub