re "Francoise"
une autre possibilité à adapter peut être????
renvoie dans MsgBox des Propriétés
Sub propriétésclasseur()
Dim Cible As Object, Val As Object
Dim Resultat As String, Fichier As String
Fichier = "C:\\\Test.xls" 'adapter le chemin
Set Cible = CreateObject("Scripting.fileSystemObject")
Set Val = Cible.getFile(Fichier)
Resultat = "Chemin : " & Val.parentFolder & Chr(10) & Chr(10) & _
"Nom et chemin fichier : " & Fichier & Chr(10) & Chr(10) & _
"Date création : " & Val.dateCreated & Chr(10) & Chr(10) & _
"Dernière sauvegarde : " & Val.dateLastModified & Chr(10) & Chr(10) & _
"Taille classeur : " & Val.Size & " octets"
MsgBox Resultat
End Sub
Bonne nuit
A+++
Jean Marie