Créer une alerte mail suite à une date dépassée

Bonjour à tous,

J'ai une question relativement simple pour un problème relativement compliqué à résoudre (pour ma part).

J'ai un fichier Excel qui retrace les visites médicales des salariés. J'aimerai recevoir un mail sans avoir à ouvrir Excel dès lors que la visite médicale arrive bientôt à échéance (idéalement 2 mois avant).

Je vous remercie par avance !

Bonjour,

Une possibilité.

Sub EnvoyerMailVisiteMedicale()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long
    Dim i As Long

    ' Définir la feuille de travail
    Set ws = ThisWorkbook.Sheets("NomDeVotreFeuille")

    ' Trouver la dernière ligne avec des données dans la colonne B (Date de la visite médicale)
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

    ' Créer une instance de l'application Outlook
    Set OutlookApp = CreateObject("Outlook.Application")

    ' Boucler à travers les lignes de données
    For i = 2 To lastRow ' Assumer que la première ligne contient des en-têtes
        ' Vérifier si la visite médicale est dans les 2 mois
        If ws.Cells(i, 2).Value <= DateAdd("m", 2, Date) Then
            ' Créer un nouvel e-mail
            Set OutlookMail = OutlookApp.CreateItem(0)

            ' Remplir les détails de l'e-mail
            With OutlookMail
                .To = "adresse@exemple.com" ' Remplacez par l'adresse e-mail du destinataire
                .Subject = "Visite médicale à échéance"
                .Body = "La visite médicale du salarié " & ws.Cells(i, 1).Value & " arrive bientôt à échéance."
                ' Vous pouvez ajouter plus de détails ici si nécessaire
                .Send ' Envoyer l'e-mail automatiquement
            End With
        End If
    Next i

    ' Libérer les objets Outlook
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

Oiseau bleu

Bonjour et merci pour votre retour.

Par contre je suis désolée mais je n'y comprends pas grand chose et quand j'ouvre mon fichier et Alt+F11 et que je colle vos codes VBA, je ne sais pas comment je dois le renseigner, ni ce que je dois modifier ou pas ...

Merci d'avance.

Bonjour,

C'est dingue, tu ne prends la peine de répondre aux gens et de les remercier que lorsque tu ne comprends pas la réponse. Toutes les autres personnes qui te sont venues en aide peuvent toujours attendre ...

Bonjour 21Formatic,

Je te remercie pour ton retour, je pense que ta réponse va beaucoup m'aider !

Bonne journée :)

Bonjour,

La solution présentée est fait en pensant que vous travaillez avec Outlook.

Est-ce le cas?

Il serait bon d'inclure un fichier pour mieux vous venir en aide.

Bonne journée,

Oiseau bleu

Bonjour,

Oui j'utilise bien Outlook.

Vous trouverez ci-joint le fichier.

Merci d'avance.