Besoin d'une solution excel vs Txt

midouexcel Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -  
 maurice -
Bonjour, tout le monde,

Mon problème se résume comme suit:
J'ai un tableau sur excel, contenant une liste de personne et leurs revenus annuel. Pour des besoins de déclarations , je doit integrer ce tableau dans un logiciel de déclaration, ce dernier n'accepte que les fichiers txt.
Lorsque je colle ce tableau dans un fichier txt les valeurs ne s'affichent pas organisés (les milliers sous les milliers, les centaines sous les centaines, les centimes sous les centimes chose exigé par le logiciel de déclaration)

SVP Y-a-t il un moyen pour afficher ces données dans un fichier txt d'une manière organisés (comme ils apparaissent sur sur excel)
Ci-joint le lien des deux fichiers pour avoir une idée.

https://www.cjoint.com/c/EDytKoJenyY


A voir également:

3 réponses

Réponse 1 / 3
mx354 Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   2
 
Sur excel tu sais pas enregistrer ton fichier en TXT ?
0
Réponse 2 / 3
mx354 Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   2
 
Voilà ton fichier tu fais enregistre sous la tu le nomme et en dessous tu selectionne Texte :D
0
midouexcel Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   4
 
j ai essayer ca il s'affichent mal organisé (non pas comme il sont préntés sur excel)
0
midouexcel Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   4
 
Je veux qu'ils s'affichent organisés (les milliers sous les milliers, les centaines sous les centaines, les centimes sous les centimes) comme s'ils sont coller sur word
0
Réponse 3 / 3
maurice
 
Bonjour

Voila une macro Export Txt 
Sub ExportVbtab()
Application.ScreenUpdating = False
'Nom = ActiveSheet.Name
Nom = "Test"
Ext = ".txt"
Fichier = Nom & Ext
Chemin = ActiveWorkbook.Path & Application.PathSeparator
CheminFiche = Chemin & Fichier
'Sep = ";"
Sep = vbTab
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
   Set Plage = Range("A1:E" & Nlig)
      Open CheminFiche For Output As #1
         For Each Lig In Plage.Rows
            Tmp = ""
               For Each Cel In Lig.Cells
                  Tmp = Tmp & CStr(Cel.Text) & Sep
               Next
            Print #1, Tmp
         Next
      Close
   Set Plage = Nothing
Application.ScreenUpdating = True
MsgBox "Terminer"
End Sub

A+
Maurice
0