Ecrire dans ficher TXT

[fifi]

Bonsoir le forum,
je me casse un peu la tête pour savoir comment écrire dans un fichier texte depuis excel.

j'ai des ligne de ce type dans la première colonne d'une feuille excel :

"Aspirate(2,"">> WFWaterLysisA << 514"",0,""_dil*/2"",0,0,0,0,0,0,0,0,0,0,2,0,1,""010810"",0); "
"Dispense(2,"">> WaterFast << 524"",0,""_dil*/2"",0,0,0,0,0,0,0,0,0,0,4,0,1,""0110002"",0); "

J'ai bien essayé d'enregistrer la feuille en format txt mais cette opération me rajoute des " au début et à la fin des lignes :s.

donc je pense que je pourrai enregistrer ces lignes sans aucune modification de syntaxe en écrivant directement dans le fichier.

qui peu m'aider?

merci

 

[Staple1600]

Re : Ecrire dans ficher TXT

Bonsoir


Regarde dans la FAQ du forum

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

Vers le bas de la page

Dans la rubrique: les fichiers texte

Tu peux aussi regarder dans l'aide VBA d'Excel
(ALT+F11 puis F1)

 

[fifi]

Re : Ecrire dans ficher TXT

arf ..merci
Staple1600


plus que 40pages à lire pour essayer de trouver une solution

 

[Staple1600]

Re : Ecrire dans ficher TXT

Re




Non pas 40, juste lire la page 3 du Wiki de MichielXld , qui comme son sommaire l'indique parle des fichiers texte

Pour preuve:

Les fichiers textes

• Ecrire la valeur de la cellule A1 dans une fichier texte , par l'instruction Append
  Remarques : Les données viennent s'inscrire à la suite des lignes existantes .Si le fichier .Txt n'existe pas , il sera créé automatiquement .​
  Sub excelVersFichierTexte()​
  Dim Cible As Integer​
  Cible = freeFile​
  Open "C:\Mes documents\michel excel\essai.txt" For Append As #Cible​
  Print #Cible, Range("A1") 'renvoie valeur cellule A1 dans fichier txt​
  Close #Cible​
  End Sub​

 

[fifi]

Re : Ecrire dans ficher TXT

oui j'ai trouvé aussi mais le pb c'est que tout est tellement interéssant que je vas tout de meme avoir 40pages à lire.