j'ai changé du coup le nom de l'onget, le msg, et la cellule D2 . j'ai modifié la date en D2 pour mettre 2016 par exemple, j'enregistre puis ferme le fichier, à l'ouverture je n'ai pas le msg
il doit y avoir un hic dans mes chiffres pour .Cells(1, 1) initialement dans ton fichier
Sub JourdelAn()
If Worksheets("Instructions").Cells(4, 2) <> Year(Now) Then
MsgBox " Ne pas oublier de changer l'année sur l'onglet Instructions pour les HS de la nouvelle année"
Worksheets("Instructions").Cells(4, 2) = Year(Now)
End If
End Sub
Sub JourdelAn()
If Worksheets("Instructions").Cells(2, 4) <> Year(Now) Then
MsgBox " Ne pas oublier de changer l'année sur l'onglet Instructions pour les HS de la nouvelle année"
Worksheets("Instructions").Cells(2, 4) = Year(Now)
End If
End Sub