recuperer fichiers par date de creation

Bonjour,

j'ai une liste de fichiers *.xls à recuperer dont le label est sous la forme d'une date "date".xls par exemple:

25_12_2009.xls
26_12_2009.xls
27_12_2009.xls
..................
30_12_2009.xls
31_12_2009.xls
01_01_2010.xls
02_01_2010.xls

j'utilise le code suivant pour recuperer ces fichiers aui permet aussi de les fusionner:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

D = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) CheminExp = "mon chemin" Do While Fich <> "" Ligne = Range("a65536").End(xlUp).Row + 1 Workbooks.Open CheminExp & Fich$ Range("A1", Range("K65536").End(xlUp)).Copy _ Workbooks("rapport_mutualisé_" & D & ".xls").Sheets(1).Cells(Ligne, 1) ActiveWorkbook.Close False Fich = Dir Loop

---

le problème que j'ai rencontré c'est que la récuperation de ces fichiers ne se fait pas du plus vieux au plus recent mais par rapport au label par exemple:

le fichier recuperer et listé en premier dans ce cas sera:

01_01_2010.xls au lieu de 25_12_2009.xls

merci pour votre aide.

Bonjour

Tes noms de fichiers ne sont pas interprétés comme des dates, mais comme du texte, donc tu n'auras jamais d'ordre chronologique.

En partant de ce que tu as, je te conseille de rajouter une colonne et d'utiliser une fonction comme Date (mixer avec les fonction Gauche, droite, etc...) pour générer une date valide, de sélectionner ces deux colonnes et de faire un tri sur la deuxième (aide toi de l'enregistreur de macro pour cette deuxième partie).

Il y a bien sûr d'autres solutions peut-être plus rapide, mais dans tous les cas, tes noms de fichier seront toujours triés par ordre alphabétique.

Philippe

Bonjour,

Pour avoir un ordre chronologique avec les date, il vaut mieux mettre aaaa_mm_jj au lieu de jj_mm_aaaa.

Cdt

Merci pour vos réponses, effectivement "bibi" inverser la date me parait le plus simple à réaliser.