Bonjour,
Je suis en train de faire une macro VBA excel, qui doit se connecter à un site web https avec un login et password.
Voici la macro où j'ai récupéré bcp d'infos sur la Wiki Page 7 de Michel Xld
Jusqu'ici ça fonctionne bien.
Ensuite une fois le formulaire valider (avec Valide.click)...j'aimerais cette fois récupérer les données et lancer certains liens pour récupérer des tableaux..mais je ne parviens pas à récupérer les données de la nouvelle page.
Comment récupérer en vba le code source de la seconde page web qui est en dynamique HTML (plusieurs calques).
j'ai testé avec cette macro pour enregister dans un fichier la nouvelle page
Dim nFile As Integer
nFile = FreeFile
Open 'C:\\Mapage.htm' For Output Shared As #nFile
Print #nFile, IE.document.documentElement.innerText
Close #nFile
Mais le fichier Mapage.htm contient que le titre de la page...il me manque tous les autres 'calques'!!!
Comment faire pout tout récupérer et 'rapatrier'ainsi les tables???
Merci de votre aide
Je suis en train de faire une macro VBA excel, qui doit se connecter à un site web https avec un login et password.
Voici la macro où j'ai récupéré bcp d'infos sur la Wiki Page 7 de Michel Xld
Code:
Sub PageWeb()
Dim Identifiant As String
Dim Pass As String
Dim htmldata As IHTMLElementCollection
Set IE = CreateObject('internetexplorer.application')
IE.Visible = True
IE.navigate ('[I]Ce lien n'existe plus[/I])
Do While IE.Busy
Application.Wait (Now + 0.5 / 3600 / 24)
Loop
Application.Wait (Now + 1 / 3600 / 24)
Set maPageHtml = IE.document
Set htmldata = maPageHtml.getElementsByTagName('input')
Identifiant = 'xxxxxxx'
Pass = '*****'
htmldata(0).innerText = Identifiant
htmldata(1).innerText = Pass
Set Doc = IE.document
Set Valide = Doc.Links(2) '2ème lien pour valider le formulaire
Valide.Click
Do While IE.Busy
Application.Wait (Now + 0.5 / 3600 / 24)
Loop
Jusqu'ici ça fonctionne bien.
Ensuite une fois le formulaire valider (avec Valide.click)...j'aimerais cette fois récupérer les données et lancer certains liens pour récupérer des tableaux..mais je ne parviens pas à récupérer les données de la nouvelle page.
Comment récupérer en vba le code source de la seconde page web qui est en dynamique HTML (plusieurs calques).
j'ai testé avec cette macro pour enregister dans un fichier la nouvelle page
Dim nFile As Integer
nFile = FreeFile
Open 'C:\\Mapage.htm' For Output Shared As #nFile
Print #nFile, IE.document.documentElement.innerText
Close #nFile
Mais le fichier Mapage.htm contient que le titre de la page...il me manque tous les autres 'calques'!!!
Comment faire pout tout récupérer et 'rapatrier'ainsi les tables???
Merci de votre aide