Envoi de mail si condition

Bonjour,

J'ai longuement regardé différents sujets et j'avoue que je ne comprends pas tout (je suis débutant dans le domaine et je voudrais solliciter votre aide).

Je souhaiterais qu'à partir d'un tableau excel ( même quand celui-ci n'est pas ouvert) recevoir un mail sur Outlook ( une seule adresse mail) avec différents éléments trouvés dans le tableau en fonction d'une date ( Colonne E) qui devient orange dû à une Mise en forme conditionnelle.

Si date orange= Envoi de mail

Dans ce mail j'aimerais avoir les informations suivantes:

Objet : Agrément " NOM Prénom" ( Nom et prénom de la personne qui a sa date orange colonne B) "Date limite de validité de l'agrément "colonne E

Corps: Bonjour,

Vous devez renouveler l'agrément de "NOM Prénom" (Nom de la personne qui a sa date orange)" car la date limite de validité de l'agrément "Date" (trouvé dans la colonne E)

Merci d'avance pour votre aide.

jojo2186 a écrit :

( même quand celui-ci n'est pas ouvert)

Bnjour Jojo

ça c'est juste pas possible

pour le reste, je vais m'y atteler ...

essaie ceci

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim cel As Range

Set messagerie = CreateObject("Outlook.Application")

For Each cel In Range("F4:F" & Range("F3").End(xlDown).Row)

    If cel.Offset(0, -1) < Now() - 60 Then

        Set email = messagerie.CreateItem(0)

        With email
            .to = "moi@ici.fr"
            .Subject = "Agrément " & cel.Offset(0, -4)
            .body = "Bonjour," & vbCrLf & "Vous devez renouveler l'agrément de " & cel.Offset(0, -4) & " car la date limite de validité de l'agrément est " & cel.Offset(0, -1)
            .send
        End With

        Set email = Nothing
    End If

Next cel

Set messagerie = Nothing

End Sub

Super cela fonctionne bien.

Merci beaucoup

Ce qui est intéressant c'est que maintenant je traduise les lignes de code pour bien comprendre la démarche afin de reproduire cela sur d'autres tableaux.

Je suis d'accord ... mais parfois on retient la recette sans trop comprendre. Heureusement celui-ci est relativement court (et simple).