Bonjour à tous,
je suis débutante dans l'écriture de macro. Et aujourd'hui je dois en faire une qui selon un tableau de date doit m'envoyer un email si la date approche (- 1 mois). le problème n'ai pas d'envoyer l'email mais de détecter que la date du tableau approche (je répétè que je veux être avertit au moins 1 mois avant).
J’espère avoir était claire, et merci d'avance de votre aide.

PS: voici mon code pour l'instant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With Sheets("ENTRETIEN")
 
     For Each Cell In Range("G22:G44")
        If Cell < DateSerial(Year(Date), Month(Date) + 1, Day(Date)) Then
            With oBjMail
                .To = Email
                .Subject = "Alerte date Vehicule"
                .Body = "Bonjour Monsieur, la date de péremption des instincteurs approche, penser à les remplacer. (voir vehicule concerné)"
                .Attachments.Add ("")
                .Display
                .Send
            End With
            ObjOutlook.Quit
            Set oBjMail = Nothing
            Set ObjOutlook = Nothing
        End If
     Next Cell