A
Atary
Guest
Bonsoir le Forum,
je vous expose mon pb, je souhaite gérer le renouvellement de mes mots de passe par l'intermédiaire d'une macro. La date de création du mdp se trouve en 'A1', pendant les 30 jours suivants la création, pas de message, puis les 5j suivants un 1er message d'alerte et enfin un 2eme message au-dela du 35eme j.
J'ai testé différentes macros, sans succés, dont celle ci :
Sub ComparaisonDates()
Refdate = CDate(Range('A1'))
If Date > (Refdate + 35) Then
SupInf = ' Alerte ! expiration de votre mot de passe imminente !!'
ElseIf ((Refdate + 30) < Date < (Refdate + 35)) Then
SupInf = ' Attention, pensez à renouveller votre mot de passe ! '
Else: End If
MsgBox SupInf
End Sub
Quelqu'un a t il une solution ?
Merci
je vous expose mon pb, je souhaite gérer le renouvellement de mes mots de passe par l'intermédiaire d'une macro. La date de création du mdp se trouve en 'A1', pendant les 30 jours suivants la création, pas de message, puis les 5j suivants un 1er message d'alerte et enfin un 2eme message au-dela du 35eme j.
J'ai testé différentes macros, sans succés, dont celle ci :
Sub ComparaisonDates()
Refdate = CDate(Range('A1'))
If Date > (Refdate + 35) Then
SupInf = ' Alerte ! expiration de votre mot de passe imminente !!'
ElseIf ((Refdate + 30) < Date < (Refdate + 35)) Then
SupInf = ' Attention, pensez à renouveller votre mot de passe ! '
Else: End If
MsgBox SupInf
End Sub
Quelqu'un a t il une solution ?
Merci