Passer au contenu principal

Comment enregistrer un fichier avec la date et l'heure Excel?

Lorsque nous travaillons sur un classeur, nous devons parfois ajouter la date et l'heure actuelles lorsque nous enregistrons le fichier. Peut-être que vous pouvez taper la date et l'heure après le nom du fichier dans la boîte de dialogue Enregistrer sous, mais, ici, je peux vous présenter une astuce simple pour gérer automatiquement ce travail.

Épargnez Excel fichier avec la date et l'heure en utilisant le code VBA


flèche bleue bulle droite Épargnez Excel fichier avec la date et l'heure en utilisant le code VBA

Sauf en tapant la date et l'heure manuellement, le code VBA suivant peut vous aider à ajouter automatiquement la date et l'heure actuelles au nom de fichier. Veuillez suivre les étapes suivantes:

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

2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: ajouter automatiquement la date et l'heure au nom du fichier

Sub filesave()
'Update 20141111
ActiveWorkbook.SaveAs ("C:\Users\dt\Desktop\my information\nov-kte-data " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub

3. Et puis appuyez sur F5 clé pour exécuter ce code, la date et l'heure actuelles ont été ajoutées après le nom de votre classeur actif, voir capture d'écran:

doc-save-file-avec-date-1

Notes: Dans le code ci-dessus, vous devez modifier le chemin et le nom du fichier selon vos besoins.


Articles Liés:

Comment économiser Excel fichier avec la valeur de la cellule ?

Comment afficher le chemin du fichier dans la barre de titre ou la barre d'outils dans Excel?

Meilleurs outils de productivité bureautique

Prend en charge le bureau/Excel 2007-2021 et 365 | Disponible en 44 langues | Facile à désinstaller complètement

Caractéristiques populaires: Rechercher/mettre en surbrillance/identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes     Déplacer les colonnes   |   Afficher les colonnes   |   Comparer les colonnes à Sélectionnez des cellules identiques et différentes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Des chiffres à Words, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Kutools for Excel Possède plus de 300 fonctionnalités, Assurez-vous que ce dont vous avez besoin est à portée de clic...

Boostez votre Excel Compétences: Faites l’expérience d’une efficacité comme jamais auparavant avec Kutools for Excel  (Essai gratuit complet de 30 jours)

onglet kte 201905

Garantie de remboursement inconditionnelle de 60 joursLire la suite... Téléchargement Gratuit... Achat... 

Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets Word, Excel, Power Point, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50 % et réduit des centaines de clics de souris chaque jour ! (Essai gratuit complet de 30 jours)
Garantie de remboursement inconditionnelle de 60 joursLire la suite... Téléchargement Gratuit... Achat... 
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Mto bom! deu tudo certo
This comment was minimized by the moderator on the site
hi,
i tried this, it worked but when i reopen the my excel, date and time does not update automatically. How date and time in filename could be update automatically on every opening.
thanks
This comment was minimized by the moderator on the site
Hello sir,
can you plrease let me know how to define below Scripts. like - filename_currentdate_time.txt




Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As Double
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename:=xTextFile, FileFormat:=xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
This comment was minimized by the moderator on the site
Been looking for this! Thanks!
This comment was minimized by the moderator on the site
Thanks for the tip. I was saving with a 'xxxxxxx' as the suffix and manually entering the data every week for a weekly snapshot. This automation is great.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations