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.
C'est une macro qui va permettre, lors de la création d'une facture, d'insérer automatiquement la date de la fin du mois suivant (30 jours fin de mois).
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 finmois()
Dim madate
madate = DateSerial(Year(Now()), Month(Now()) + 2, 0)
Selection.TypeText Text:=madate
End Sub
Dim madate
madate = DateSerial(Year(Now()), Month(Now()) + 2, 0)
Selection.TypeText Text:=madate
End Sub
