Exporter contenu cellules Excel à la suite dans un fichier TXT

Bonjour à tous,

Mon premier sujet aprés plusieurs heures à faire chauffer les neurones lol.

J'ai un Fichier excel qui est chargé de composer les lignes de code pour le mandatement des opérations dans un logiciel de finance. (dans ce fichier seule la colonne A est donc utilisée )

Une ligne de code = 1100 caractères ( espaces inclus) donc une cellule de la colonne A = 1100 caractère.

Je cherche le moyen de finaliser le travail en copiant le contenu de toutes ces cellules à la suite dans un fichier "txt"

( sans retour de ligne le caractère 1101 étant le caractère 1 de la cellule A2)

J'ai essayé les différentes options d'exportation : soit certains caractères ne correspondent plus ; soit des sauts de ligne sont inclus automatiquement.

Ci-joint quelques lignes de code pour test.

Merci si quelqu'un a une idée ?

bonjour,

regarde si ceci convient

Sub aargh()
    With Sheets("feuil1")    '<- à adapter
        nf = "d:\downloads\testcode.txt"    '<- à adapter
        r = ""
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            r = r & .Cells(i, 1)
        Next
        Open nf For Output As 1
        Print #1, r
        Close
    End With
End Sub

C'est exactement çà Merci je n'aurai jamais touvé là