Est ce possible avec un webbrowser?

Re : Est ce possible avec un webbrowser?

Bonjour Castlevania,

J'ai trouvé ma réponse tout seul (gros débutant), je te joins mon exemple

im i As Integer
Dim MaPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection, Hsel As IHTMLElementCollection
Dim Valeur As HTMLSelectElement
Dim maVariable As String
Dim maVariable2 As String

maVariable = Nom1

maVariable2 = Nom2




WebBrowser1.navigate "http://ton URL.com"
Do
DoEvents
Loop While WebBrowser1.Busy

Set MaPageHtml = WebBrowser1.document

Set Helem = PageHtml.getElementsByTagName("input")
'For i = 0 To Helem.Length - 1'(boucle pour lister les objets type "input" de la page)
'MsgBox Helem(i).getAttribute("name") & " / " & Helem(i).getAttribute("value")
'Next i
'If Helem(i).getAttribute("value") = "Chercher" Then Helem(i).Click 'simulation clic



Helem(5).innerText = maVariable 'champ de saisie mots clés
Helem(6).innerText = maVariable2 'champ de saisie mot de passe
Helem(7).Click 'simule le clic sur le bouton



Ma variable renvois au contenu d'une textbox, ici Textbox nommé Nom 1 et nom2.

Il va écrire le contenu de ces textbox dans les champs approprié.

salut!