Combiner choix de répertoire et liste de répertoire

[Aurore_C]

Bonjour,

A l'aide d'un code VBA trouvé sur ce forum, je peux lister les noms de fichiers d'un répertoire.
Mais ce code fait référence au répertoire dans lequel se trouve le fichier.

Cependant, je ne souhaite pas lister forcément les fichiers du répertoire courant. Dans ce cas, comment combiner le code ci-dessous de "choix d'un répertoire" avec le code permettant de lister les fichiers ?

Sub Dossier()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
choixDossier = .SelectedItems(1)
Else
choixDossier = ""
End If
End With
MsgBox choixDossier
End Sub

Je joins mon fichier actuel réduit au minimum pour plus de clarté.

Merci,
Aurore

 

[BOISGONTIER]

Re : Combiner choix de répertoire et liste de répertoire

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Fichier/ListeFichiersRepertoire.xls

JB

 

[Aurore_C]

Re : Combiner choix de répertoire et liste de répertoire

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Fichier/ListeFichiersRepertoire.xls

JB

Bonjour,

Merci beaucoup, c'est exactement ça et ça marche impeccable !!

Aurore