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 : Sélectionner tout - Visualiser dans une fenêtre à part
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