Avec une macro très simple à laquelle vous allez ajouter un raccourci clavier. Vous pouvez également ajouter un bouton relié à la macro sur la barre d'outils.
Copiez cette macro et collez-la dans le Normal.dotm. La macro insérera la date du jour plus 1 an au point d'insertion.
Sub ajouter_un_an()
Dim madate
ladate = DateAdd("yyyy", 1, Now)
madate = Format(ladate, "dd/mm/yyyy")
Selection.TypeText Text:=madate
End Sub
Dim madate
ladate = DateAdd("yyyy", 1, Now)
madate = Format(ladate, "dd/mm/yyyy")
Selection.TypeText Text:=madate
End Sub
