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

Oneida · 5 Avril 2023

Bonjour,
Vous auriez pu mettre le fichier avec le code VBA.
Les montants, quelles colonnes?

sousou · 5 Avril 2023

Bonjour,
He oui.... ne connaissant pas les colonnes montant, j'ai un exemple avec la colonne 21 (array à modifier en conséquence
Macro formater,

patricktoulon · 5 Avril 2023

bonjour à tous
juste en passant
ADAPTE "fichier"

VB:

Sub regtext()
    Dim fichier, tbl, i&, c&, x&, T$
    fichier = "C:\Users\patrick1\Desktop\mon fichierentxt.txt"'A ADAPTER
  
    tbl = Range("a1", Cells(1, "a").End(xlDown)).Resize(, 115)
    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

    For i = 1 To UBound(tbl)
        For c = 1 To UBound(tbl, 2)
            T = T & tbl(i, c) & ";"
        Next
        T = T & vbCrLf
    Next
    x = FreeFile: Open fichier For Output As #x: Print #x, T: Close #x
End Sub

résultat

Oneida · 5 Avril 2023

Tout a fait Thiery, colonne 21 ok, mais les autres?

Mouelhib · 6 Avril 2023

Oneida à dit:
Bonjour,
Vous auriez pu mettre le fichier avec le code VBA.
Les montants, quelles colonnes?

Bonjour, les colonnes sont nombreuses, il suffit que je fasse une je peux faire les autres. par exemple colonnes 42, 45, 48, 51, 54, 57, 60 ....

Mouelhib · 6 Avril 2023

patricktoulon à dit:

bonjour à tous
juste en passant
ADAPTE "fichier"

VB:

Sub regtext()
    Dim fichier, tbl, i&, c&, x&, T$
    fichier = "C:\Users\patrick1\Desktop\mon fichierentxt.txt"'A ADAPTER
 
    tbl = Range("a1", Cells(1, "a").End(xlDown)).Resize(, 115)
    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

    For i = 1 To UBound(tbl)
        For c = 1 To UBound(tbl, 2)
            T = T & tbl(i, c) & ";"
        Next
        T = T & vbCrLf
    Next
    x = FreeFile: Open fichier For Output As #x: Print #x, T: Close #x
End Sub

résultat
Regarde la pièce jointe 1167607

Bonjour, merci pour votre aide, je vais essayer votre solution.

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 caractères que tu veux
terminé la chose est simple, le reste ne change pas

Mouelhib · 6 Avril 2023

patricktoulon à dit:
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 caractères que tu veux
terminé la chose est simple, le reste ne change pas

Merci Patrick, c'est ce que j'ai fais et ça marche. j'ai supprimé le séparateur parce que je n'en ai pas besoin.

patricktoulon · 6 Avril 2023

oui j'ai mis un separateur (reflexe csv)
mais bon tu l'aura compris la méthode est assez simple
il te sera facile d'apporter des modifs dans cette boucle
ravi pour toi
a+

Mouelhib · 6 Avril 2023

Encore un truc SVP, comment puis je exporter la date de format jj/mm/aaaa en jjmmaaaa (je doit supprimer / pour avoir une longueur de 8 seulement), pour le moment je suis entrain de la faire manuellement.
Merci

patricktoulon · 6 Avril 2023

re
ben pareil tu ajoute une ligne tu détermine bien la colonne
le x représente ta colonne date
tbl(i, X) = replace(tbl(i, X),"/","")
terminé

Mouelhib · 6 Avril 2023

patricktoulon à dit:
re
ben pareil tu ajoute une ligne tu détermine bien la colonne
le x représente ta colonne date
tbl(i, X) = replace(tbl(i, X),"/","")
terminé

Merci vous me sauvez la vie

patricktoulon · 6 Avril 2023

Mouelhib · 6 Avril 2023

Encore une question toute bête : les zéros s'ajoutent en dernier alors que je veux qu'ils s'ajoutent en avant par exemple si j'ai un montant 124115 je veux qu'il soit 000000124115.

XL 2013 Convertir fichier excel en fichier texte

Mouelhib

XLDnaute Nouveau

Pièces jointes

patricktoulon

Oneida

XLDnaute Impliqué

sousou

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

Mouelhib

XLDnaute Nouveau

Mouelhib

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Mouelhib

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Mouelhib

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Mouelhib

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Mouelhib

XLDnaute Nouveau

Discussions similaires