Combobox multiples

[sten83]

Bonjours a tous, dans un fichier j'ai un userform avec 4 combobox dans chaque combo j'aimerai récupérer des fichiers provenant de répertoire différent, un par combo, ça ne marche pour le premier mais je n'arrive pas pour les autres.
Besoin de vos lumière.

 

[Guest]

Re : Combobox multiples

Bonjour,

Avec une petite procédure (FillCombo) à laquelle tu passes le chemin et le Combobox en paramètres. Cette procédure étant Private elle doit être présente dans le module du UserForm

Private Sub FillCombo(Chemin As String, Cbx As MSForms.ComboBox)
    Dim Fichier As String
    Fichier = Dir(Chemin)
    Do While (Len(Fichier) > 0)
        Cbx.AddItem Fichier
        Fichier = Dir()
    Loop
End Sub
Private Sub UserForm_Initialize()
    FillCombo "c:\FACTURES_LOUEURS\AVIS\*.xls", Me.ComboBox1
    FillCombo "c:\FACTURES_LOUEURS\CITER\*.xls", Me.ComboBox2
    Me.Caption = Format(Date, "dddd dd mmmm yyyy")
    Me.DTPDateDebut.Value = Date
    Me.DTPDateFin.Value = Date
    SansX Me
End Sub

A+

 

[sten83]

Re : Combobox multiples

Bonsoir, je viens de mettre en place le code que tu me propose mais rien ne fonctionne les combo ne se remplissent pas avec les fichiers.
Voici ce que j'ai mis:

Private Sub FillCombo(Chemin As String, Cbx As MSForms.ComboBox)
Dim Fichier As String
Fichier = Dir("c:\FACTURES_LOUEURS\")
Do While (Len(Fichier) > 0)
Cbx.AddItem Fichier
Fichier = Dir()
Loop
End Sub
Private Sub UserForm_Initialize()

Dim I As Integer, Chemin As String, Fichier As String
FillCombo "c:\FACTURES_LOUEURS\AVIS\*.xls", Me.ComboBox1
FillCombo "c:\FACTURES_LOUEURS\CITER\*.xls", Me.ComboBox2
FillCombo "c:\FACTURES_LOUEURS\EUROPCAR\*.xls", Me.ComboBox3
FillCombo "c:\FACTURES_LOUEURS\HERTZ\*.xls", Me.ComboBox4

Me.Caption = Format(Date, "dddd dd mmmm yyyy")
Me.DTPDateDebut.Value = Date
Me.DTPDateFin.Value = Date

SansX Me


End Sub

la macro est sensé récupérer les fichier qui se trouve dans les répertoire se trouvant sur c ( le chemin: c:\FACTURES_LOUEURS\AVIS
C:\FACTURES_LOUEURS\CITER
C:\FACTURES_LOUEURS\EUROPCAR
C:\FACTURES_LOUEURS\HERTZ

ce sont les quatre répertoires qui contiennent les fichiers a récupérer.

 

[Guest]

Re : Combobox multiples

Bonjour,

Je viens de tester sur des répertoires existants cela fonctionne, je ne peux deviner ce qui empêche de fonctionner chez toi.
As-tu des fichiers .xls dans tes répertoires?
Teste avec *.* : FillCombo "c:\FACTURES_LOUEURS\AVIS\*.*", Combobox1

Tu peux supprimer les variables inutiles dans UserForm_Initialize.

A+

 

[sten83]

Re : Combobox multiples

Bonjour, tout compte fait j'ai opter pour plus simple en cherchant les fichiers dans un seul dossier.
Par contre comment faire pour imprimer la feuille sélectionner dans le combobox1.
Merci de ton aide