Doublon dans ListBox affichant liste fichier

[JB]

- 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

 

[yeahou]

Salut Jb, le forum

Quel type de fichiers? ta macro fonctionne bien chez moi. la lances tu plusieurs fois de suite ?

Cordialement, a+

 

[JB]

- Salut Yeahou,

non je ne la lance pas plusieurs fois de suite.
J'ai une autre macro qui affiche la liste des fichiers sur une feuille Excel et j'ai le même problême.

Il semble seulement que ce problême ne se produise qu'avec certains fichiers ayant une extension xls, que ce soit avec l'une ou l'autre macro.

Seuls quelques fichiers s'affichent en double et pas les autres...

J'espère que quelqu'un pourra m'aider.

A+ et merci de t'intéresser à mon problême.

JB