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

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

Code:

---

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

Si le dossier existe alors le code va commencer l'Explorateur de fichiers dans le dossier nommé . Si elle existe , un message est affiché. Cela devrait aider à identifier le problème .

Code:

---

Private Sub CommandButton16_Click()
Dim fso As Object
Dim dossier As String
Dim Filename As String
    dossier = ThisWorkbook.Path & "\"
    Filename = dossier & ListBox2.List(ListBox2.ListIndex)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If (fso.FolderExists(strFolderName)) Then
        Shell "C:\WINDOWS\explorer.exe """ & Filename & "", vbNormalFocus
    Else
        MsgBox "Le dossier " & Filename & " n'existe pas"
    End If
End Sub

---