merci beaucoup Papou-net pour votre aide excatement par fait ce ça ce que je vais
maintenant si possible bien sur j'ai un code dans meme fichier leur but et de faire m'envoyer un mail sur outlook ce code se fonctionne et j'ai réçu des mail mais sauf aprés exécution je vais que ces mails sera envoyé automatiquement et le declencheur aussi " attention, date depassée"
exemple (si E5 contient "attention ,date depassée" alors le contenu de la cellule F5 sera envoyé automatiquement sur mon boite )et de meme pour les autres cellules toujours dans la feuille de suivi
code existe dans feuille 1 de suivi
code
Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010
Dim messagerie As Object
Dim email As Object
Dim i As Integer '--- n° de ligne
i = 5
Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
'on fait la boucle en imaginant que colonne D est toujours remplie
MsgBox "procédure d'envoi"
strBody = ""
For ligne = 5 To Cells(65000, "F").End(xlUp).Row
If Cells(i, "E").Value = "Attention, date dépassée!" Then
strBody = strBody & "description : " & Cells(i, "F").Value & vbCrLf
End If
i = i + 1
Next
With email
.To = "
mounir_kraim@contoso.com"
.Subject = "Avertissement sur Tâche"
.Body = strBody
.Send
End With
Set email = Nothing
Set messagerie = Nothing
End Sub