date de création d'un fichier non ouvert

[patrick]

Bonjour le forum,

J'ai encore besoin des services de vous tous. Je cherche à connaitre la date de création d'un fichier avant de l'ouvrir (en vba bien sur).
Je connais la commande ActiveWorkbook.BuiltinDocumentProperties(11) mais qui ne marche que sur un fichier déjà ouvert...

Merci à tous

 

[michel]

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

 

[patrick]

Super Michel, c'est exactement cela.

Merci mille fois