VBA FSO Comment utiliser l'astérisque avec NAME de File

Bonjour,

Mon sub fonctionne bien, il me restitue tous les fichiers du répertoire.

Mais je souhaite n'avoir que ceux contenant "journalier". J'utilise donc l'astérisque "*", mais là il ne me restitue plus rien.
A moins que ce ne soit mon
If ....Then
End if
qui ne va pas.

Est ce que qqu'un à une piste ?

Code:

---

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

Sub AfficherListeDossiers() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("K:\Mondossier") Set fc = f.Files   For Each f1 In fc If f1.Name = ("journalier*.txt") Then s = s & f1.Name s = s & vbCrLf End If Next   MsgBox s   End Sub

---

Merci, bonsoir.

Bonsoir,

encore ce lourdaud de FSO pour ce que VB fait parfaitement !!!

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() filtre = "journalier*.txt" fichiers = Dir("K:\Mondossier\" & filtre) Do While fichiers <> "" MsgBox fichiers fichiers = Dir Loop End Sub

---

Enfin.... fais comme tu veux ...

Bonsoir,
En fait les fichiers sont générer depuis une autre application.
Une solution simple serait de créer un répertoire dédié ne contenant que les fichiers que je souhaite traiter.

Mais je préfère chercher à utiliser l'astérisque:lol:

Merci

Mais je l'utilise, cet * !!! (dans filtre) ...;)

Bonsoir ucfoutu,
Merci de ta réponse, c'est vrai que ça à l'air simple,
je vais essayer.

Mais dans ce cas pourquoi ton astérisque fonctionne et pas le mien ?:(

A+
BN

Je n'en sais rigoureusement rien pour une raison simple : on me pendra le jour où je me prostituerai avec cet FSO qui alourdit tout et rend les applications inutilement dépendantes !!! :lol:

Peut-être qqch comme

Code:

---

If f1.Name Like "journalier*.txt" Then

---

VBA FSO utilisation de l'asterisque avec LIKE
Bonjour,
Merci KIKI29, c'est bien ce qui me fallait.

Ma fonction affiche maintenant tous les fichiers *export_ind_journalier* d'un répertoire donné.
Puis les importe dans des feuilles ( 1 par fichier )
Le délimiteur utilisé est le TAB


Merci encore à tous ceux qui participent.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub AfficherListeDossiers() Dim fs, f, f1, fc, s Dim strCheminRep As String, strCheminFich As String strCheminRep = "nom dossier" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(strCheminRep) Set fc = f.Files 'Pour ImportFichierTxt Dim wbk As Workbook   Set wbk = ActiveWorkbook   For Each f1 In fc If f1.Name Like "*export_ind_journalier*.txt" Then 'ImportFichierTxt strCheminFich = f1 'Parceque au début je pensait recréer le strCheminFich 'MsgBox f1 Workbooks.OpenText Filename:=strCheminFich,[/INDENT]Origin:=xlWindows, StartRow:=1, _ DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,[/INDENT]Semicolon:=True, _ Comma:=False, Space:=False, Other:=False,[/INDENT]FieldInfo:=Array(Array(1, 1), _ Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),[/INDENT]Array(7, 1), _ Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)) ActiveSheet.Select ActiveSheet.Move Before:=wbk.Sheets(1) s = s & f1.Name s = s & vbCrLf End If 'MsgBox f1 Next   MsgBox s   End Sub

---

:lahola: