Merci pour vos réponses,
J'ai essayé les deux codes suivants mais aucun ne fonctionne.
Je n'ai pas accès au menu références.. pensez-vous que c'est impossible à mettre en place ?
Private Sub UserForm_Initialize()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("\Incidents.xlsx")
UserForm1.Label1.Caption = Format(oFl.DateLastModified, "dd/mm/yy")
End Sub
Private Sub Label1_Click()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("\Incidents.xlsx")
UserForm1.Label1.Caption = Format(oFl.DateLastModified, "dd/mm/yy")
End Sub