Données feuilles dans fichier txt et alignement

Bonsoir,

J'ai une feuille excel avec des données, comme le montre la figure juste dessous.

J'ai fait une macro pour copier son contenu dans un fichier texte.

Le code pour la lecture des données et la copie est le suivant:

        For k = 2 To NbLignesDetails + 1
        For j = 1 To 5
        Print #1, Sheets.Item(2).Cells(k, j).Value
        Next j
        Print #1, LigneSeparation
        Next k

Le problème c'est que mon fichier texte est écrit mais mal formaté!

J'aimerai que 59000 et 33000 soient alignés à gauche comme tout le reste, mais aussi qu'il n'y ai pas de ligne à blanc après ma ligne de séparation #########

Au niveau de 59000 et de 33000 le format de cellule est Standard.

Merci d'avance pour votre aide!

Vincent

Bonjour,

Essais avec Trim() :

Sub Test()

    Dim K As Integer
    Dim J As Integer
    Const LigneSeparation As String = "################"

    Open "C:\Texte.txt" For Output As #1

    For K = 2 To 5

        For J = 1 To 5
            Print #1, Trim(Sheets.Item(2).Cells(K, J).Value)
        Next J

        Print #1, LigneSeparation

    Next K

    Close #1

End Sub

Hello!

Merci pour ton aide!

J'ai bien mis Trim et je n'ai plus le problème de décalage vers la droite!

Par contre j'ai toujours la ligne à vide!

J'ai essayé de mettre

Const LigneSeparation As String = "################"

à la place de

LigneSeparation = "############"

mais j'ai une erreur qui me dit "Déclaration existante dans la portée en cours"

Tu vois ce que ça peut être?

En fait c'est bon, la variable était déclarée deux fois...

Merci infiniment!