J
jean Comte
Guest
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
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