Textarea et texte non reconnu

Bonjour,

J'ai ouvert un sujet ce jour mais l'ayant résolu je l'ai passé en... Resolu. Je dois donc en ouvrir un nouveau pour mon nouveau problème.N'ayez pas d’inquiétude, je n'envisage pas de sur-occuper le forum.

Je cherche à remplir un "textarea".

Code:

---

1 2 3 4 5 6 7

Dim theElementCollectionX As HtmlElementCollection theElementCollectionX = WebBrowser1.Document.GetElementsByTagName("textarea") For Each curElement As HtmlElement In theElementCollectionX curElement.InnerText = variabledetexte Application.DoEvents() Exit For Next

---

Mon texte est bien affiché au bon endroit sur l'écran du webbrowser mais lorsque je clique sur "valider" j'ai un message d'erreur qui me dit que je n'ai pas entré de texte. Lorsque je fais un copier/coller du même texte au même endroit, tout fonctionne correctement.

Est-il possible qu'il y ai une histoire d'ajax ou autre et que lorsque "j'injecte" le code il ne soit pas vu ?

Je ne m'en sors pas de ce projet ! Merci pour votre aide.

Bonjour,

Je n'avance pas :(

Je peux vous donner des codes d'accès à la plateforme en vous indiquant précisément là ou ça bloque ainsi que mon code complet.

Un coup de pouce serait vraiment le bienvenu car le problème n'est pas de remplir le textarea mais bien de prise en compte de celui-ci, et là, je suis incompétent pour comprendre.

Merci à vous.

Bonjour alberto314,

Je ne connais pas trop les htmlelements, donc désolé si mes remarques sont erronées.

Code:

---

theElementCollectionX = WebBrowser1.Document.GetElementsByTagName("textarea")

---

Es-tu sur que tu récupère bien une collection suite à cette instruction? Combien d'éléments sont susceptibles d'avoir un tag à "textarea"?

Code:

---

1 2 3 4 5 6

For Each curElement As HtmlElement In theElementCollectionX curElement.InnerText = variabledetexte Application.DoEvents() Exit For Next

---

Pourquoi fais-tu un Exit For?