Discussion :

[SeyTo]

Bonjour, bonsoir à toutes et à tous !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SeyTo]

Mais bien sûr ! 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.

[unparia]

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é.