Bonjour,


je vous sollicite à nouveau pour ce nouveau pb.

Dans mon programme, j'ai une colonne (M) avec des dates de fin de contrat et une colonne avec des durées de préavis (N).
Pour alerter l'utilisateur des dates de préavis, je fais afficher un message.
Pour cela, je compare la date de preavis à la date d'aujourd'hui et je fais afficher un message pour avertir.
Or cela suppose d'ouvrir le fichier tous les jours.

code utilisé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
If Not IsNull(Range("M" & i).Value) Or Not IsNull(Range("N" & i).Value) Then
    delais = Range("M" & i).Value - (Range("N" & i).Value * 30) 'pour convertir le mois en jours
    Range("AA" & i).Value = delais
 
        If Date = delais Then
            MsgBox ("Attention préavis pour la chaîne " & Cells(i, 1).Value)
        End If
End If
Par conséquent, si le fichier est ouvert plusieurs jours après, il n'y aura pas de message.

Donc est-ce qu'il y aurait qqch qui dit que tant qu'on n'a pas validé, le message continue a être affiché.
Du coup quand on ouvrirait le fichier plusieurs jours après la date de préavis, le message nous le rappelerait.


J'espère avoir été assez claire...

Merci d'avance.