[VBS] - Importer un retour chariot dans Excel

Version imprimable

1 pièce(s) jointe(s)

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 :

http://www.developpez.net/forums/att...1&d=1158590294

Mon code VBScript :
Code:

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.

18/09/2006, 16h44
AlainTech

Vérifier quel(s) caractère(s) ser(ven)t au retour chariot et le(s) remplacer par un vbLf (Chr(10)).
18/09/2006, 17h34
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.
18/09/2006, 18h52
SfJ5Rpw8

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

Code:

objexcel.Cells(14,2).value = replace(document.getElementById("xlEValeur15").value,chr(13),chr(13) & Chr(10) )
18/09/2006, 18h56
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:

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.
18/09/2006, 19h01
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é.