date de création d'un fichier non ouvert

bonjour Patrick

j'espere que cette macro pourra t'aider


Sub propriétésclasseur()
Dim Cible As Object, Val As Object
Dim Resultat As String, Fichier As String

Fichier = "C:\Classeur2.xls" 'adpater 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 creation : " & Val.dateCreated & Chr(10) & Chr(10) & _
"Derniere sauvegarde : " & Val.dateLastModified & Chr(10) & Chr(10) & _
"Taille classeur : " & Val.Size & " octets"

MsgBox Resultat
End Sub


bon apres midi
MichelXld

Super Michel, c'est exactement cela.

Merci mille fois