Bonjour,
Sur la feuille1 je rapatrie les données de l'objet input d'une page Web (avec les tag href et value).
Sheets("Feuil1").Select
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
For j = 0 To helem.Length - 1
Range("A" & (j + 1)).Value = helem(j).getAttribute("href") & " / " & Helem(j).getAttribute("value")
Next j
Tout fonctionne aussi bien sur vba excel 2010 et 2003
Par contre j'ai changé d'objet (au lieu d'input j'ai label avec tag class et value qui existe bel et bien dans la page web) et là ça ne fonctionne pas sous excel 2003 (pas de problème avec Excel 2010)!
Je n'arrive pas à inscrire dans la feuille1 les données!!!
Sheets("Feuil1").Select
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("label")
For j = 0 To helem.Length - 1
Range("A" & (j + 1)).Value = helem(j).getAttribute("class") & " / " & Helem(j).getAttribute("value")
Next j
Si vous pouviez m'aider???
En vous remerciant,
Fred
Sur la feuille1 je rapatrie les données de l'objet input d'une page Web (avec les tag href et value).
Sheets("Feuil1").Select
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
For j = 0 To helem.Length - 1
Range("A" & (j + 1)).Value = helem(j).getAttribute("href") & " / " & Helem(j).getAttribute("value")
Next j
Tout fonctionne aussi bien sur vba excel 2010 et 2003
Par contre j'ai changé d'objet (au lieu d'input j'ai label avec tag class et value qui existe bel et bien dans la page web) et là ça ne fonctionne pas sous excel 2003 (pas de problème avec Excel 2010)!
Je n'arrive pas à inscrire dans la feuille1 les données!!!
Sheets("Feuil1").Select
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("label")
For j = 0 To helem.Length - 1
Range("A" & (j + 1)).Value = helem(j).getAttribute("class") & " / " & Helem(j).getAttribute("value")
Next j
Si vous pouviez m'aider???
En vous remerciant,
Fred