Envoi de courriel automatique sous condition

Bonjour,

SVP, est-ce que quelqu'un sais comment programmer un envoi de courriel sous condition. Exemple : si une ou plusieurs cases du tableau "X" deviennent sous forme conditionnel (date d'échéance - de 3mois), excel envoi une notification avec le nom et le service qui arrive à échéance par courriel via Outlook?

Merci d'avance!

Bonsoir,

J'avais écris un script sans ambition pour une question similaire.

Regarde si tu peux l'adapter.

Sinon joins un fichier à ta demande

Merci beaucoup Bernard, cela fait très bien l'affaire! Je vais adapter le script à mon besoin.

Bonjour, il me reste un petit problème à résoudre. Tout fonctionne comme sur des roulettes sauf un petit détail. L'envoi de courriel s'effectue automatiquement lorsque un élément de mon tableau approche de son échéance, mais chaque fois qu'il y a un nouvel élément qui arrive à échéance, Le courriel envoyé contient tous les nom des éléments déjà reçue par courriel!

SVP, Est-ce que quelqu'un aurait une solution?

Merci d'avance!!

[

Sub Notification_par_courriel()

'déclaration des variables

Dim OutApp As Object

Dim OutMail As Object

'

DerL = Range("A" & Rows.Count).End(xlUp).Row

corps = ""

For i = 2 To DerL

If ThisWorkbook.Sheets("Actuels").Range("BM" & i) = "1" Then

corps = corps & ThisWorkbook.Sheets("Actuels").Range("A" & i).Value & Chr(25)

End If

Next i

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

'destinataires

'.From = "Essai from"

'.To = ThisWorkbook.Sheets("Actuels").Range("?").Value

.To = "Allo.com" & ";" & "Allo.com"

'.CC = ThisWorkbook.Sheets("Envoi Mail").Range("B3").Value

'.BCC = ""

'objet du mail

.Subject = "Échéance qualification d'inspecteur"

' corps du message

.Body = corps

' fichier en pièce jointe

'Feuile de calcul

'.Attachments.Add ActiveWorkbook.FullName

'Fichier du disque dur

'.Attachments.Add "C:\****\****\****\**\NomFichier.Ext"

'Ou

'.Attachments.Add ThisWorkbook.Sheets("Feuil1").Range("H20").Value

.Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

'fermer le classeur à la fin

'ThisWorkbook.Close

End Sub

]

Bonsoir

une petite solution simple... mettre en couleur la cellule déjà envoyé par mail,

Dans ce cas je ferais (par exemple en orange)

je remplacerais

For i = 2 To DerL
If ThisWorkbook.Sheets("Actuels").Range("BM" & i) = "1" Then
corps = corps & ThisWorkbook.Sheets("Actuels").Range("A" & i).Value & Chr(25)
End If
Next i

par

For i = 2 To DerL
    If ThisWorkbook.Sheets("Actuels").Range("BM" & i) = "1" Then
        If Sheets("Actuels").Range("A" & i).Interior.Color <> 49407 Then
            corps = corps & ThisWorkbook.Sheets("Actuels").Range("A" & i).Value & Chr(25)
            Sheets("Actuels").Range("A" & i).Interior.Color = 49407
        End If
    End If

Next i

fred

Excellent! Merci Fred!!

Bonjour

Dans ce cas

merci

fred

Bonjour, Est-ce que quelqu'un sait si l'envoi de courriel automatique s'effectue a la seconde d'un changement de date, ou il y a un délais? Car pour faire le test j'ai fait en sorte qu'une date change au cours de la nuit, mais je n'ais pas reçu le courriel. Par contre, tout fonctionne en appuyant sur le bouton.

Merci.