Bonjour à tous,

Comment puis créer un bouton qui ouvre un site internet et qui va chercher des données afin de les recopier dans un formulaire? Voici ce que j'ai, c'est la partie en rouge que je n'arrive pas à faire...

Private Sub Commande17_Click()

Dim val As String
Dim valdate As String

val = Me.Controls("Texte18").Value
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
Dim DOCelement As Object
Dim IEdoc As Object
IE.Navigate ("http://assurol/Consultation/ClientSearch.aspx")
IE.Visible = True

Do Until IE.ReadyState = 4
DoEvents
Loop

Set IEdoc = IE.Document

Set DOCelement = IEdoc.getElementsByName("ctl00$ContentPlaceHolder$numSinistreTextBox").Item
DOCelement.Value = val
Set DOCelement = IEdoc.getElementsByName("ctl00$ContentPlaceHolder$ImgBtnRechercheClient").Item
DOCelement.Click
DOCelement.Select

Do Until IE.ReadyState = 5
DoEvents
Loop
With Me
On Error Resume Next

Set DOCelement = Me.Controls("Nom/Société").Value = IEdoc.getElementByName("ctl00_ContentPlaceHolder_GridViewTiers_ctl02_Label1").Item.Value

valdate = Me.Controls("Nom/Société").Value

MsgBox valdate
End With
End Sub