Discussion :

[RegiO]

Bonjour à tous,

Je suis en train de developper un petit formulaire en HTML et un petit bout de VBScript qui me permet d'envoyer les données du formulaire sous Excel.

Je suis confronté à un petit problème lié aux retour chariot dans un textarea.
J'ai un textarea qui me permet de recueillir un texte d'introduction.

Mon problème vient lorsque je met la valeur du textarea dans une cellule excel, le retour chariot devient un carré sous excel :



Mon code VBScript :

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
16
17
 Public Sub excelENTETE()
	' OBJECT APPLICATION : INSTANCE DE EXCEL
	set objexcel = createobject("excel.application")
 
	' OBJECT WOEKBOOK : CLASSEUR EXCEL
	objexcel.workbooks.add
 
 
	objexcel.Range("B14:J20").MergeCells = True
	objexcel.Range("B14").HorizontalAlignment = -4130
	objexcel.Range("B14").VerticalAlignment = -4160
 
	objexcel.Cells(14,2).value = document.getElementById("xlEValeur15").value
 
	' EXCEL : AFFICHE L'APPLICATION EXCEL
	objexcel.visible = true	
End Sub

Comment faire pour que sous excel cela n'apparaisse pas ?

Merci d'avance, je continue à chercher une solution à mon souci en attendant.

[AlainTech]

Vérifier quel(s) caractère(s) ser(ven)t au retour chariot et le(s) remplacer par un vbLf (Chr(10)).

[RegiO]

Arf ! j'arrive pas à déterminer le caractère du retour chariot...

...la seule chose que j'ai trouvé c'est en mettant un evénement à la saisie d'un caractére sur mon textarea, le caractére retour à la ligne correspond au keyCode 13.

J'ai cherché un peu du coup le retour chariot correspond à &#13 ; j'ai donc mis dans mon textarea ceci :

Cher Mr Xxxxx,&#13 ;Je vous informe&#13 ;...&#13 ;Cordialment

Sous IE, l'affichage se fait correctement j'ai bien mes passage à la ligne, mais lorsque en VBScript je recherche &#13 ; dans la valeur que je recupére je n'ai rien.

[SfJ5Rpw8]

comment fait tu la recherche...? il faut remplacer le caractére 13.. essai :

Code :

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

objexcel.Cells(14,2).value = replace(document.getElementById("xlEValeur15").value,chr(13),chr(13) & Chr(10) )

[RegiO]

SOLUTION :

Comme l'avait précisé AlainTech, il suffit de remplacer le caractère retour chariot du textarea par le caractère retour chariot de VBScript. D'où :

Code :

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

Replace(document.getElementById("nom_du_textarea").value, chr(13)&chr(10), chr(10))

Ce qui a pour effet de remplacer le 'Retour chariot chr(13) et saut de ligne Chr(10)' (lorsque l'utilisateur appuye sur entrée dans le textarea) par un simple 'Retour chariot'.

Ainsi, on peut exporter la valeur du textarea dans une cellule d'excel sans avoir les carrés qui apparaissent.

Merci beaucoup de m'avoir aidé à résoudre mon problème.

[RegiO]

Arfff désolé bbil, j'ai ecrit mon message avant de voir le tien, et merci encore j'ai trouvé la réponse en me grattant un peu le cerveau hihi ta solution marche aussi...

...Par contre le fait de remplacer le char(13) par char(13) & char(10) fait apparait un double retour chariot sous excel (si je n'abuse je vais reverifier quand meme) contrairement en faisant char(13) & char(10) par char(10)

EDIT : je viens de vérifier à l'instant la solution que tu proposes bbil ne marche pas vraiment car le fait de mettre chr(13) & chr(10) corrige pour le retour chariot qui vient du textarea mais on voit apparait une nouvelle ligne avec le fameux carré.