VBA pour relance à partir d'une date

Bonjour,

je tourne en rond sur une petite VBA à faire

Je souhaiterais qu'une message box s'affiche à l'ouverture du fichier lorsque un client est a relancer.

Par exemple, sur la colonne G nous avons la date de relance. Par rapport à la date du jour, une message box s'affiche en disant "Attention, pensez à relancer "le client" le "date de rappel ".

Commencer ce message 5 jours avant la date de relance

Je ne sais pas si je suis bien claire ...

Ci joint mon fichier !

En colonne C le nom du point de vente a recontacter

En colonne G la date de relance prévue

une chose importante, cette base va être compléter et il est possible d'avoir beaucoup de ligne

D'avance merci de votre aide !!

Hello,

Un test.

En attendant ton retour.

PS : Cette macro peut être automatiquement lancée à partir de l'ouverture du classeur.

Salut lalinGérald,

une petite macro dans le module 'ThisWorkbook'...

Une MsgBox est limitée en taille : si tu as un nombre important de relance, il va falloir trouver une astuce... que je connais déjà...

Private Sub Workbook_Open()
'
Dim tData, sData$
'
With Worksheets("BASE DE DONNEES")
    tData = .Range("C2:G" & .Range("C" & Rows.Count).End(xlUp).Row).Value
End With
For x = 1 To UBound(tData, 1)
    If DateDiff("d", Date, CDate(tData(x, 5))) <= 5 Then sData = sData & tData(x, 1) & " le " & tData(x, 5) & Chr(10)
Next
If sData <> "" Then MsgBox "Clients à relancer" & Chr(10) & Chr(10) & sData
'
End Sub

A+

Bonjour Curulus 57,

un grand merci pour ta réponse.

Re,

je viens de m'apercevoir d'un petit bug.

il se peut qu'aucune date de relance ne soit renseignée et alors apparait le bug dans la macro.

Existe t-il une solution?

Merci pour votre réponse