Discussion :

[nacereddine.mourad]

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

désoler j'ai aucun code
Je vous remercie infiniment pour votre attention

[Docmarti]

Bonjour.

La syntaxe pour ouvrir dans l'explorateur est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "explorer /select," & CheminDuFichier, vbNormalFocus

[nacereddine.mourad]

Merci Docmarti, et encore désoler j’ai pa pu adapter les codes du site a la syntaxe

j'ai trouver ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Long
Dim fs
Set fs = Application.FileSearch
With fs
    .LookIn = ThisWorkbook.Path & "\Dossier Arrêt\"
    .SearchSubFolders = True
    .Filename = ListBox2.ListIndex   
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
         " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton16_Click()
 
dossier = ThisWorkbook.Path & "\"
 
Filename = dossier & ListBox2.List(ListBox2.ListIndex)
 
Shell "explorer /select," & Filename, vbNormalFocus
 
End Sub

[nacereddine.mourad]

bonjour et merci Docmarti, désoler pour le retard
il y a une erreur d'exécution 13 incompatibilité de type?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton16_Click()
Dim dossier As Integer
Dim Filename As Integer
 
dossier = ThisWorkbook.Path & "\"
 
Filename = dossier & ListBox2.List(ListBox2.ListIndex)
 
Shell "explorer /select," & Filename, vbNormalFocus
 
End Sub

merci encore

[davido84]

Je n'ai pas testé le code mais pourquoi les variables dossier et Filename sont déclarés en Integer et non en String ?
A+

[nacereddine.mourad]

A oui avec String en se rapproche de l’objectif, mais je n’arrive toujours pas à ouvrir le sous dossier mourad, l’explorateur s'ouvre sur Mes documents

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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, vbNormalFocus
 
End Sub

merci encore

[Docmarti]

Avec le code suivant,
quelle est la valeur de Filename ?
quelle est la valeur de FilenameExiste ?
quelle est la valeur de DossierExiste ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton16_Click()
Dim dossier As String
Dim Filename As String
Dim FilenameExiste
Dim DossierExiste
 
dossier = ThisWorkbook.Path & "\mourad"
 
Filename = dossier & "\" & ListBox2.List(ListBox2.ListIndex)
 
FilenameExiste = Dir(Filename)
DossierExiste = Dir(dossier, vbDirectory)
 
Stop
 
Shell "explorer /select," & Filename, vbNormalFocus
 
End Sub

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton16_Click()
 
Dim dossier As String
Dim Resultat As Boolean
Dim Equipement As String
 
dossier = ThisWorkbook.Path & "\Dossier Arrêt"
 
 Resultat = False
 Equipement = ListBox2.List(ListBox2.ListIndex, 1)
 
Call arborescence2(dossier, Equipement, Resultat)
If Resultat = False Then
   MsgBox "Dossier " & Equipement & "  non trouve"
End If
 
End Sub

Dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim Afficher As Boolean
 
'Code de J. Boisgontier  (modifié)
Sub arborescence2(dossier, valeur, Resultat)
  Resultat = False
 
  If dossier = "" Then Exit Sub
 
  Dim fs As Object
  Dim dossier_racine As Object
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.GetFolder(dossier)
 
  Afficher = False
  Lit_dossier2 dossier_racine, 1, valeur
  Resultat = Afficher
 
End Sub
 
Sub Lit_dossier2(ByRef dossier, ByVal niveau, valeur)
 
  If Afficher = True Then Exit Sub
 
  If dossier.Name = valeur Then
    Afficher = True
    Shell "explorer /select," & dossier.Path, vbNormalFocus
    Exit Sub
  End If
 
  Dim d As Object
 
  For Each d In dossier.SubFolders
     If Afficher = True Then Exit For
     Lit_dossier2 d, niveau + 1, valeur
  Next
End Sub

[davido84]

Teste simplement en inscrivant en dur le chemin d'un dossier qui se trouve par exemple sur ton bureau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Ouvrir_Explorateur()    
Dim sChemin As String
    sChemin = "C:\Users\xxx\Desktop\le_dossier_test" 'adapter en récupérant le chemin correct vers ton bureau menant au dossier test
    Shell "explorer.exe " & sChemin, 1 'Ouverture de l'explorateur (attention à l'espace après "explorer.exe")
End Sub

Si cela fonctionne c'est ta syntaxe pour récupérer le chemin qui n'est pas bonne.

A+

[nacereddine.mourad]

Bravo Docmarti, bravo tout le monde, sa marche a la perfection
Merci encore