Dates de création fichiers/excel

[matthieu]

Bonsoir à tous

Je dispose de fichiers.txt avec leurs dates de création et je voudrais faire apparaitre les noms de ces fichiers +les dates de création correspondantes dans un fichier EXCEL.

J'ai réussi à faire apparaître les noms des fichiers en faisans une recherche +macro mais je n'arrive pas à lier la date de création.


Est ce que qq'un peut m'aider??

merci d'avance

 

[myDearFriend]

Bonsoir matthieu,

Le code ci-dessous te permet d'analyser le dossier dans lequel se trouve ton classeur. Dans la feuille courante, tu obtiendras la liste des fichiers .txt présents dans ce dossier et leur date de création :

Sub ListeFichiersTxt()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
   'Chemin du dossier à analyser (à adapter au besoin)
   Chemin = ThisWorkbook.Path
   '
   Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
   For Each Fichier In Dossier.Files
      If Right(Fichier.Name, 3) = "txt" Then
         I = I + 1
         Cells(I, 1) = Fichier.Name
         Cells(I, 2) = Fichier.datecreated
      End If
   Next
End Sub


Cordialement.

Didier_mDF

 

[matthieu]

Bonjour didier


Merci pour ton aide aussi rapide

J'ai essayé d'adapter ton code à mes caractéristiques et cela donne ce code. il ne semble pas y avoir d'erreur mais rien ne se passe!!! En fait je voudrais que tous les fichiers se terminant par 11_2004 s'affiche avec leurs dates de création

Sub ListeFichiersTxt()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = "D:\FICHIERS\MOIS\MOIS_ARCHIVE"
Set Dossier =
CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If (Fichier.Name) = "11_2004*" Then
I = I + 1
Cells(I, 1) = Fichier.Name
Cells(I, 2) = Fichier.datecreated
End If
MsgBox FoundFiles.Count & " Fichier(s) ont été trouvés."
Next
End Sub

 

[myDearFriend]

Re- matthieu,


Essaie de remplacer ta ligne :

   If (Fichier.Name) = "11_2004*" Then

Par celle-ci :

   If Fichier.Name Like "*11_2004.txt" Then


Je pense que ça devrait fonctionner...


Cordialement.

Didier_mDF

 

[matthieu]

merci beaucoup

ca fonctionne!!!


salutations

matthieu