imaginons que dans la cellule A1, il y ait une date de RdV (p.e 05/04/2005)et que l'on ouvre le fichier.
Dans le module Thisworkbook du fichier en question, tu écris
Private Sub Workbook_Open()
If Cells(1, 1) < Now Then MsgBox 'toto'
End Sub
Dans ces conditions, si tu ouvres le fichier après le 05/04/2005 alors le message s'affichera.
Il est clair que ceci ne fonctionnera que si tu ouvres le fichier.
A+