XL 2010 Feuille excel vers Fichier TXT

sousou à dit:

bonjour
Il faudrait voir comment tu procèdes, mais avec filesystemobject pas besoin

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil

Pourquoi pas tout simplement?

VB:

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

1) Je suis dans le classeur devant être exporté en Text
2) je lance la macro
3) Je réponds au différents messages affichés par Excel
4) je ferme le fichier txt obtenu sans enregistrer les modifs

NB: Le point 4 risque de poser un petit problème (mais on verra cela plus tard 😉)

Cliquez pour agrandir...

patricktoulon à dit:

perso j'ai des doute avec tes index de fichier
c'est jamais bons les indexs en dur 1,2,3
laisse vba trouver ses index
dim x1&,x2&,x3
x1=freefile
open for...
x2=freefile
open for....
x3=freefile
open for ......

Cliquez pour agrandir...

sousou à dit:

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

Cliquez pour agrandir...

sousou à dit:

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

Cliquez pour agrandir...

zozo à dit:

Je viens juste de l'essayer, impeccable, j'ai même augmenter le nombre d'agents à 792, et j'ai un excellent résultat.
Pour le dossier de destination, à quel niveau mettre le chemin et le dossier que souhaite ?
Merci pour tous les efforts et l’intérêt.

Cliquez pour agrandir...