Ne pas afficher fichiers Excel dans une ListBox

Bonjour, bonsoir à toutes et à tous !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Initialize()   ChDrive "P:" UserForm3.BackColor = RGB(255, 255, 255) 'Suppression des items précédents' ListBox1.Clear   'Ajout des items .txt actuels' Fichiers = Dir("P:\*.txt") While Fichiers <> "" ListBox1.AddItem Fichiers Fichiers = Dir() Wend End Sub

---

Voici mon problème. Je liste dans une ListBox tous les fichiers .txt présents dans un répertoire P:\ pour les ouvrir par la suite sous un format CSV. Malheureusement, certains fichiers texte n'ont pas l'extension .txt

Donc en changeant juste cette ligne:

Code:

---

Fichiers = Dir("P:\*")

---

J'ai ici tous les fichiers même ceux sans extension. Mais malheureusement, dans mon répertoire il y a aussi des fichiers .xlsx que j'aimerai ne pas avoir dans ma ListBox. Donc j'aimerai savoir s'il est possible de choisir de ne pas afficher des fichiers avec une certaine extension. En espérant avoir été le plus clair possible !

Merci beaucoup !

Bonjour
si tous ces fichiers se trouvent dans un seul dossier (exemple ici c:\toto) --->>

Code:

---

1 2 3 4 5 6 7 8

ListBox1.Clear fichiers = Dir("C:\toto\*") While fichiers <> "" If Not fichiers Like "*.xl*" Then ListBox1.AddItem fichiers End If fichiers = Dir() Wend

---

Il en va bien évidemment différemment si les fichiers à "retenir" sont contenus dans des sous-dossiers de c:\toto

Mais bien sûr ! :roll: Je n'ai pas cherché assez longtemps il faut croire. Pourtant j'essaie au maximum de me débrouiller seul, c'est bénéfique à l'apprentissage. J'utiliserai If Not bien plus souvent à l'avenir ! Merci beaucoup en tout cas ! Problème résolu.

Citation:

---

j'essaie au maximum de me débrouiller seul, c'est bénéfique à l'apprentissage.

---

Et j'applaudis personnellement l'expression de cette vérité.:plusser: