Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Obtenez et insérez l'heure de création et l'heure de la dernière modification dans les cellules

Cet article explique comment obtenir l'heure de création et l'heure de la dernière modification des informations du classeur actuel, et insérer l'heure de création et la dernière heure de modification des informations du classeur actuel dans les cellules d'Excel.

Obtenez l'heure de création et l'heure de la dernière modification dans Excel avec la commande Info

Obtenez l'heure de création et l'heure de la dernière modification dans Excel avec la fonction Propriétés avancées

Insérez l'heure de création et l'heure de la dernière modification dans les cellules d'Excel avec le code VBA

Insérez l'heure de création et l'heure de la dernière modification dans les cellules / en-tête / pied de page avec Kutools for Excel bonne idée3


flèche bleue bulle droite Obtenez l'heure de création et l'heure de la dernière modification dans Excel avec la commande Info

Nous pouvons connaître l'heure exacte de création et l'heure de la dernière modification du classeur actuel dans les coulisses de Microsoft Excel 2010/2013.

Cliquez Déposez le > Information, et dans la partie droite de la vue des coulisses, il affiche le Dates liées information. Sous le Dates liées title, il répertorie la dernière heure de modification, l'heure de création et l'heure de la dernière impression. Voir la capture d'écran suivante:

-2

 

A Noter: Cette méthode n'est disponible que dans Microsoft Excel 2010/2013. Il n'est pas valide dans Excel 2007.


flèche bleue bulle droiteObtenez l'heure de création et l'heure de la dernière modification dans Excel avec la fonction Propriétés avancées

En fait, nous pouvons obtenir l'heure de création et l'heure de la dernière modification du classeur actuel dans la boîte de dialogue Propriétés du document.
Étape 1: Ouvrez le Propriétés avancées boite de dialogue:

Dans Excel 2007, cliquez sur le Bureau bouton> Préparer > PropriétésEt un Propriétés du document s'affiche sous la barre d'outils, cliquez sur Propriétés du document > Propriétés avancées, voir les captures d'écran:

doc-insert-temps-de-modification-3-3
-1
doc-insert-temps-de-modification-4-4

 

Dans Excel 2010/2013, cliquez sur le Déposez le > Information > Propriétés > Propriétés avancées.

doc-insert-temps-de-modification-4-4

Étape 2: Dans le Propriétés avancées boîte de dialogue, vous verrez l'heure de création et l'heure de la dernière modification sous l'onglet Statistiques. Voir la capture d'écran suivante:

doc-insert-temps-de-modification-4-4


flèche bleue bulle droite Insérez l'heure de création et l'heure de la dernière modification dans les cellules d'Excel avec le code VBA

Les macros VBA suivantes vous aideront à insérer directement l'heure de création et la dernière heure de modification des informations du classeur actuel dans les cellules.

Insérer à la fois l'heure de création et l'heure de la dernière modification dans Excel

Étape 1: Maintenez la touche ALT + F11 clés et il ouvre la fenêtre Microsoft Visual Basic pour Applications.

Étape 2: Cliquez insérer >> Moduleet collez la macro suivante dans la fenêtre Module.

Code VBA: insérer à la fois l'heure de création et l'heure de la dernière modification dans Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Étape 3:Appuie sur le F5 clé pour exécuter cette macro. Et puis la date de création et la date de la dernière modification seront insérées séparément dans la cellule A1 et la cellule A2.

Notes: vous pouvez modifier la cellule de destination dans le VB selon vos besoins.

Insérer la dernière heure modifiée du classeur dans Excel

Étape 1: Maintenez la touche ALT + F11 clés et il ouvre la fenêtre Microsoft Visual Basic pour Applications.

Étape 2: Cliquez insérer >> Moduleet collez la macro suivante dans la fenêtre Module.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Étape 3: Ensuite, enregistrez et fermez ce code, et revenez à la feuille de calcul, dans une cellule vide, entrez la formule de = ModDate ()et appuyez sur Entrer clé. Ensuite, il insère la dernière heure modifiée dans la cellule.

-2

Insérer l'heure de création du classeur dans Excel

Étape 1: Maintenez la touche ALT + F11 clés et il ouvre la fenêtre Microsoft Visual Basic pour Applications.

Étape 2: Cliquez insérer >> Moduleet collez la macro suivante dans la fenêtre Module.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Étape 3: Enregistrez et fermez ce code, retournez à la feuille de calcul, dans une cellule vide, entrez la formule de = CreateDate ()et appuyez sur Entrer key.et la date de création sera insérée dans la cellule comme les captures d'écran suivantes:

-2

A Noter: Si votre cellule n'est pas au format de date, elle peut afficher un nombre étrange. Formatez simplement cette cellule comme Date format, il s'affichera comme une date normale.


flèche bleue bulle droite Insérez l'heure de création et l'heure de la dernière modification dans les cellules / en-tête / pied de page avec Kutools for Excel

Puis-je vous présenter un outil pratique -Kutools pour Excel qui, comprenant plus de 300 fonctions utiles, peut améliorer votre efficacité de travail? Avec son Insérer des informations sur le classeur fonction, vous pouvez insérer rapidement le chemin du classeur, le nom du classeur / feuille de calcul, le nom d'utilisateur ou l'heure de création et l'heure de la dernière modification dans les cellules, l'en-tête ou le pied de page.

Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Cliquez Kutools Plus > Classeur > Insérer des informations sur le classeur. Voir la capture d'écran:
doc dernière modification nom2

2. Puis dans le Insérer des informations sur le classeur boîte de dialogue, vérifiez les informations que vous souhaitez insérer à partir de la section Informations, puis allez pour spécifier l'emplacement dans lequel vous souhaitez insérer, vous pouvez choisir des cellules, pied de page (pied de page gauche, pied de page central, pied de page droit) ou en-tête (en-tête gauche, en-tête central, en-tête droit). Voir la capture d'écran:
doc insert créé date de modification 1

3. Cliquez Ok, et les informations que vous vérifiez ont été insérées à l'emplacement que vous spécifiez.

Pointe. Si vous souhaitez bénéficier d'un essai gratuit de la fonction Insérer des informations sur le classeur, s'il vous plaît aller à télécharger gratuitement Kutools pour Excel d'abord, puis appliquez l'opération selon les étapes ci-dessus.

flèche bleue bulle droite Insérer des informations sur le classeur



Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, 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!
bas de cabine
Say something here...
symbols left.
You are guest
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.
    Jack · 3 years ago
    I want to automatically create a space between each customer in excel how do i do this??
  • To post as a guest, your comment is unpublished.
    Sujin Raj · 4 years ago
    Hi Team,

    I need your help.

    I am having an excel file, there i want to find the modified date of a particular cell.

    Please help me with the coding here, if possible.

    Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Wayne Erfling · 4 years ago
    I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with:

    Function DocumentProperty(PropertyName As String)

    '
    'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names:

    'Title Subject Author
    'Keywords Comments Template
    'Last Author Revision Number Application Name
    'Last Print Date Creation Date Last Save Time
    'Total Editing Time Number of Pages Number of Words
    'Number of Characters Security Category
    'Format Manager Company
    'Number of Bytes Number of Lines Number of Paragraphs
    'Number of Slides Number of Notes Number of Hidden Slides
    'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces)


    Call Application.Volatile(True)

    Dim ActiveUserWorkbook

    On Error Resume Next
    Set ActiveUserWorkbook = Application.ActiveWorkbook
    If Err.Number 0 Then
    DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description
    Exit Function
    End If
    DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName)
    If Err.Number 0 Then
    DocumentProperty = "!!! Unknown Property Name !!!"
    Exit Function
    End If

    End Function
  • To post as a guest, your comment is unpublished.
    Wayne Erfling · 4 years ago
    I see that "Last Save Time" is only referenced ONCE in the code.

    I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates.

    Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog.

    Could "Last Save Time" be some relic?
  • To post as a guest, your comment is unpublished.
    Christopher Huergo · 4 years ago
    Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event:

    Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success Then
    ActiveSheet.Calculate
    End If
    End Sub

    That did the trick for me. Hope it helps.
  • To post as a guest, your comment is unpublished.
    Bruce · 5 years ago
    Could this be modified to display the Created Date of [i]other[/i] closed files?

    I'd like to compare the Created Date of a file on my Desktop to a file on a public web server.

    I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change.

    I appreciate your help.

    Bruce
  • To post as a guest, your comment is unpublished.
    Mokhtar · 6 years ago
    very very very very very very very very helpful
    thanks
  • To post as a guest, your comment is unpublished.
    JulieHughes · 6 years ago
    Hiya
    Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy
    I've tired changing it to this format using the "Date" section but have not had any luck.
    Any ideas?
    • To post as a guest, your comment is unpublished.
      MurrayFree · 6 years ago
      Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order!
      :lol:
  • To post as a guest, your comment is unpublished.
    DavidC · 7 years ago
    Hey this was awesome.

    Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated.

    Thanks!!
  • To post as a guest, your comment is unpublished.
    Ashraf · 7 years ago
    Please help!!!

    need to return last modified date and time of a closed file, and return this info in a cell in the open file
  • To post as a guest, your comment is unpublished.
    Swaran · 7 years ago
    [quote name="Larry S. Peteet"]Hello:
    I did this a different way but also by coding. Since I added code it makes me save the workbook with Macros and consequently as a *.XLSM. That is fine but a lot of places won't allow Macros's like this.
    Is there a way to get this (or save the workbook with the change) to a normal .XLS?
    I also assume it will ask someone to "Enable Macros" if they have that setting turned on (I am a consultant and most places I work it makes me turn on Macros when applicable after opening a workbook).
    FYI: Here is how I did it in a Macro (not better; just different).
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)

    Cancel = False
    With ActiveSheet.PageSetup
    ' .LeftHeader = ""
    ' .CenterHeader = ""
    ' .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy")
    .RightHeader = ""
    .RightFooter = "Last Updated " & Format(Now(), "mm/dd/yyyy")
    End With

    End Sub[/quote]

    Hi

    I successfully inserted the Last modified Date and time, but it doesnt update when you save and re-open the workbook.

    Please help here......i dont know about coding so I basically copy whatever info is given on such forums

    Thanks
    Swaran
    • To post as a guest, your comment is unpublished.
      BillG · 7 years ago
      Yes I have same issue - it worked perfectly yesterday but then today it would not change when saved.
  • To post as a guest, your comment is unpublished.
    UMAIR · 7 years ago
    thanks for this info
  • To post as a guest, your comment is unpublished.
    UMAIR · 7 years ago
    This information is very helpful for me.
    thanks concern
  • To post as a guest, your comment is unpublished.
    Larry S. Peteet · 7 years ago
    Hello:
    I did this a different way but also by coding. Since I added code it makes me save the workbook with Macros and consequently as a *.XLSM. That is fine but a lot of places won't allow Macros's like this.
    Is there a way to get this (or save the workbook with the change) to a normal .XLS?
    I also assume it will ask someone to "Enable Macros" if they have that setting turned on (I am a consultant and most places I work it makes me turn on Macros when applicable after opening a workbook).
    FYI: Here is how I did it in a Macro (not better; just different).
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)

    Cancel = False
    With ActiveSheet.PageSetup
    ' .LeftHeader = ""
    ' .CenterHeader = ""
    ' .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy")
    .RightHeader = ""
    .RightFooter = "Last Updated " & Format(Now(), "mm/dd/yyyy")
    End With

    End Sub
  • To post as a guest, your comment is unpublished.
    Khalid · 7 years ago
    Thank you very much for help, these what we need.
    the codes work properly but without update, means do not update the date of modification once i save.
    do you have any solution for this?

    i tried many times, save, close then re-open, with no update for the date.
    • To post as a guest, your comment is unpublished.
      Alex · 5 years ago
      Hi Khalid,

      I had the same issue and I added the line "Application.Volatile" to the code and when I press F9 it will update the information.
      I saw it in the video "Learn Excel - "Function for Last Saved Time": Podcast #1725 " of Bill Jelen.
      @Bill: Thank so much for the video!

      https://www.youtube.com/watch?v=KnSA6xdmc2Q

      Regards,
      Alex
  • To post as a guest, your comment is unpublished.
    Brian · 7 years ago
    This was perfect. Exactly what I was looking for. Thanks so much!!
  • To post as a guest, your comment is unpublished.
    Syed Nehal · 7 years ago
    Helpful information.... :-)