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 : 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 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.