Bonjour,

j'ai une listbox qui reprend les fichiers d'un répertoire et je voudrais les trier par ordre décroissant
mes fichiers sont du genre 00123.CSV, 00124.CSV

J'ai regarder dans les propriétés de listbox mais rien trouvé ou passé à côté.

voici mon code :

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
Private Sub UserForm_Initialize()
 
    Dim Chemin As String, fichiers As String, folder As String
    Dim Wb As Workbook
 
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    folder = "VEK_12xxxx1112xx\"
    fichiers = Dir(Chemin & folder & "*.csv")
 
    'position de USF sur l'écran
    With VisaVekDownload
        .startUpPosition = 3
        .Left = 700
        .Top = 25
    End With
 
    While fichiers <> ""
    ListBox1.AddItem fichiers
    fichiers = Dir()
    Wend
    OteCroix VisaVekDownload
 
End Sub
Merci pour vos lumières