Salut,
Mettre ceci dans un module:
Function specdefichiers(specfichier, ret)
' les principales informations
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
ret = ret & UCase(specfichier) & vbCrLf
ret = ret & "Créé le : " & f.DateCreated & vbCrLf
ret = ret & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
ret = ret & "Dernière modif le : " & f.DateLastModified & vbCrLf
ret = ret & "Taille : " & f.Size
End Function
Sub fba()
' sauvegarfder le dossier
ActiveWorkbook.Save
'
Dim specfichier, ret, fs, f, s
'chemin absolu et nom fichier
specfichier = ActiveWorkbook.FullName
'
'1/ appel par la fonction
'
Call specdefichiers(specfichier, ret)
Range("feuil1!A1") = ret
'
'ou
'
'2/ en direct
'
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
Range("feuil1!B1") = UCase(specfichier)
Range("feuil1!B2") = "Créé le : " & f.DateCreated
Range("feuil1!B3") = "Dernier accès le : " & f.DateLastAccessed
Range("feuil1!B4") = "Dernière modif le : " & f.DateLastModified
Range("feuil1!B5") = "Taille : " & f.Size
End Sub
et cela dans ThisWorkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call fba
End Sub
