Sub Traitement()
Dim Fichier As Object
Dim Chemin As String, T As String
Dim TSource As String, TCible As String
Dim Compteur As Long
'A adapter...
Chemin = "D:\Public\Documents\test txt\"
'Traitement
With CreateObject("Scripting.FileSystemObject")
For Each Fichier In .GetFolder(Chemin).Files
If Fichier.Name Like "*.txt" Then
Compteur = Compteur + 1
'Ouvre le fichier texte et mémorise le contenu
With .OpenTextFile(Chemin & Fichier.Name, 1)
T = .readall
.Close
End With
'Traite le contenu
'If....
'Crée le fichier texte modifié
With .CreateTextFile(Chemin & "OK " & Fichier.Name, True)
.WriteLine T
.Close
End With
End If
Next Fichier
End With
MsgBox Compteur & " fichiers traités."
End Sub