Code en VBA

OK super vos exemples et le lien ont rendu la tache facile.

Merci

Oups!
j'avais pas vu le post 4 de lermite222,
Désolé!
A+

Sub LitleDossier()
Dim fs, F, f1, s, sf
Dim Chemin As String

'mettre le nom du chemin
Chemin = "C:\Data"

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(Chemin)
Set sf = F.Files
For Each f1 In sf
If InStr(1, f1, "OK") > 0 Then ' il y a ok dans le nom du fichier
'mettre le reste du code ici

End If

Next

End Sub

Voir les sous fonctions de cette démo
A+

Salut et merci,

Non j'ai réfléchi mais rien tenté ....
Ton code comporte un probléme :

Set fs = CreateObject("Scripting.FileSystemObject")
Set rep = fs.getfolder("C:\Calcul\Mauleon\Brut\Retranscri")
For Each fileitem In rep
MsgBox (fileitem.Name)

Next

car il affiche "propriété ou méthode non gérée par cet objet" à la ligne
For Each fileitem In rep

Merci

Bonjour,
Tu a déja fait un essais de code ?
Si oui, montre ce que tu a déja fait.
A+

tu fais un truc qui ressemble a ca:

Set fs = CreateObject("Scripting.FileSystemObject")
set rep = fs.getfoleder("nom repertoire")
for each fileitem in rep
msgbox(fileitem.Name)

next

pour ce qui est de la recherche du OK dans le nom... c'est un peu plus complique, je ne me souviens plus de la fonction associe!