Email en VBA à partir d'Excel

Bonjour à tous et toutes,

J'ai déjà sollicité votre aide sur ce point mais je n'ai pas pu solutionner malgré vos propostions de codes.

En fait, jai un fichier Excel (365) sur lequel se trouve une colonne 391 dates dans la colonne B qui correspondent à des échéances et dans une autre cellule, la date "AUJOURDHUI".

Le but serait qu'excel m'envoie ( via OUTLOOK), un simple email pour me signaler que dans la colonne B, une ou plusieurs dates sont identiques avec la date du jour et de ce fait, je dois prendre des mesures.

Merci à tous.

Cdt.

Bonjour,

Tu peux tester comme ça,

DateJour = Format(Date, "dd mm yy")
derligne = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To derligne
    If Range("B" & i) = DateJour Then
        Set MonOutlook = CreateObject("Outlook.Application")
        Set MonMessage = MonOutlook.CreateItem(0)

        MonMessage.to = "danymaccoy@outlook.com"
        MonMessage.Subject = "Signalement - Prendre mesures " & Range("A" & i)  'Affaire lié a la date
        MonMessage.Body = "C'est un beau temps pour prendre des mesures" & Chr(10) & "Voir ligne " & Range("B" & i)
        MonMessage.send
        Set MonOutlook = Nothing
    End If
Next i

A+

Bonjour Geof52,

Le code ne marche pas......j'ai essayé de modifier mais rien ne se passe.

Merci quand même et bonne fin de journée.

Cdt.