Discussion :

[Danielclaude93]

Bonjour
Je désire qu'a l'ouverture d'un classeur, la date de sa dernière modification enregistrée apparaisse dans une cellule de la première feuille.
En m’inspirant des réponses apportées ici à des questions semblables, j'ai rédigé la procédure suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim Chemincomplet As String
Dim Datedermodif As String
Dim Fso As Scripting.FileSystemObject
Dim FileItem As Scripting.File
 
Private Sub Workbook_Open()
    Chemincomplet = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    ActiveSheet.Range("A1").Value = Chemincomplet
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set FileItem = Fso.GetFile(Chemincomplet)
    Datedermodif = Left(FileItem.DateLastModified, 20)
    ActiveSheet.Range("A3").Value = Datedermodif
End Sub

La procédure fonctionne , mais je n'obtiens pas la date/heure de dernière modification (que je peux voir dans l'explorateur) mais tout simplement la date/heure actuelle ??????
Quelqu'un a-t-il une idée sur la cause ?
Merci de votre aide.
Daniel

[Invité]

Bonsoir,

Normal, à l'ouverture ton ficher est déjà déclaré modifié par windows

Donc la seule date que tu peux obtenir est celle du jour

A+

[PMO2017]

Bonjour,

Essayez de remplacer l'intégralité de la procédure Workbook_Open par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
[a1] = ActiveWorkbook.FullName
[a3] = ActiveWorkbook.BuiltinDocumentProperties("Last save time")
[a3].NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub