Consulting

Results 1 to 2 of 2

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

  1. #1

    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


    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
    Attached Files Attached Files

  2. #2
    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
    Graham Mayor - MS MVP (Word) 2002-2019
    Visit my web site for more programming tips and ready made processes
    http://www.gmayor.com

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •