Enregistrer un document Word avec la date du jour dans le nom de fichier à l’aide d’un code VBA
Pour ajouter automatiquement la date du jour au nom de fichier lors de l’enregistrement du document Word, procédez comme suit :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez ensuite sur Insertion > Module, puis copiez et collez le code ci-dessous dans le module vide qui s’ouvre :
Code VBA : Enregistrer un document Word avec la date du jour 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 la touche F5 pour exécuter ce code. Une fenêtre Enregistrer sous s’affiche, avec la date du jour insérée automatiquement dans la zone de texte Nom du fichier, comme illustré ci-dessous :
4. Il vous suffit ensuite de saisir le nom de fichier souhaité, comme illustré ci-dessous :
Faites plus en moins de temps avec Kutools pour Word renforcé par l’IA
Kutools pour Word n’est pas qu’un simple ensemble d’outils : c’est une solution intelligente conçue pour booster votre productivité. Grâce à ses fonctionnalités essentielles et à sa puissance pilotée par l’IA, Kutools vous permet d’en faire davantage en moins de temps :
Résumez, réécrivez, composez et traduisez du contenu en un instant.
Bénéficiez de suggestions grammaticales, typographiques et stylistiques en temps réel pour relire votre texte pendant que vous écrivez.
Reformulez et traduisez le contenu tout en conservant fidèlement la mise en page, le style et la structure.
Traduisez facilement votre contenu dans plus de 40 langues pour toucher un public mondial.
Bénéficiez d’une aide immédiate et de conseils intelligents, directement basés sur votre document actuel.
Demandez comment accomplir une tâche – par exemple, supprimer un saut de section – et l’IA vous guidera ou s’en chargera à votre place.
Masquez en quelques secondes les informations sensibles ou confidentielles pour garantir une confidentialité totale.
Tous les outils fonctionnent de manière fluide directement dans Word, toujours à portée de main.
Créez, affinez, traduisez, résumez et sécurisez vos documents en toute simplicité.
Améliorez la grammaire, la clarté et le ton de votre texte en temps réel, au fur et à mesure que vous écrivez.
Reformulez et traduisez le contenu sans modifier en quoi que ce soit la mise en page ni la mise en forme.
Demandez comment accomplir une tâche – par exemple, supprimer un saut de section – et l’IA vous guidera ou s’en chargera à votre place.
Tous les outils fonctionnent de manière fluide directement dans Word, toujours à portée de main.
🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !
✨ Kutools for Office – Une installation, cinq outils puissants !
Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint
📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité
