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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.