Export de données Excel vers une page web

[Régis]

Bonjour à toutes et à tous. Voici mon problème: Je cherche à renseigner des cases d'une page web html depuis excel et à récupérer les informations issues de ma requête dans le même fichier Excel.

Voici un exemple concret : Depuis une feuille Excel, je voudrais créer une macro qui envoie les informations que j'ai renseigné dans mes cases Excel (nom, prénom, etc) vers la page web html pagesjaunes.fr et récupérer le résultat de la requête sous cette même feuille excel.

Quelqu'un peut-il me tuyauter??

Merci d'avance.

Régis en galère...

 

[MichelXld]

bonjour Regis

tu peux tester cette macro pour completer les champs de la page Web

Sub piloterPageWeb()
'michelxld le 11.05.2005
'pour le forum [URL]https://www.excel-downloads.com/[/URL]
'
'activate Microsoft HTML Objects Library reference
'activate Microsoft Internet Controls reference
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection

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'

Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

Set IE = Nothing
End Sub

bonne soiree
MichelXld

 

[Régis]

Merci à toi et bravo, la routine fonctionne.

Seulement, elle ne fait que la moitié du chemin. Je cherche à ce qu'elle récupère aussi le résultat de la requête web dans le fichier Excel. En fait, je ne trouve pas le nom de la variable dans laquelle je pourrais aller chercher l'info. Grattage de tête... :huh:

En espérant que quelqu'un puisse m'aider...

Régis, un peu moins en galère, mais toujours un peu quand-même...

 

[MichelXld]

bonjour Régis

j'espere que cette adaptation pourra t'aider

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

bonne journée
MichelXld

Message édité par: MichelXld, à: 14/05/2005 14:20