Comment enregistrer un document Word avec la date actuelle dans le nom de fichier?

Si vous avez besoin d'ajouter automatiquement la date actuelle dans le nom de fichier lors de l'enregistrement d'un document Word, comment pouvez-vous gérer cette tâche dans un fichier Word?

Enregistrer un document Word avec la date actuelle dans le nom de fichier avec le code VBA

---

Enregistrer un document Word avec la date actuelle dans le nom de fichier avec le code VBA

Pour ajouter automatiquement la date actuelle dans le nom de fichier lors de l'enregistrement du document Word, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: enregistrez un document Word avec la date actuelle dans le nom de fichier

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

3. Après avoir collé le code dans le module, appuyez sur F5 clé pour exécuter ce code, et un Enregistrer sous s'affiche automatiquement avec la date actuelle dans le Nom du fichier zone de texte, voir capture d'écran:

4. Et puis, il vous suffit de taper votre propre nom de fichier selon vos besoins, voir capture d'écran: