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 ?
Merci, bonsoir.
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
Partager