Bonjour a tous,
Je cherche à balayer des fichiers TXT et ajouter une première ligne " azerty" si celle-ci n'existe pas...
J'ai trouvé un bout de macro qui passe en revue les fichiers mais j'arrive pas à mettre la condition si "azerty" présent passe au fichier suivant else créer ligne "azerty".
Merci de votre aide
C.Auverland
Je cherche à balayer des fichiers TXT et ajouter une première ligne " azerty" si celle-ci n'existe pas...
J'ai trouvé un bout de macro qui passe en revue les fichiers mais j'arrive pas à mettre la condition si "azerty" présent passe au fichier suivant else créer ligne "azerty".
Code:
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
Merci de votre aide
C.Auverland
Pièces jointes
Dernière édition: