XLS en TXT sans séparateur

[julio44]

Bonjour,

Je cherche à convertir un fichier XLS en TXT SANS séparateur ...

Auriez-vous des idées svp ? merci d'avance et bonne journée

[jfontaine]

Bonjour,

Quand tu dis sans séparateurs, tu souhaites que

Colonne A Colonne B
Nom Prenom

Devienne

NomPrenom

Est ce cela

[Runsh63]

Bonjour julio44,

En concaténant tes colonnes en une seul sur un nouvel onglet et en sauvegardant ce dernier en .txt tu devrais obtenir ce que tu veux. Du moins si j'ai bien compris la problématique.

[julio44]

Bonjour et merci de vos réponses.

Voici le problème plus précisément :

Nous devons créer un fichier TXT sans séparateur, avec un nombre de caractères spécifié par colonne.

Exemple:

colonne A prendre seulement 8 caractères
colonne B prendre seulement 12 caractères
etc...

suis-je obligé de faire une "règle" par colonne ? et si oui comment ?

Merci d'avance.

Julien

[jfontaine]

Ci dessous un bout de code qui te mettra sur la voix, mais il va falloir passer par VBA

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Long
 
Open "c:\extract.txt" For Output As #1
 
For i = 2 To Range("A:A").End(xlDown).Row
 
    Print #1, Left(Range("A" & i).Value, 8) & _
                Left(Range("B" & i).Value, 12)
 
Next i
 
Close #1

[julio44]

Envoyé par jfontaine

Ci dessous un bout de code qui te mettra sur la voix, mais il va falloir passer par VBA

Code :

Bonjour, je vais tester en partant de cette base, merci à vous.

[julio44]

Après avoir testé, ce n'est pas encore exactement ça:

En effet, pour la colonne A par exemple, si le contenu est inférieur à 8 caractères (3 par exemple) et bien la copie dans le .TXT sera de 3 caractères.

Je souhaite que ce soit 8 et exactement 8 =)

Merci encore !

[jfontaine]

Voila

Code :

1
2
    Print #1, Left(Range("A" & i).Value, 8) & Space(8-len(Left(Range("A" & i).Value, 8)) & _
                Left(Range("B" & i).Value, 12) & space(12-len(Left(Range("B" & i).Value, 12))

[julio44]

Envoyé par jfontaine

Voila

Code :

Il manquait 2 parenthèses fermées, je teste et je fais un retour. merci encore.

[julio44]

ca marche !

Merci mille fois !

[julio44]

J'aurai également une autre question svp :

Comment-puis je aligner à droite dans le fichier txt ?

En effet j'ai :

0,00
0,00
363,23

et je voudrais :

...0,00
...0,00
363,23

[jfontaine]

Tu fais comme les nom et prenom, mais tu mets space() devant la valeur de la cellule

[julio44]

Envoyé par jfontaine

Tu fais comme les nom et prenom, mais tu mets space() devant la valeur de la cellule

Bonjour et merci de ta réponse.

Après de multiples tests, je n'arrive pas à mettre en place ton indication.

Pourrais-tu m'éclairer sur la structure stp ?

Merci,

Julien

J'ai reposté dans la partie Macro/VBA pour mon problème.

JE ferme donc le sujet ici, merci de me répondre sur le sujet :

http://www.developpez.net/forums/d11...s/#post6111220