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

[gmayor]

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 .

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