Depuis excel vers txt

Bonjour,

le contenu du fichier txt doit respecter un format bien déterminé. Oui, mais encore.......!!!!

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
....

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.

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

Bonjour Maurice

J'aimerais la meme en import
merci
A+
Maurice