Effacer 1ère ligne fichier texte

[kwakos]

Bonjour à tous, le forum

Est-il possible par une macro finement élaborée d'effacer la 1ère ligne d'un fichier texte (C:\mon dossier\fichier.txt) ?

J'ai lu sur différents fils la manière d'ouvrir par macro le bloc note, mais pas d'y supprimer des éléments ?


lmerci a tous

 

[tototiti2008]

Re : Effacer 1ère ligne fichier texte

Bonjour kwakos,

notre grand maître à tous, MichelXLD, propose de merveilleuses pages "WIKI" dont je te propose le lien :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

et recherche "Les fichiers textes" dans la page

 

[BOISGONTIER]

Re : Effacer 1ère ligne fichier texte

Bonsoir,

    rep = ThisWorkbook.Path   ' adapter
    Open rep & "\essai.txt" For Input As #1
    Open rep & "\sortie.txt" For Output As #2
    '--1er fichier
    Line Input #1, ligne
    Do While Not EOF(1)
      Line Input #1, ligne
      Print #2, ligne
    Loop
    Close #1, #2

JB
Formation Excel VBA JB

 

[Minick]

Re : Effacer 1ère ligne fichier texte

Salut,

Essai ca:

Sub DelLigne()
    Dim Ligne As String, FichierSource As String, FichierTmp As String
    Dim CptLigne As Long, LigneASupprimer As Long

    FichierSource = "c:\text.txt"
    FichierTmp = "c:\Tmp.Tmp"
    LigneASupprimer = 1
    
    Open FichierSource For Input As #1
        Open FichierTmp For Output As #2
            While Not EOF(1)
                CptLigne = CptLigne + 1
                Input #1, Ligne
                If CptLigne <> LigneASupprimer Then
                    Print #2, Ligne
                End If
            Wend
        Close #2
    Close #1
    Kill FichierSource
    Name FichierTmp As FichierSource
End Sub

++
Minick

EDIT : Salut tout le monde