Discussion :

[Jeff77]

Bonjour,
J'ai une zone de liste déroulante avec :
Origine source = ListeFichiers
Contenu = SELECT ListeFichiers FROM ListeFichiers ORDER BY ListeFichiers

ListeFichiers est la fonction qui me permet de lister les fichiers du répertoire souhaité.
Seul problème les fichiers ne sont pas classés par Nom. Comment faire ?
Ci-dessous le code utilisé pour la fonction.
Merci par avance pour votre aide.

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
31
32
33
34
35
36
37
Function ListFichiers(fld As Control, id As Variant, row As Variant, col As Variant, code As Variant) As Variant 
Static dbs(127) As String, Entries As Integer 
Dim ReturnVal As Variant, Nombre As Integer 
Dim AnalyseRépertoire As String, Annee As String, Adresse As String 
 
Adresse = Me!Adresse1 
Nombre = Me.NuméroPoste 
Annee = Me.CHRONO 
AnalyseRépertoire = Adresse & "Gestion des Equipements\Documents\Doc_PDF\ChronoOpérateur\" & Annee & "\Poste" & Nombre & "*.*"
 
ReturnVal = Null 
    Select Case code 
 
            Case acLBInitialize     'initialisation 
            Entries = 0 
            dbs(Entries) = Dir(AnalyseRépertoire, vbDirectory) 
            Do Until dbs(Entries) = "" Or Entries >= 127 
                Entries = Entries + 1 
                dbs(Entries) = Dir 
            Loop 
            ReturnVal = Entries 
        Case acLBOpen           'Ouvre 
            ReturnVal = Timer 
        Case acLBGetRowCount    'nombre de lignes 
            ReturnVal = Entries   'nombre de ligne inconnu 
        Case acLBGetColumnCount 
            ReturnVal = 1 
        Case acLBGetColumnWidth 
            ReturnVal = -1 
        Case acLBGetValue 
            ReturnVal = dbs(row) 'correspond au nom du fichier 
        Case acLBEnd 
            Erase dbs 
    End Select 
    ListFichiers = ReturnVal 
 
End Function

[=JBO=]

Bonjour,

Va voir chez Microsoft cet exemple, et plus particulièrement la procédure Quicksort.

How To Add the Entire Directory Structure to a RichTextBox
http://support.microsoft.com/kb/189631/en-us