Date d'un fichier

[SOULY Alain]

Comment récupérer dans une cellule la date de création d'un fichier (pas forcément excel) sur le disque ?
Merci d'avance.

 

[omicron]

Bonsoir Alain,

Pour récupérer les informations sur le système de fichiers de ton ordinateur, tu peux utiliser les classes de la librairie "Microsoft Scripting Runtime"

Pour cela tu sélectionnes :
Outils/Références ...
Tu recherches cette librairie et tu la sélectionnes (Check Box)
En principe tu devrais l'avoir sur ta machine.

Ensuite tu peux par exemple retrouver la date de création de ton fichier Boot.Ini en programmant une séquence du type :

Public Sub Obtenir_Date_Creation_Fichier()
Dim FilSys As New FileSystemObject
Dim Fil As File
Set Fil = FilSys.GetFile("C:\Boot.Ini")
MsgBox "La date de création du fichier : " & Fil.Name & " est : " & Fil.DateCreated
End Sub

Cette librairie offre beaucoup de possibilités. Pour la documentation, si tu n'as pas de bouquins, c'est un peu plus hard. Mais grâce à l'explorateur d'objet, même s'il n'y a pas d'aide en ligne, le modèle n'est pas trop compliqué à comprendre et l'on peut faire beaucoup de choses ...

En espérant avoir répondu à la question.

Bon Week-end