Sub piloterPageWeb_V02()
'michelxld le 14.05.2005
'pour le forum [URL]https://www.excel-downloads.com/[/URL]
'
'activer la reference Microsoft HTML Objects Library
'activer la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim winShell As New ShellWindows
Dim x As Integer
Dim Valeur As Date
'---transfert données Excel dans les champs d'une page web ----
Set IE = CreateObject('InternetExplorer.Application'Â'Â')
IE.Visible = True
IE.navigate '
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName('input'Â'Â')
With Helem
.Item(19).innerText = Range('A1'Â'Â') 'Nom
.Item(20).innerText = Range('A2'Â'Â') 'Adresse
.Item(21).innerText = Range('A3'Â'Â') 'Localité
.Item(22).innerText = Range('A4'Â'Â') 'Region
End With
Helem(23).Click 'bouton 'Recherche'
Valeur = Timer 'temporisation pour le rafraichissement de la page
Do While Timer < Valeur + 2
DoEvents
Loop
'----------------------------------------------------------------
'----- récupérer les infos de page Web dans un fichier texte ----
x = FreeFile
Open 'C:\\resultatRequete.txt' For Output Shared As #x
Set IE = winShell(winShell.Count - 1)
Print #x, IE.document.documentElement.innerText
'Cells(1, 2) = IE.document.documentElement.innerText
DoEvents
Close #x
'----------------------------------------------------------------
ThisWorkbook.FollowHyperlink 'C:\\resultatRequete.txt'
Set IE = Nothing
End Sub