insertion de resultat execl dans fichier txt

[smartbis]

Bonjour

est il possible d'inserer dans un fichier txt les données d'une colonne d'une feuille excel.

je m'explique

mon fichier toto.txt est le suivant

ligne 1: mon nom
ligne2 : mon prénom


je souhaite integrer toute ma colonne A d'une feuille excel a la suite ( cad ligne 3) de mon fichier toto.txt et l'enregistrer directement sous le nom toto1.txt

j'espere etre assez claire

Merci pour vos lumieres

 

[wilfried_42]

Re : insertion de resultat execl dans fichier txt

bnjour smartbis

attention, ton fichier de depart ne doit contenir que ces deux lignes, l'ouverture du fichier I/O (text) se fait soit par ecrasement soit par ajout

Open ThisWorkbook.Path & "\TOTO.TXT" For Output As #1 'Crée un fichier par ecrasement

Open ThisWorkbook.Path & "\TOTO.TXT" For Append As #1 'Crée un fichier par ajout

ensuite

for i = 1 to range("A65000").end(xlup).row
write #1, range("A" & cstr(i)).value
next i

et enfin fermeture du fichier

Close #1

 

[smartbis]

Re : insertion de resultat execl dans fichier txt

merci pour la reponse mais pour moi cela ne va pas tres bien, je m'explique

voici une des lignes que je veux ecrire sous le debut de mon fichier txt

cellulle a1:<Placemark><styleUrl>#4</styleUrl><Point><coordinates>-0.51096,41.878583</coordinates></Point></Placemark>

cela fonctionne sauf que dans mon fichier txt un guillemet se place devant tout ce texte . Et je ne veux pas de ces guillemets

Merci de votre aide

je precise que lorsque je fais enregister sous au format txt unicode l'enregistrement se fait correctement sans les guillmets

 

[wilfried_42]

Re : insertion de resultat execl dans fichier txt

re:

au lieu de write #1, utilise print #1 et ca devrait le faire

bon dimanche

 

[smartbis]

Re : insertion de resultat execl dans fichier txt

ok cela fonctionne je n'ai plus de guillemet

mais cela ecrase mes premieres lignes presentes dans mon fichier txt

et je souhaiterais que le fichier source soit bien loloessai.txt mais qu'il s'enregistre sous le nom loloessai(+date).txt

Merci

 

[wilfried_42]

Re : insertion de resultat execl dans fichier txt

re:

la gestion des fichiers txt sont plus complexes que l'on crois. leur mode de fonctionnement Input / output les rend plus delicats à gérer.

Ils ne sont pas chargés en memoire, donc ne peuvents faire l'objet de SaveAs
l'ouverture en output ecrase l'ancien fichier, l'ouverture en append ajoute à la fin du fichier, pas au debut

la manipulation de ces fichiers poutant basics, est complexe. Les commandes DOS sont appropiées pour faire tout ce que l'on a besoin.

dans ton cas disons donc que l'on part d'un fichier vide qui se nomme loloessai-date.txt
on y met loloessai.txt et ensuite on ajoute les reste des renseignements

ca va donner cela : pour ecopier un fichier I/O dans un autre

open "loloessai-"& format( mydate, "yyyy/mm/dd") & ".txt" for output as #1 ' creation d'un fichier
open "loloessai.txt" for input as #2 ' ouverture en lecture du fichier
Do While Not EOF(2) ' Faire jusqu'à trouve la fin de fichier
Line Input #2, zz$ ' lire la ligne complete
Print #1, zz$ ' ecrire dans le nouveau fichier
Loop ' suite de la boucle
Close #2 ' fermeture du fichier loloessai.txt

tu peux ensuite faire ton code pour ecrire les donnees