Discussion :

[JLDpilot]

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

[Invité]

Bonjour,

Je crois que la solution la plus simple est d'affecter vos noms de fichiers dans une plage de cellules, de trier cette plage et d'affecter ensuite à votre ComboBox.

[JLDpilot]

Merci. j'avais également pensé à cette manip. Mais il n'y aurait donc pas de commande "en direct" ?

[ucfoutu]

Bonjour,

pourquoi ne pas utiliser plus simplement une ListView, qui, elle :
- a une propriété Sorted
- te permet d'afficher les dates de tes fichiers
- te permet d'afficher leur taille
- te permet même de trier par date (avec une colonne cachée supplémentaire)
etc...
Ce serait quand-même beaucoup plus propre !

Je crois même qu'il m'est arrivé de donner un exemple sur ce forum (pas sûr) et sans utiliser FSO, en plus !

[SilkyRoad]

bonjour


Tu peux stocker les fichiers dans un tableau, y appliquer un tri et alimenter la listbox ensuite ( propriété List() ).

Un exemple qui tri par date de création:
Comment lister les fichiers d'un répertoire par ordre décroissant de date de création ?



Par listView comme proposé par ucfoutu:

http://silkyroad.developpez.com/VBA/ListView/#LII-I
"exemple liste les fichiers d'un répertoire ainsi que certaines de leurs propriétés."

ftp://ftp-developpez.com/silkyroad/f...tViewExcel.zip



bonne journée
michel

[JLDpilot]

Merci ucfoutu mais j'avoue que je suis largué !
comment une listview ? sans FSO ????

Ici j'utilise une combobox pour permettre à l'utilisateur d'y rechercher un fichier particulier. La liste pouvant être longue j'aurai souhaiter que ces fichiers soient classés par ordre alpha !

Désolé mais je ne possède pas ton niveau pour comprendre ces abréviations.

Merci pour l'éclairage

Jean-Luc