Recherche

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 fin de mois suivant au point d'insertion.

Sub finmois()
Dim madate
madate = DateSerial(Year(Now()), Month(Now()) + 2, 0)
Selection.TypeText Text:=madate
End Sub

Statistiques

France 70,6% France
Chine 5,5% Chine
Canada 5,0% Canada

Total:

162

Pays
018499318
Aujourd'hui: 149
Hier: 161
Cette semaine: 2.333
Semaine dernière: 3.336
Ce mois: 2.333