XL 2013 Convertir fichier excel en fichier texte

Oneida à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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é 😉

Cliquez pour agrandir...