XL 2013 Convertir fichier excel en fichier texte

[Mouelhib]

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.

 

[Oneida]

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

 

[sousou]

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]

bonjour à tous
juste en passant
ADAPTE "fichier"

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]

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

 

[Mouelhib]

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]

bonjour à tous
juste en passant
ADAPTE "fichier"

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]

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

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]

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

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]

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]

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]

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]

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]

 

[Mouelhib]

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.