XL 2013 Aide sur sauvegarde en TXT par VBA

[Fave]

Bonjour à toutes et tous,

J'ai un souci avec un code VBA.

Je veux sauvegarder tout le contenu d'une feuille dans un fichier txt, jusqu'à la dernière ligne contenant des valeurs. Le souci c'est que cela me créer des espaces après la dernière valeur alors que je souhaite que mon curseur n'aille pas plus loin de la dernière valeur trouvée.
J'espère me faire bien comprendre... lol

Voici le code qui, j'en suis sur, peut être amélioré !!! 😀

Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
With Sheets("Feuil1")
    DerniereLigne = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerniereColonne = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
    End With
    chemin = "G:\xxxxxx\xxxxxx\"
    Open chemin & "Report.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula;
        Next j
        Print #1, f.Cells(i, j + 1).Value
    Next i
    Close #1
    'commande ouverture notepad
    Shell "C:\Windows\System32\notepad.exe " & chemin & "Report.txt"
End Sub

En pj, 2 fichiers :
report.txt = celui généré par la macro
final = résultat souhaité (avec le curseur après la dernière valeur et sans espace vers le bas)...

 

[youky(BJ)]

Re : Aide sur sauvegarde en TXT par VBA

Hihi ! tu l'avais vu ma boulette
Voila je l'envoie le . . . . v
@+