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