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é :
Par conséquent, si le fichier est ouvert plusieurs jours après, il n'y aura pas de message.
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
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.
Partager