VB écrire à la suite Résolu/Fermé

Question

Salut,

Voilà j'ai un emaco qui permet de convertir un fichier xls en txt avec séparaeur ";". Le probléme est que se code n'écrit pas à la suite du fichier txt c'est à dire qu'il écrase 

Set Plage = ActiveSheet.UsedRange

Open "tonfichiertexte.txt" For Output As #1

For Each Ligne In Plage.Rows
Temp = ""
For Each Cellule In Ligne.Cells
Temp = Temp & CStr(Cellule.Text) & Separateur
Next
Print #1, Temp
Next
Close

Conniaitriez-vous le moyen pour corriger ce probléme ? Merci

EminoMeneko · Answer

Je ne connais pas trop VB mais en programmation on a souvent droits à plusieurs modes d'écriture.
Un classique qui écrit depuis le début du fichier et un autre mode qu'on nomme append parce qu'il écrit à la suite du fichier. :)
Il faudrait voir la doc. Je ne peux pas t'aider plus.

Polux31 · Answer

Bonjour,

Fait plutôt ça :
Open "tonfichiertexte.txt" For Append As #1

Output écrase le fichier s'il existe ou le créé s'il n'existe pas.

Append ajoute au fichier existant ou le créé s'il n'existe pas.

;o)

lermite222 · Answer

Bonjour,
Ce serait pas plus simple avec... ??
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Chemin\TestKey.txt", FileFormat _
        :=xlText, CreateBackup:=False
A+

jijudu · Answer

OK super cool ca marche avec le "Append" !!

+

VB écrire à la suite

4 réponses

Discussions similaires