Le résultat

 Le code du bouton "Sélection d'un dossier" et le remplissage de la listBox

Code de la Function GetDirectory dans le module "ModuleDirectory" de l'exemple à télécharger

Private Sub CommandButton1_Click()
x = GetDirectory
ligne = Dir(x & "\" & "*.xls")

'Ou bien en indiquant directement le path et le type de fichier
'Dir("C:\ajeter\*.xls") ou Dir("C:\ajeter\*.doc")
'ou tous les types :
'ligne = Dir("C:\ajeter\*.*")

Do While ligne <> ""
DoEvents
ligne = Dir()
ListBox1.AddItem ligne
Loop
End Sub

 Comment sélectionner un classeur dans la liste ?

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If mbDisableEvents Then Exit Sub
mbDisableEvents = True

With Me.ListBox1
If .ListCount > 0 Then
If .ListIndex = .ListCount - 1 Then
.ListIndex = .ListCount - 1
End If
End If

MsgBox "Vous avez sélectionné :" & .List(.ListIndex)
End With
mbDisableEvents = False
End Sub

 Et comment ouvrir ce classeur ?

Private Sub CommandButton2_Click()
'pour ouvrir le classeur sélectionné
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub

dirListBox.zip   17 ko  Télécharge l'exemple