Workbook open : si changement d'année alors

Bonjour à tous,

J'aimerais effectuer une macro mais je ne sais pas comment l'écrire :

J'aimerais qu'à l'ouverture de mon fichier, mon fichier analyse la date du jour.

L'objectif est lors du passage de la nouvelle année de "call" ma macro

Je veux qu'un msgbox apparaisse et demande si on veut bien valider les données.

Conditions pour que ce msgbox s'affiche :

que la date du jour soit comprise entre le 1er et le 15 janvier de l'année

que la dernière fois que ce bouton est apparu (cette année), que la personne ne l'ai pas validé

donc tant que le message est refoulé, à chaque ouverture de fichier, le message devra à nouveau s'afficher à l'écran

Si dans le msgbox la réponse a été accepté alors "call" ma macro

Il faut que cette macro puisse se reproduire chaque année.

En espérant avoir été clair, je remercie d'avance toute aide.

Cordialement

Bonjour,

essai cela :

Private Sub Workbook_Open()
 Dim c As Range
 Dim AnneeEncours As Integer
 Set c = Feuil1.Range("A1") ' définir ici la cellule ou on stocke la derniére exécution de ton code
 AnneeEncours = Year(Date)

 If AnneeEncours <> c And _
    (Date >= DateSerial(AnneeEncours, 1, 1)) And _
    (Date <= DateSerial(AnneeEncours, 12, 15)) Then
    If MsgBox("Il est temps de lancer votre macro", vbYesNo) = vbYes Then
        Call maMacro
        c = AnneeEncours
        'Penser à sauver le classeur

    End If
 End If
End Sub