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

[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

Private Sub CommandButton16_Click()
 
Dim dossier As String
Dim Filename As String
Dim FilenameExiste
Dim DossierExiste
 
dossier = ThisWorkbook.Path & "\Dossier Arrêt\"
FilenameExiste = Dir(Filename)
 
DossierExiste = Dir(dossier, vbDirectory)
Filename = dossier & "\" & ListBox2.List(ListBox2.ListIndex)
 
Shell "explorer /select," & Filename, vbNormalFocus
 
End Sub

Je vous remercie infiniment pour votre attention

 

[thebenoit59]

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

Bonjour Mourad.

Ton fichier n'est pas visible dans ton post.

 

[nacereddine.mourad]

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

Merci thebenoit59 bonjour:
"Votre fichier de 322,6 Ko octets dépasse la limite du forum de 293,0 Ko pour ce type de fichier"
j ai beau essayer d'effacer

 

[thebenoit59]

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

Poste le sur un serveur ..

 

[nacereddine.mourad]

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

[XL-2010] Ouvrir l’explorateur sur le sous dossier qui correspond a l’item sélectionné dans ListBox

merci encore

 

[grisan29]

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

bonjour nacereddine.mourad et le forum

c'est comme dans l'autre post que tu as ouvert quand tu dits
ThisWorkbook.Path
la traduction est "c'est sur le bureau "