Discussion :

[alberto314]

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 :

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

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.

[alberto314]

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.

[ZenZiTone]

Bonjour alberto314,

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

Code :

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

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 :

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

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?