J
JB
Guest
- Salut à tous, les Forumwomen et Forumen,
voici mon petit problême, j'ai adapté une macro pour choisir une extension de fichier, ensuite chercher sur mon disque C et afficher dans une ListBox toute la liste des fichiers ayant cette extension.
Voici la macro:
Private Sub UserForm_Initialize()
typeFile = InputBox("Quel type de fichier?" & Chr(13) & "Taper l'extension!")
Dim F
With Application.FileSearch
.Filename = "*." & typeFile
.LookIn = "C:\"
.SearchSubFolders = True
.Execute
On Error Resume Next
For Each F In .FoundFiles
ListBox1.AddItem F
Next F
End With
End Sub
Mon problême est que certains fichiers sont repris plusieurs fois dans ma ListBox, j'en ignore la raison car le chemin complet est exactement le même.
J'aimerai résoudre ce problême de doublons mais les différentes méthodes trouvées sur le forum ne semblent pas pourvoir s'appliquer à ma macro.
Je compte sur vous et vous remercie d'avance.
JB
voici mon petit problême, j'ai adapté une macro pour choisir une extension de fichier, ensuite chercher sur mon disque C et afficher dans une ListBox toute la liste des fichiers ayant cette extension.
Voici la macro:
Private Sub UserForm_Initialize()
typeFile = InputBox("Quel type de fichier?" & Chr(13) & "Taper l'extension!")
Dim F
With Application.FileSearch
.Filename = "*." & typeFile
.LookIn = "C:\"
.SearchSubFolders = True
.Execute
On Error Resume Next
For Each F In .FoundFiles
ListBox1.AddItem F
Next F
End With
End Sub
Mon problême est que certains fichiers sont repris plusieurs fois dans ma ListBox, j'en ignore la raison car le chemin complet est exactement le même.
J'aimerai résoudre ce problême de doublons mais les différentes méthodes trouvées sur le forum ne semblent pas pourvoir s'appliquer à ma macro.
Je compte sur vous et vous remercie d'avance.
JB