changement d'année

[Tungstene]

Bonjour,

Comment faire pour qu'un code s'éxecute uniquement à chaque changement d'année?
Mon code se trouve dans thisworkbook

Merci

 

[CBernardT]

Bonjour Tungstene,

Je te propose le code suivant :

Private Sub Workbook_Open()
If Day(Date) = 1 And Month(Date) = 1 Then

Range('A1') = 'Bonne Année'

End If
End Sub

Cordialement

Bernard

 

[Tungstene]

Salut,

Je te remercie de ta réponse, je sais que ça peut marcher comme ça.
Mais le top, ce serait que cela gère la year(date) et donc dès la prmière ouverture du fichier à la nouvelle date, le code s'éxécute.
Ensuite à chaque réouverture du fichier en cours d'années, le code ne s'éxécute plus étant donnée que la date n'a pas changé.

Connais tu une solution?

 

[CBernardT]

Bonsoir Tungstene,

Je ne comprend pas ton chagrin ???

Tu me dis que la macro marche dans l'état mais que cela marcherai mieux en rajoutant year(date), je ne vois pas pourquoi !

Pour moi, la seule contrainte qui reste, c'est de ne pas ouvrir le fichier plusieurs fois le premier janvier ( If Day(Date) = 1 And Month(Date) = 1 Then) de chaque année, pour éviter que la mise à jour se répète ce jour là.

Cordialement

Bernard