conversion fichier xls en txt avec colonne formatée

Bonjour,

En supposant 4 colonnes. (tu peux adapter pour plus de colonnes, en
modifiant la déclararion type - end type.

1) Mettre en début du module, en dehors de toute procédure:

Type personne 'personne peut être remplacé par n'importe quoi d'autre
ladate As String * 8
Lenom As String * 20
Leprenom As String * 20
ladresse As String * 40
End Type

2) mettre dans le même module que la déclaration précédente.

Sub entexte()
Dim derniereligne As Long, i As Long
Dim unepersonne As personne
Open "c:copiefichiersortie.txt" For Output As 1
derniereligne = [a65536].End(xlUp).Row
For i = 1 To derniereligne
unepersonne.ladate = Cells(i, 1).Value
unepersonne.Lenom = Cells(i, 2).Value
unepersonne.Leprenom = Cells(i, 3).Value
unepersonne.ladresse = Cells(i, 4).Value
Print #1, unepersonne.ladate; ";"; unepersonne.Lenom; ";";
unepersonne.Leprenom; ";"; unepersonne.ladresse
Next
Close 1
End Sub



"Sky" <schricke.franck@wanadoo.fr> a écrit dans le message de
news:c7tb3o$bu0$1@news-reader1.wanadoo.fr...

Bonjour à tous,

J'aimerais savoir s'il est possible de convertir un fichier excel en
format

TXT en respectant un nombre de caractères par colonnes.

Par exemple :
Colonne 1 (date) 8 caractères
Colonne 2 (nom) 20 caractères
Colonne 3 (Prénom) 20 caractères
etc....


Merci pour votre aide