VBA ouvrir explorateur sur le sous dossier qui correspond a l'item ListBox

[nacereddine]

Bonjour à tous

Pour afficher l’Userform : feuille : ’BDD equipements’

Taper mourad dans la TextBox2

Problématique : avec CommandButton16_Click je voudrai ouvrir l’explorateur sur le sous dossier qui correspond à l’item sélectionner dans ListBox2 en utilisons ThisWorkbook.Path

Private Sub CommandButton16_Click()

Dim dossier As String
Dim Filename As String
 
dossier = ThisWorkbook.Path & "\"
Filename = dossier & ListBox2.List(ListBox2.ListIndex)
 
Shell "explorer /select," & Filename, vbMaximizedFocus
 
End Sub

Je vous remercie infiniment pour votre attention