oouuppss...
mille excuses , une petite erreur lors du copier/coller ...
Sub PropriétésClasseurActif()
Dim Cible As Object, Valeur As Object
Dim Resultat As String
Set Cible = CreateObject("Scripting.FileSystemObject")
Set Valeur = Cible.GetFile(ActiveWorkbook.FullName)
Resultat = "Chemin : " & Valeur.ParentFolder & vbLf & vbLf & _
"Nom fichier : " & ActiveWorkbook.Name & vbLf & vbLf & _
"Date creation : " & Valeur.DateCreated & vbLf & vbLf & _
"Derniere sauvegarde : " & Valeur.DateLastModified & vbLf & vbLf & _
"Taille classeur : " & Valeur.Size & " octets"
MsgBox Resultat
End Sub