Re : Alerte et message box si date atteinte
Salut,
J'ai finalement réussi à coder tout ce bazar, j'ai créé un bouton et associé la macro à ce bouton.
Voici le code : (cela évitera probablement à d'autres utilisateurs de perdre un temps fou !!!)
Sub EnvoiMail_Outlook()
Dim Cel As Range
For Each Cel In Range("x4262:" & Range("X4262").End(xlDown).Address)
If Cel.Value - 10 <= Date Then
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
With olmail
.To = "trucmuche@jeserre.fr"
.BCC = "tati@jenaimarre.fr"
.Importance = olImportanceHigh
.Subject = " Attention, le client " & Cel.Offset(0, -19) & "_" & Cel.Offset(0, -18) & " doit payer la facture " & Cel.Offset(0, -16) & " d'un montant de " & Cel.Offset(0, -10) & " " & " Euros " & " dans " & Cel.Value - Date & " Jours, SOIT LE " & Cel.Value & " "
.Body = " * * * * RELANCE TELEPHONIQUE CE JOUR * * * * " & " " & " Tel : " & Cel.Offset(0, 7)
.Send
End With
End If
Next Cel
End Sub
donc après avoir activé la macro, je reçois un mail pour tous les clients dont la date d'échéance est à moins de 10 jours.
Le seul soucis, c'est que je reçois autant de mails que de factures arrivant à échéance...
Il faut cocher dans excel (dans VBA, Outils > Référence) : Microsoft Outlook Library Project
Si toutefois quelqu'un aurait une idée afin de regrouper dans un même mail, et dans un tableau tous les clients concernés cela serait super.