XL 2010 Ajout supression ligne dans fichiers TXT

[auverland]

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".

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

 

[auverland]

Super cela fonctionne par contre il faut que la ligne contienne 3 "-" pour être supprimer si elle a plus de caractère elle est pas supprimer
ou comme sur la colonne temps il y a un "s" il faut que dans la macro j'inscive
If T$ = "--s-" Then Tablo(I) = "": Modif = 1 'suppr lig avec tirets sous Date

Il y a pas une solution pour que si il vois une ligne commençant par 2 "-" il la supprime directement ?

 

[Roland_M]

re

EDIT: je viens de charger tout tes fichiers texte et j'ai vu effectivement ce dont tu parles !
je vais regarder à ça !

 

[Roland_M]

re

je viens de faire la modif demandée !
j'ai remplacé le classeur au poste précédent no 15 !
https://www.excel-downloads.com/thr...gne-dans-fichiers-txt.20012915/#post-20097699