Code en VBA

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!

Bonjour,
Tu a déja fait un essais de code ?
Si oui, montre ce que tu a déja fait.
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

Voir les sous fonctions de cette démo
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

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

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

Merci