Bonjour à tous
Avec le code ci-après j'importe dans une listbox les fichiers trouvés dans un répertoire et qui répondent à certains critères. Comment puis-je obtenir un tri alphabétique des fichiers apparaissant ainsi dans la listbox ?
Merci de votre aide
JLDpilot
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 '----------------------------------------------- Private Sub UserForm_Initialize() Application.ScreenUpdating = False 'intègre dans les listes déroulantes tous les fichiers Excel situés dans le répertoire "Mes Documents" monChemin = Application.DefaultFilePath Frame1.Caption = monChemin Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(monChemin) Set fc = f.Files For Each f1 In fc If Left(f1.Name, 7) = "EAS 04-" _ And f1.Type = "Feuille de calcul Microsoft Excel" And Len(f1.Name) > 13 Then CboFiles.AddItem f1.Name End If Next CboFiles.ListIndex = 0 CboFiles.SetFocus Application.SendKeys ("{F4}") Set fs = Nothing Set f = Nothing Set fc = Nothing Application.ScreenUpdating = True End Sub
Partager