Depuis excel vers txt
saberaja
Messages postés
35
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 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
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
5 réponses
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
