Depuis excel vers txt

Bonjour Maurice

J'aimerais la meme en import
merci
A+
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

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.

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

Bonjour,

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