XL 2016 Ecriture dans un fichier existant

[David73]

Bonjour,
je souhaite écrire du texte à la fin d'un fichier.
Cela marche mais les lignes du début du fichier sont supprimées.
Si quelqu'un a une idée ??

NomFichier = Chemin_PIL & "FICHIER.TXT"
    Set FSO = New Scripting.FileSystemObject   'Instanciation du FSO'
    Set Txt = FSO.OpenTextFile(NomFichier, ForAppending, True)
    Txt.WriteLine "suite"
    Txt.Close

 

[kiki29]

Salut, entre autres Manipulation des fichiers en VBA

 

[David73]

J'ai l'impression que mon fichier est trop long et donc il ne garde pas les premières lignes....
Mais bon, il ne dépasse pas les 500 lignes ...

 

[mapomme]

Bonsoiur @David73 ,

Un exemple:

Sub AjouterDansFichier()
Dim nfic&

   nfic = FreeFile
   Open ThisWorkbook.Path & "\fichier.txt" For Append As #nfic    'chemin et nom du fichier à adapter
   Print #nfic,    'insère un saut de ligne - facultatif - dépend du fichier texte
   Print #nfic, "La suite n° 1"
   Print #nfic, "La suite n° 2"
   Close #nfic
End Sub

Deux fichiers:

• le .xlsm qui contient le code à exécuter (dans module1)
• le .txt à mettre dans le répertoire du fichier .xlsm

 

[job75]

Bonsoir David73, kiki29; mapomme,

Effectivement avec Append ça ne va pas toujours bien.

Avec ce code pas de problème :

Sub Ajout()
Dim fichier$, texte$, n%, a(), i&
fichier = ThisWorkbook.Path & "\FICHIER.txt" 'à adapter
texte = "Bonsoir"
n = FreeFile
'---lecture---
Open fichier For Input As #n
While Not EOF(n)
    ReDim Preserve a(i)
    Line Input #n, a(i)
    i = i + 1
Wend
Close #n
a(i - 1) = a(i - 1) & vbLf & texte 'modifie la dernière ligne
'---écriture---
Open fichier For Output As #n
For i = 0 To UBound(a)
    Print #n, a(i)
Next
Close #n
MsgBox "Ajout de '" & texte & "' effectué..."
End Sub

Téléchargez les fichiers joints dans le même dossier (le bureau).

Bonne nuit.

 

[David73]

Bonsoiur @David73 ,

Un exemple:

Sub AjouterDansFichier()
Dim nfic&

   nfic = FreeFile
   Open ThisWorkbook.Path & "\fichier.txt" For Append As #nfic    'chemin et nom du fichier à adapter
   Print #nfic,    'insère un saut de ligne - facultatif - dépend du fichier texte
   Print #nfic, "La suite n° 1"
   Print #nfic, "La suite n° 2"
   Close #nfic
End Sub

Deux fichiers:

• le .xlsm qui contient le code à exécuter (dans module1)
• le .txt à mettre dans le répertoire du fichier .xlsm

Merci beaucoup pour ta réponse mais cela ne marche pas ; les 200 premières lignes (environ) ne sont pas ré-écrites...

 

[David73]

Bonsoir David73, kiki29; mapomme,

Effectivement avec Append ça ne va pas toujours bien.

Avec ce code pas de problème :

Sub Ajout()
Dim fichier$, texte$, n%, a(), i&
fichier = ThisWorkbook.Path & "\FICHIER.txt" 'à adapter
texte = "Bonsoir"
n = FreeFile
'---lecture---
Open fichier For Input As #n
While Not EOF(n)
    ReDim Preserve a(i)
    Line Input #n, a(i)
    i = i + 1
Wend
Close #n
a(i - 1) = a(i - 1) & vbLf & texte 'modifie la dernière ligne
'---écriture---
Open fichier For Output As #n
For i = 0 To UBound(a)
    Print #n, a(i)
Next
Close #n
MsgBox "Ajout de '" & texte & "' effectué..."
End Sub

Téléchargez les fichiers joints dans le même dossier (le bureau).

Bonne nuit.

Effectivement cela marche ... même si cela impose de tout ré-écécrire donc légère perte de temps pour des fichiers très longs...