Bonjour,

J'aimerai via macro, envoyer une alerte par mail (Outlook) lorsqu'une date est dépassée. J'ai déjà réussi un petit quelque chose sur un fichier test mais je n'arrive pas à l'adapter complètement à mon fichier réf. Pour faire simple, j'ai une liste d'équipements (700 ~) avec vérification périodique et donc des délais à respecter.
Voici la macro que j'ai créée (et qui fonctionne) sur mon fichier test avec en cellule "A1" une date et en celulle "E6" le numéro de mon équipement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Alerte()
    Dim M As Object, OlApp As Object, Destinataire As String
    If Date > A1 Then
        Destinataire = "abcdef@outlook.fr"
        Set OlApp = CreateObject("Outlook.application")
        Set M = OlApp.CreateItem(olMailItem)
        With M
            .Subject = "La date d'étalonnage de l'équipement suivant arrive à expiration ce mois-ci"
            .Body = [E6]
            .Recipients.Add Destinataire
            .Send
        End With
    End If
End Sub
Maintenant, ce que je voudrai, c'est faire la même chose pour la totalité de mes équipements et si possible avoir une alerte en début de mois pour tout ce qu'il y a à faire sur le mois.
Sur mon fichier, les dates sont situées en cellules (G9:G743) et le numéro des équipements en cellules (B9:B743).
Cela est-il possible ?

J’espère avoir été assez complet dans mes explications

Merci d'avance,

Cordialement,
Rémi