Choix du répertoire pour lister des fichiers

Bonjour à toutes et à tous!

Je me permets de vous importuner, car j'ai besoin, à intervalle très variable, de lister les fichiers présents dans des répertoires qui peuvent changer d'un intervalle à un autre.

Pour le moment, j'utilise le code suivant (trouvé sur ce forum, mais je ne remets plus la main dessus) :

Sub ImportFichier()
Dim Dossier As String, Fichier As String, i As Integer
Dossier = "C:\data\encours\"
i = 0
Fichier = Dir(Dossier)
Do While Fichier <> ""
i = i + 1
Sheets("Feuil1").Range("A" & i) = Fichier
Fichier = Dir
Loop
End Sub

Le soucis, avec ce code, c'est que je dois changer manuellement le chemin du répertoire. C'est cool, si c'est moi qui m'en occupe. Mais si c'est quelqu'un d'autre, ça va coincer.

Ma question est la suivante : est-il possible de faire en sorte que la macro demande le chemin du répertoire à importer?

Vous remerciant par avance de vos retours,

Cdt,

Bonjour,

Sub ImportFichier()
Dim Dossier As String, Fichier As String, i As Integer
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show

If Repertoire.SelectedItems.Count > 0 Then dossier= Repertoire.SelectedItems(1)
i = 0
Fichier = Dir(Dossier)
Do While Fichier <> ""
i = i + 1
Sheets("Feuil1").Range("A" & i) = Fichier
Fichier = Dir
Loop
End Sub

Merci pour ce retour rapide.

Mais il doit y avoir un truc que j'ai pas fait correctement, parce que j'ai bien une boîte de dialogue qui s'ouvre pour aller chercher le répertoire voulu, mais après, plus rien.

Vous pouvez éclairer ma lanterne?

Cdt,

Apparemment il manquait un \ à la fin du chemin.

Essaye comme ça :

Sub ImportFichier()
Dim Dossier As String, Fichier As String, i As Integer
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show

If Repertoire.SelectedItems.Count > 0 Then dossier= Repertoire.SelectedItems(1) & "\"
i = 0
Fichier = Dir(Dossier)
Do While Fichier <> ""
i = i + 1
Sheets("Feuil1").Range("A" & i) = Fichier
Fichier = Dir
Loop
End Sub

Yep! C'est cool, ça marche!! Milles mercis!