Depuis excel vers txt

saberaja Messages postés 35 Statut Membre -  
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai un fichier excel avec un milliers de ligne, j'aimerais conçevoir un fichier txt pour insérer les données de ces lignes excel dans le fichier txt pour l'importer dans une application.

le contenu du fichier txt doit respecter un format bien déterminé.

Merci

A voir également:

5 réponses

f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

le contenu du fichier txt doit respecter un format bien déterminé. Oui, mais encore.......!!!!
0
saberaja Messages postés 35 Statut Membre 9
 
numéro de ligne = 5 (00001,00002,00002.....)
code intermédiaire en bourse = 3 (001,002,003,018....)
nature de l'actionnaire = 02 personne physique, 03 personne morale
nom et prénom = longueur 100
....
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Re,

Vous pourriez faire un model excel pour que nous puissions le passer en ficher TXT au format que vous avez defini??

click sur le lien https://www.cjoint.com/ ne pas oublier de copier/coller le lien cree dans votre prochain message.
0
saberaja Messages postés 35 Statut Membre 9
 
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

pour le fichier Txt ok, mais comment sont les infos dans le fichier excel ????
0
Maurice
 
Bonjour
routine pour faire du Txt ou Csv

Sub Export()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
Non = Replace(ActiveSheet.Name, " ", "-")
'Fichier = Non & ".csv"
Fichier = Non & ".txt"
Chemin = ActiveWorkbook.Path & Application.PathSeparator
CheminFiche = Chemin & Fichier
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
Sep = ";"
Set Plage = Range("A1:N" & Nlig)
Open CheminFiche For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
Set Plage = Nothing
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
foo
 
Bonjour Maurice

J'aimerais la meme en import
merci
A+
Maurice
0