Re : Par Macro, manipuler un Fichier texte(txt) et enregistrer les changements
bonjour sauvagon et bienvenue sur le forum,
voici une solution en macro, il ne te reste plus qu'à adapter le path du dossier et le nom du fichier (en gras) :
Code:
Sub test()
Dim myFso As FileSystemObject, txtRead As TextStream, txtWrite As TextStream
Dim dossier As String, fichierSource As String, fichierDestination As String
Dim i As Long
dossier = "[B]E:\XLS\test[/B]"
fichierSource = dossier & "\" & "[B]test.txt[/B]"
Do
i = i + 1
fichierDestination = dossier & "\" & i & ".txt"
Loop Until Dir(fichierDestination) = vbNullString
Set myFso = CreateObject("Scripting.FileSystemObject")
Set txtRead = myFso.OpenTextFile(fichierSource, 1)
Set txtWrite = myFso.CreateTextFile(fichierDestination)
txtWrite.Write (txtRead.ReadAll)
txtWrite.Close
txtRead.Close
Set txtRead = myFso.OpenTextFile(fichierDestination, 1)
Set txtWrite = myFso.CreateTextFile(fichierSource)
While Not txtRead.AtEndOfStream
txtWrite.Write (Replace(txtRead.ReadLine, "maman", "maman & papa" & vbNewLine) & vbNewLine)
Wend
txtWrite.Close
txtRead.Close
myFso.DeleteFile (fichierDestination)
End Sub
je t'avoue, là j'ai du mal à comprendre...
ils font mal à la tête tes fichiers
peux-tu faire un exemple plus simple, de quelques ligne, qui montre le problème :
> quelques lignes "sources"
> ces mêmes lignes "traitées par la macro"
> surtout, le résultat souhaité.