Exporter en .txt sans séparations

FrankOVD

XLDnaute Nouveau
Bonjour

J'ai un fichier où toutes les colonnes doivent avoir une largeur fixe. Par exemple, le chiffre 15 doit s'afficher 00000000015,000 et le nom 'JOHN Smith' contient des espaces à la fin pour faire 40 caractères.

Ce que j'ai besoin de faire maintenant, c'est d'avoir toutes ces informations dans un fichier ASCII sans que les données de mes colonnes ne soient séparées par des tabulations et sans que ceux-ci ne perdent leur mise en forme.

Aussi, j'aimerais pouvoir afficher chaque enregistrement sur deux lignes pour en faciliter la lecture:

Ex:
Code:
EU|0000|00|7465|483|00|JOHN SMITH     |France    |CA|102-34P|
 EU|0001|00|7465|484|00|HENRI LAVOIE   |Belgique  |CA|104-23R|
 EU|0001|00|7468|490|01|JULIE ROY      |Irlande   |CA|100-11M|
Deviendrais
Code:
EU000000746548300JOHN SMITH     France      
 CA102-34P
 EU000100746548400HENRI LAVOIE   Belgique   
 CA104-23R
 EU000100746849001JULIE ROY      Irlande     
 CA100-11M

Message édité par: FrankOVD, à: 28/07/2005 15:38

Message édité par: FrankOVD, à: 28/07/2005 15:40
 

sylv900

XLDnaute Occasionnel
salut
j'utilisait ce code :
nbligne = ActiveSheet.UsedRange.Rows.Count
For i = 1 To nbligne
ligne = Range('A' & i) & Space(15 - Len(Range('A' & i))) & Range('B' & i) & Space(15 - Len(Range('B' & i))) & Range('C' & i) & Space(15 - Len(Range('C' & i))) & Range('D' & i) & Space(15 - Len(Range('D' & i))) & Range('E' & i) & Space(15 - Len(Range('E' & i))) & Range('F' & i) & Space(15 - Len(Range('F' & i))) & Range('G' & i) & Space(15 - Len(Range('G' & i))) & Range('H' & i)
Print #1, ligne
Next

afin d'obtenir un fichier txt avec les valeurs alignée d'une ligne sur l'autre, si ça peut t'aider...
 

Statistiques des forums

Discussions
312 875
Messages
2 093 148
Membres
105 641
dernier inscrit
Naoel