PDA

View Full Version : VBA ouvrir explorateur sur le sous dossier qui correspond a l'item ListBox



nacereddine
06-30-2016, 03:38 AM
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

gmayor
07-07-2016, 11:42 PM
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