VB écrire à la suite
Résolu
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
Conniaitriez-vous le moyen pour corriger ce probléme ? Merci
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
Configuration: Windows XP Internet Explorer 7.0
4 réponses
-
OK super cool ca marche avec le "Append" !!
+ -
ContributeurBonjour,
Ce serait pas plus simple avec... ??ActiveWorkbook.SaveAs Filename:= _ "C:\Chemin\TestKey.txt", FileFormat _ :=xlText, CreateBackup:=False
A+
-
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)
-
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.
