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:
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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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.
Partager