Discussion :

[lipaika]

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

[SfJ5Rpw8]

pas vraiment clair comme problème...! normalement quand tu ecrit ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Print #1, texte

le contenu de la variable texte est écrit dans le fichier suivi d'un retour chariot..

que veu tu faire en écrivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
texte= chaine1 & Chr(13) & chaine2 & Chr(10)

si c'est pour avoir un retour chariot entre les 2 chaines écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

texte= chaine1 & vbCrlf & chaine2

[ouskel'n'or]

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
print #1 chaine1 
Print #1 chaine2