[VBA-E] Export de Excel vers fichier texte
Bonjour, je souhaite exporter des données de excel vers un fichier texte.
J'aimerais pouvoir ajouter des retour chariot entre certaines lignes, mais ce caractère ne semble pas être reconnu ...
la variable texte est telle que :
texte= chaine1 & Chr(13) & chaine2 & Chr(10)
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub exporte_vers_TXT(texte As String)
'Declaration variables
Dim FileName, t As String
' Demande fichier de sauvegarde
FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
' Ouverture fichier
Open FileName For Output As #1
Print #1, texte
' Fermeture fichier
Close #1
End Sub |
Y a til une atuce??
Si je dois m'en tenir à utilier WORD comme destination, pourriez vous me proposer un code similaire.
Merci