Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Lorsque nous travaillons sur un classeur, parfois, nous devons ajouter la date et l'heure actuelles lorsque nous sauvegardons le fichier. Peut-être, 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 un truc facile à faire face à ce travail.

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


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


À l'exception de la saisie manuelle de la date et de l'heure, le code VBA suivant peut vous aider à ajouter automatiquement la date et l'heure au nom de fichier. S'il vous plaît faire avec les étapes suivantes:

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

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

Code VBA: Ajout automatique de la date et de l'heure au nom de 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 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-fichier-avec-date-1

Note: Dans le code ci-dessus, vous devez modifier le chemin d'accès et le nom de fichier à votre besoin.


Articles Liés:

Comment enregistrer le fichier Excel avec la valeur de la cellule?

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



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    AK sharma · 7 months ago
    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
  • To post as a guest, your comment is unpublished.
    Brant · 8 months ago
    Been looking for this! Thanks!
  • To post as a guest, your comment is unpublished.
    Mike · 1 years ago
    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.