Exporter en .txt sans séparations

[FrankOVD]

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:

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

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]

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

 

[_Thierry]

Bonjour Sylv900, FrankOVD

Je te conseille ce Fil de discussion où j'ai fait des Démos

=> Lien supprimé

Bon Après Midi
[ol]@+Thierry[/ol]

 

[FrankOVD]

La mise en forme de mes champs est déjà faite et comme je ne suis pas très pro en VBA, j'a'aurais un peu de mal a adapter ce code, pourrais-je vois ce que ça donnerais sans mise en forme descaractères?

 

[FrankOVD]

Le plus proche de ce que je veux présentement est un fichier .csv où il ne me resterait qu'à supprimer les ';' et ajouter des changements de ligne à la main.

 

[chris]

Bonjour
Solution simple :
Exporte au format PRN.
Pour déterminer la largeur des colonnes joue sur les titres : complètes les par des espaces à concurrence de la largeur souhaitée.