demande d'aide sur listbox

[jean Comte]

Bonjour a tous et a toutes,


Il y a quelques temps déjà, j'ai sollicité votre aide, et j'ai été super ravi de la réponse rapide et efficace que j'ai recu.
Aujoud'hui encore, je me permet de vous sollicité.

Voila mon petit problème, dans ma listBox qui marche très bien, je voudrais
afficher la "barre bleu" pour sélectionner le fichier à ouvrir, car pour le moment, il n'y a que le premier fichier qui est entouré de pointillé.

Ce que je voudrais, c'est pouvoir soit avec la souris, ou les flèches du clavier me déplacer sur la liste des fichiers affichés

Je vous remercie d'avance pour l'aide que vous pouvez me donner.




Private Sub ListBox1_Click()
Workbooks.Open chemin & ListBox1
Unload Me
End Sub

Private Sub userform_initialize()
Dim thisbookpath As String
Dim cherchefichier As FileSearch
Dim I As Integer
On Error Resume Next

Set cherchefichier = Application.FileSearch
thisbookpath = ThisWorkbook.Path
chemin = "c:\compta 2.5\copie de travail\a_facture\"

With cherchefichier
.NewSearch
.Filename = "*.xls"
.LookIn = chemin
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To .Count
ListBox1.AddItem Dir(.Item(I))
Next I
End With
Else
MsgBox "pas de fichier trouvé dans " & chemin
End If
End With
Set cherchefichier = Nothing

End Sub




Je vous souhaite à tous et toutes de joyeuses fêtes de Pâques et de bonnes vacances.

jean

 

[michel]

bonjour Jean

tu peux par exemple remplacer

Private Sub ListBox1_Click()
Workbooks.Open chemin & ListBox1
Unload Me
End Sub

par

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open chemin & ListBox1
Unload Me
End Sub

tu pourras ainsi te deplacer dans la listbox . l'ouverture des fichiers sera effectué par un double clic sur le nom cible


bon week end
michel