interaction excel et navigation

bonjour steph,

j'ai essayé de trouver l'info que tu as décris avec la macro suivante
mais je ne trouve rien sur <div id="map"

une fois la macro lancé, attend le message : MsgBox "recherche
complétée" avant de faire un autre action

Sub ListeDesObjectsPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim i As Integer, x As Integer, rw As Integer
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim eTagName
Set IE = CreateObject("internetExplorer.Application")
rw = 1
IE.navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/mapping"
'"http://www.google.ca/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document

eTagName = Array("DIV", "LI", "SPAN", "input")

For x = LBound(eTagName) To UBound(eTagName)
Set Helem = maPageHtml.getElementsByTagName(eTagName(x))
For i = 0 To Helem.Length - 1
Range("A" & rw) = i
Range("B" & rw) = Helem(i).getAttribute("parentElement")
Range("C" & rw) = Helem(i).getAttribute("tagName")
Range("D" & rw) = Helem(i).getAttribute("className")
Range("E" & rw) = Helem(i).getAttribute("constructor")
Range("F" & rw) = Helem(i).getAttribute("id")
Range("G" & rw) = Helem(i).getAttribute("name")
Range("H" & rw) = Helem(i).getAttribute("value")
Range("I" & rw) = Helem(i).getAttribute("type")
rw = rw + 1
Next
Next

IE.Quit
Set Helem = Nothing
Set maPageHtml = Nothing
Set IE = Nothing
MsgBox "recherche complétée"
End Sub


--
isabelle

Le 2011-04-13 07:04, steph b a écrit :

Bonjour je reprends ce post.

Comment, une fois la page ouverte on pourrait recuperer une image de cette
page et la mettre dans une cellule excel

voici le code dans inspecter element
<div id="map" style="cursor: move"></div>

merci

bonjour steph,

je n'y connais pas grand chose en html et script mais j'ai avancé un peu,
j'ai trouvé qu'il n'est pas nécessaire de sélectionner l'onglet Carte
des équipements pour afficher une carte quelconque.
je continue à chercher le nom de l'objet carte, si tu trouves dit le moi.

exemple pour afficher la carte Carte des équipements :Gouvernement /
ministères

[code]
Sub NaviguerPageWebTEST3()
Dim IE As internetExplorer
Set IE = CreateObject("internetExplorer.Application")
IE.navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/mapping"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

'Carte des équipements :Gouvernement / ministères
IE.document.getElementsByTagName("INPUT").Item("c_treeEquipement10").Click

IE.Visible = True
End Sub
[/code]

--
isabelle

Le 2011-04-13 07:04, steph b a écrit :

Bonjour je reprends ce post.

Comment, une fois la page ouverte on pourrait recuperer une image de cette
page et la mettre dans une cellule excel

voici le code dans inspecter element
<div id="map" style="cursor: move"></div>

merci

moi non plus isabelle je ne comprends pa tout sur ce site!!!


"isabelle" <i@v.org> a écrit dans le message de news:
ioater$d9t$1@speranza.aioe.org...

bonjour steph,

j'ai essayé de trouver l'info que tu as décris avec la macro suivante mais
je ne trouve rien sur <div id="map"

une fois la macro lancé, attend le message : MsgBox "recherche complétée"
avant de faire un autre action

Sub ListeDesObjectsPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim i As Integer, x As Integer, rw As Integer
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim eTagName
Set IE = CreateObject("internetExplorer.Application")
rw = 1
IE.navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/mapping"
'"http://www.google.ca/"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document

eTagName = Array("DIV", "LI", "SPAN", "input")

For x = LBound(eTagName) To UBound(eTagName)
Set Helem = maPageHtml.getElementsByTagName(eTagName(x))
For i = 0 To Helem.Length - 1
Range("A" & rw) = i
Range("B" & rw) = Helem(i).getAttribute("parentElement")
Range("C" & rw) = Helem(i).getAttribute("tagName")
Range("D" & rw) = Helem(i).getAttribute("className")
Range("E" & rw) = Helem(i).getAttribute("constructor")
Range("F" & rw) = Helem(i).getAttribute("id")
Range("G" & rw) = Helem(i).getAttribute("name")
Range("H" & rw) = Helem(i).getAttribute("value")
Range("I" & rw) = Helem(i).getAttribute("type")
rw = rw + 1
Next
Next

IE.Quit
Set Helem = Nothing
Set maPageHtml = Nothing
Set IE = Nothing
MsgBox "recherche complétée"
End Sub


--
isabelle

Le 2011-04-13 07:04, steph b a écrit :

Bonjour je reprends ce post.

Comment, une fois la page ouverte on pourrait recuperer une image de
cette
page et la mettre dans une cellule excel

voici le code dans inspecter element
<div id="map" style="cursor: move"></div>

merci