Discussion :

[pasterlouis]

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

[Daniel.C]

Bonjour,

Modifie le chemin du dossier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Daniel.C]

Attache ce code à ton bouton.

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
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.

[pasterlouis]

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