XL 2013 Convertir fichier excel en fichier texte

Mouelhib · 5 Avril 2023

Bonjour, je poste de nouveau ma demande d'aide, voila en parcourant le forum j'ai trouvé des solutions à plusieurs de mes problèmes grâce à vos réponses. donc j'ai pu exporter mes données en format txt seuelemnt je veux garder la longueur des deux champs Nom et prénom (40c chacun) sachant que parfois le prénom ou le nom soit composé et bien entendu je dois insérer des espaces pour atteindre (40c) de même pour les montants qui doivent rester sur 12c donc je dois ajouter des 0.
Juste une petite macro qui reussi à me faire cela et merci pour vos aide.

patricktoulon · 6 Avril 2023

re
Bonjour
dans mon code en post 4 la chose est très simple
si j'ai bien compris ton intention (bien sur )

VB:

For i = 1 To UBound(tbl)
        tbl(i, 9) = tbl(i, 9) & Application.Rept(" ", 40 - Len(tbl(i, 9)))'nom
        tbl(i, 10) = tbl(i, 10) & Application.Rept(" ", 40 - Len(tbl(i, 10)))'prenom

        'formate les colonnes que tu veux ici
        'la colonne "montant je ne sais pas la quelle c'est

    Next

dans cette boucle ici je fait le nom et prenom (respectivement les colonnes 9 et 10)
il ne tiens qu'a toi d'en ajouter
il te suffit de copier la ligne du prenom(la 10) par exemple
de la coller la ligne en dessous
et dans cette nouvelle ligne ,de changer le 10 pour la colonne que tu veux et le 40 pour le nombre de...

Mouelhib · 6 Avril 2023

Merci j'ai trouvé, comme je viens de le constater c'est tout bête de ma part, il fallait juste inverser la concaténation

patricktoulon · 6 Avril 2023

re
ben c'est pareil sauf que tu inverse le concat
tbl(i, X) = cstr(right("000000000000" & tbl(i, X)),12)

XL 2013 Convertir fichier excel en fichier texte

Mouelhib

XLDnaute Nouveau

Pièces jointes

patricktoulon

Mouelhib

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Discussions similaires