Code pour l'envoi mail automatique sous condition

salut tous les membres j'ai un probléme pour l'execution de fichier

dans le cadre de rappel je vais récevoir un mail depuis excel d'une façon automatique sous le condition suivant

dans la feuille de suivi j'ai la colonne E est une colonne d' alerte et la colonne F est une colonne dont laquelle j'ai un description des taches alors je vais faire le suivant :

lorsque les cellules EXXXX contient l'alerte "Attention, date depasséé" alors les contenu de cellules FXXXX sera envoyée automatiquement par mail sans cliquer le sur bouton envoyer au dessus de fichier

merci pour tous les menbres avec tous mes respects

[attachment=0]Copie de maintenance preventif %252831%2529.xlsm[/attachment]

Bonjour,

ajouter le code suivant sur la page code "Feuille de suivi"

Private Sub Worksheet_Calculate()
Mail_small_Text_Outlook
End Sub

salut

j'ai toujours meme probleme meme avec l'ajout de cette instruction

merci de m'envoyer une solution clair

Option Explicit

Private Sub Worksheet_Activate()
Mail_small_Text_Outlook
End Sub

Private Sub Worksheet_Calculate()
Mail_small_Text_Outlook
End Sub

Sub Mail_small_Text_Outlook()
Dim strBody, ligne
Dim messagerie As Object
Dim email As Object

MsgBox "procédure d'envoi"

    strBody = ""
    For ligne = 5 To Cells(5, "D").End(xlDown).Row
        If Cells(ligne, "E").Value = "Attention, date dépassée!" Then
            strBody = strBody & "description : " & Cells(ligne, "F").Value & vbCrLf
        End If
    Next

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .To = "mounir_kraim@hotmail.com"
        .Subject = "Avertissement sur Tâche"
        .body = strBody
        .send
    End With
    Set email = Nothing
    Set messagerie = Nothing

End Sub

je n'avais pas vu que tu utilisais déjà Worksheet_Activate()

utilise un seul événement.

bonsoir sabv, je vient de voir ton message maintenant bon je suis pas un expert dans ce langage et j'ai pas compris qu'est ce que je vais faire alors si tu me donne une reponse clair svp merci d'avance