Option Explicit
Sub AfficheInfoAccesFichierSpecFichier()
Dim SpecFichier As String
SpecFichier = InputBox("Fichier dont vous voulez afficher des info ?")
If SpecFichier = "" Then Exit Sub
AfficheInfoAccesFichier SpecFichier
End Sub
Sub AfficheInfoAccesFichier(ByVal SpecFichier As String)
'mpfe Eric Jeanne
' SpecFichier doit comporter le nom et le chemin complet d'un fichier. Ex:
' AfficheInfoAccesFichier Workbooks("FonctionsDeDates.xls").FullName
Dim FSO As New FileSystemObject, F As File
On Error Resume Next
Set F = FSO.GetFile(SpecFichier)
If Err Then
MsgBox "Impossible d'isoler """ & SpecFichier & """.", vbCritical, "AfficheInfoAccesFichier"
Else
MsgBox UCase(SpecFichier) _
& vbLf & "Créé le : " & F.DateCreated _
& vbLf & "Dernier accès le : " & F.DateLastAccessed _
& vbLf & "Dernière modification le : " & F.DateLastModified, _
vbInformation, "AfficheInfoAccesFichier"
End If
End Sub