VBA et génération de fichier Texte

Bonjour à tous,

J'utilise depuis quelques temps, une macro qui me permet de générer des fichiers en .txt au bon format pour intégration dans d'autres outils.

Ci-dessous, le code de la macro que j'utilise :

FICHIER% = FreeFile
Open Chemin & "FICHIER_" & .Range("H17") & ".txt" For Output As #FICHIER
For i1 = 2 To DL_FICHIER
Print #FICHIER, .Cells(i1, 2).Value
Next i1
Close #FICHIER

Ce code fonctionne très bien. Seulement, il me génère systématiquement une ligne vide à la fin du fichier .txt.

Est-ce normal ? J'ai beau parcourir Internet, les codes VBA sur lesquels je tombe sont identiques aux miens.

La variable DL_FICHIER prend bien en compte la dernière ligne pleine de mon Excel. J'avais peur que ce soit ce paramètre qui posait problème, mais non.

En testant "à la main", je me rends compte que le problème est identique : si vous sélectionnez une plage de données en Excel et que vous copiez ceci dans un fichier texte, votre curseur se place automatiquement sur une ligne nouvelle.

Avez vous une solution de contournement ?

En vous remerciant..

Bonne soirée !

bonjour,

essaie ceci (non testé)

    FICHIER% = FreeFile
    Open Chemin & "FICHIER_" & .Range("H17") & ".txt" For Output As #FICHIER
    For i1 = 2 To DL_FICHIER
        If i1 < dl Then
            Print #FICHIER, .Cells(i1, 2).Value
        Else
            Print #FICHIER, .Cells(i1, 2).Value;
        End If
    Next i1
    Close #FICHIER

Bonjour,

Merci de ton retour rapide. je viens de tester : c'est concluant !