XL 2010 Feuille excel vers Fichier TXT

[zozo]

Bonjour à tout le forum,
j'ai une macro qui crée un fichier txt à partir d'une feuille excel qui contient plus de 600 lignes.
On ouvrant le fichier txt, je ne trouve que 500 lignes.
Faut-il déclarer la taille du fichier txt ? Si oui, Comment ?

Merci pour toute réponse.

 

[Staple1600]

Re

Et quel est le résultat du test de la macro Sub Excel_Vers_Text?
Car il me semblait avoir lu... 😉

Merci d'avoir répondu, je suis un peu loin, dès que je rentre je vais essayer toutes les solutions du forum.

 

[zozo]

Re

Et quel est le résultat du test de la macro Sub Excel_Vers_Text?
Car il me semblait avoir lu... 😉

Finalement, j'ai essayé les solutions proposés par les membre que je remercie infiniment, et la plus proche et celle de soussou.
Merci encore une fois pour toutes les solutions proposées.

 

[zozo]

Merci Patrick, je te tiendrai au courant du résultat.
Pour info, sur la feuille excel j'obtiens les 632 agents avec le montant du mandatement, le problème se pose uniquement sur le fichier txt.
Merci encore.

Merci Patrick pour ton aide, j'ai finalement trouve la solution proposée par soussou.
Merci encore.

 

[zozo]

Re

Merci bien 😉
Mais la question était : quel est le résultat?
Tu as bien obtenu un fichier Texte ou pas?

PS: Ma macro ne répond qu'à ce qu'indique ton titre: Feuille excel vers Fichier TXT

Avec la solution de soussou, j'ai obtenu un fichier texte selon les conditions voulu, même en augmentant le nombre d'agents à 1000.
Merci pour la prise en considération de mon problème.

 

[zozo]

Ici une version avec filesystemobject
attention j'ai changer le chemin, sur une partie du code, et j'ai supprimer la remise à zéro pour pas avoir à recoller à chaque test.
Enfin, il y a du ménage à faire, tu dois pouvoir simplifier,mais ca t'explique le filesystem

Bonsoir,
Après utilisation, le système détecte que le fichier texte contient des lignes vides, normalement la dernière ligne c'est celle qui comporte le mot : FVIR.
Ma question est comment supprimer ces lignes vides ?

 

[Staple1600]

Bonsoir le fil

zozo
Normalement pas de ligne vide avec la syntaxe que tu cites dans le message#11?
Je la remets ici pour une meilleur fluidité de lecture

Sub Excel_Vers_Text()
strPath=ThisWorkBook.Path & "\"
ActiveWorkbook.SaveAs Filename:=strPath & "Classeur1.txt" , FileFormat:=xlText
End Sub