Attributs d'un fichier importé

[chuinul]

Bonjour tout le monde,

Je cherche a récupérer les attributs d'un fichier .txt importé dans Excel.

Je voudrais connaitre la date et l'heure de la dernière modification de celui-ci, puis de l'afficher dans un Userform.

Quelqu'un saurait comment récupérer cela?

Merci d'avance

 

[Catrice]

Re : Attributs d'un fichier importé

Bonjour,

ci-joint un exemple à adapter à ton contexte.
Il y a plusieurs macro dans ce fichier, celle qui t'intéresse est : AfficherInfoFichier

 

[chuinul]

Re : Attributs d'un fichier importé

Merci, mais ça ne marche pas

le debogeur s'arrete ici : Set f = fs.GetFile(FichierATester)

j'ai bien mis un toto.txt dansle même répertoire que le fichier excel

 

[Staple1600]

Re : Attributs d'un fichier importé

Bonjour

La macro fonctionne (c'est juste un problème de référence)

Set fs = CreateObject("Scripting.FileSystemObject")

Cela indique qu' il faut faire référence:

à Microsoft Scripting Runtime

(Dans VBE (ouvert par ALT+F11) aller dans Outils/Référenes
et cocher la référence manquante:

Microsoft Scripting Runtime

 

[chuinul]

Re : Attributs d'un fichier importé

Ah yes, c'est vachement mieux

Merci a vous deux