XL 2016 Excel Formule ou Fonction personnalisée pour afficher la date et l'heure de modification du classeur

[Dudu2]

Bonjour,
Tout est dans le titre.
Si vous avez déjà fait ça ou savez le faire, merci par avance.

 

[Dudu2]

Entre temps me suis fait une fonction. Si quelqu'un a mieux...

'-----------------------------------------------------------------------------
'Fonction personnalisée pour la date et l'heure de modification de ce classeur
'-----------------------------------------------------------------------------
Function DateTimeWorkbook()
    Dim FSO As Object
    Dim FileItem As Object
    Dim DateLastModified As Date

    Application.Volatile
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileItem = FSO.GetFile(ThisWorkbook.FullName)
    DateLastModified = FileItem.DateLastModified
   
    'Return value
    DateTimeWorkbook = Format(DateLastModified, "dd/mm/yyyy hh:mm")
End Function

 

[merinos]

Il y a toujour la solution PQ:

Function LastModified() as Date

   LastModified = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
  
End Function

Voir ici

 

[Dudu2]

Bonjour @merinos,
Merci pour ce tuyau.
Mais c'est du pur VBA. En quoi serait-ce du PQ ?

 

[Dudu2]

Que serait la solution PQ ?
Et comment l'intégrer en VBA si c'est seulement possible d'interagir entre PQ et VBA ?