Copie d’Excel vers txt

[Luigi]

Bonjour à tous,
J’ai une macro qui copie des données d’une feuille Excel vers un fichier .txt. Une des cellules de ma feuille Excel contient environ 600 caractères et lors de la copie je n’ai que 240 caractères par lignes sur mon fichier .txt les autres caractères vont à la ligne.
Est-il possible de copier plus de 240 caractères d’une cellule Excel vers un fichier .txt sans aller à la ligne? (Ce fichier .txt sera téléchargé par un logiciel donc les données doivent être sur le même ligne).
D’avance je vous remercie

 

[STephane]

Re : Copie d’Excel vers txt

bonjour,

Comment as-tu procédé ?
L'exemple ci-dessous écrit les textes de la colonne A.

Sub Copie_d_Excel_vers_txt_Fil_XLD_181804_v1()
Dim numfic, Repertoire, nomfichier, letexte, lignelue, adresse
numfic = FreeFile() 'crée le fichier txt
Repertoire = "c:\"
nomfichier = "lefichier.txt"
adresse = Repertoire & nomfichier
Open adresse For Output As #numfic
With ActiveSheet
lignelue = 1
While lignelue <= range("A65536").End(xlUp).Row
letexte = ActiveSheet.Cells(lignelue, 1).Value
If letexte <> "" Then Print #numfic, letexte
lignelue = lignelue + 1
Wend
Application.DisplayAlerts = False
End With
Close #numfic ' Ferme le fichier.
End Sub

 

[Luigi]

Re : Copie d’Excel vers txt

Merci STephane,
j'ai fait une simple copie d'Excel vers le fichier .txt
Avec la macro que tu m'a envoyé ça marche trés bien. mais comment enregistrer le fichier sous un répertoire et un nom différent?

Merci