Signal du dernier enregistrement

Bonjour à tous,

Est il possible d'avoir un message à l'ouverture de mon fichier excel qui m'indique la date de mon dernier enregistrement?

Merci par avance

Bonjour

Code à placer dans ThisWorkbook

Private Sub Workbook_Open()
MsgBox ("Dernière Modification le : " & Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YY"))
End Sub

Amicalement

Nad

Super Merci.

Par contre est il possible de faire un message à l'ouverture pareil mais qui puisse nous indiquer quand il a été enregistré la dernière fois et quand il a été consulté la dernière!

Suis je assez clair?

Merci par avance

Après plusieurs essais en écrivant de différentes manières (Last Access, Last Accessed, Last View, Last Opening ...), impossible d'obtenir le bon code.

Nad

Salut Nad,

Voici les items du Builtinproperties:

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)

Il faudrait peut être plutôt voir, à priori, du coté de getfile().... mais ça, je n'y arrive pas.....

Bonjour,

essaie avec ce code :

Private Sub Workbook_Open()
Dim MonFichier As String, S As String
Dim Fs As Object, F As Object

MonFichier = ThisWorkbook.Name

Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)

S = "Date de création: " & F.DateCreated & vbCrLf
S = S & "Dernier Accès: " & F.DateLastAccessed & vbCrLf
S = S & "Dernières Modifications: " & F.DateLastModified
MsgBox S, 0, "Informations sur ce fichier"
End Sub

Encore une fois mission accomplie

Merci