Voici une macro qui va enregistrer le document avec, comme nom, la date du jour et l'heure à laquelle se fait l'enregistrement. Mettez cette macro dans le modèle qui permettra de créer le nouveau document.

 

Sub enregistre()
'macro écrite par m@rina
Dim dossier As String, madate As Date, madate2 As String
dossier = "C:\nom du dossier\"
madate = Now()
madate2 = Format(madate, "dd-mmmm-yyyy hh-mm")
ActiveDocument.SaveAs2 FileName:=dossier & madate2 & "-" & ".docx"
End Sub

Notez que la variable madate2 permet de formater la date et l'heure comme il convient. Si vous ne formatez pas, vous aurez des / dans la date et des : dans l'heure, caractères qui sont incompatibles avec un nom de fichier.

Statistiques

Aujourd'hui1909
Hier2553
Cette semaine11931
Ce mois30472
Total depuis 200410706159

15
visiteurs actuellement en ligne