Charger fichiers dans un listBox

Version imprimable

29/05/2013, 14h21
pasterlouis

Charger fichiers dans un listBox

Bonjour,
J'ai un problème. En fait je doit faire le traitement de certains fichiers contenus dans un dossier. Je voudrais faire une macro qui me permet de selectionner un dossier et qui me liste tous les fichiers excel contenu dans ce dossier dans une listBox (j'ai déja créer un userform ou j'ai les boutons: "choisir repertoire" et un listBox où j'aiemrais qu'apparaissent mes fichiers) afin que je puisse tout selectionner ou selectionner les dossiers que je veux.
Merci de votre aide

Bonjour,

Modifie le chemin du dossier :

Code:

1
2
3
4
5
6
7
8
9
    With Me.ListBox1
        .Clear
        chemin = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe"
        fich = Dir(chemin & "\*.xls?")
        Do While fich <> ""
            .AddItem fich
        fich = Dir
        Loop
    End With

29/05/2013, 16h03
pasterlouis

Merci beaucoup daniel
mais en fait mon chemin n'est pas fixe; le dossier pourrait se trouver n'importe où et pas forcément toujours a la même place. C'est pour ça que je veux associer à un commandbouton qui me permettra d'aller selectionner le dossiers que je veux. Et je voudrais aussi qu'il marche avec tous les fichiers excel 2003 et excel 2007

Attache ce code à ton bouton.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
    Dim Dossier As String, Fich As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        Dossier = .SelectedItems(1)
    End With
    With Me.ListBox1
        .Clear
        Fich = Dir(Dossier & "\*.xls?")
        Do While Fich <> ""
            .AddItem Fich
        Fich = Dir
        Loop
    End With
End Sub

La macro lit tous les types de classeur Excel.

29/05/2013, 19h48
pasterlouis

Merci beaucoup Daniel. mon probleme est reglé. Encore merci

Fuseau horaire GMT +2. Il est actuellement 19h46.