Bonjour à tous,
J'utilise le code ci-dessous (fournit par JB) pour transformer mes listes excel en fichiers séquentiels.
Comment supprimer le dernier ''Next lig'' qui ajoute systématiquement une ligne vide en fin de fichier.
Merci d'avance pour votre aide et bonne fin de journée
J'utilise le code ci-dessous (fournit par JB) pour transformer mes listes excel en fichiers séquentiels.
Comment supprimer le dernier ''Next lig'' qui ajoute systématiquement une ligne vide en fin de fichier.
Code:
Sub ExportTxtChamp()
repertoire = ThisWorkbook.Path
Open repertoire & "\x.txt" For Output As #1
Set champ = [C1].CurrentRegion
For lig = 1 To champ.Rows.Count
ligne = ""
For col = 1 To champ.Columns.Count
ligne = ligne & champ.Cells(lig, col) & ";"
Next col
Print #1, Left(ligne, Len(ligne) - 1)
Next lig
Close #1
End Sub
Merci d'avance pour votre aide et bonne fin de journée