Discussion :

[pio_killer]

Bonjour,

je suis en train de faire une macro excel afin d'aller chercher des info sur une page intranet du boulot.

D'abord, je ne m'y connait pas tant que ça en html.

Mon problème est que j'arrive sur une page où il faut cliquer sur un lien qui se trouve dans une sorte de sous-formulaire (iframe je crois)

Je suis arrivé tant bien que mal à trouver les variable contenant le lien.

Je me suis donc dit que j'allais balayer la liste de variable et que lorsque je trouve mon lien, je ferais un .navigate

Le problème est que vba ne veut pas lire le contenu après la variable "contentDocument".
J'obtiens le message : "Propriété ou méthode non gérée par cet objet"

Voici le code que voulait utiliser pour extraire le contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim IE As New InternetExplorer
 
'On ouvre la page
IE.navigate Html_Path_Name
IE.Visible = True
 
'On extrait la liste des liens
    Ligne = 2
    For Each htmlElement In IE.document.forms.Item(0).ChildNodes.Item(55).contentDocument.Links
        Cells(Ligne, 18) = htmlElement.href
        Ligne = Ligne + 1
    Next

Désolé pour le manque de précision mais je ne peux pas mettre le code html.

Voilà, si quelqu'un peut m'aider ...

N'hésitez pas si vous voulez des précisions.

Merci d'avance.

[pio_killer]

J'ai la solution

Il suffisait de faire un SET dans des variables correctement déclarer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Dim IE As New InternetExplorer
 
Dim obj_HTML_Frame_Element As HTMLFrameElement
Dim obj_HTML_Document As HTMLDocument
 
'On ouvre la page
IE.navigate Html_Path_Name
IE.Visible = True
 
'On déclare le sous-formulaire
Set obj_HTML_Frame_Element = IE.document.forms.Item(0).ChildNodes.Item(55)
Set obj_HTML_Document = obj_HTML_Frame_Element.contentDocument
 
'On balaye les lien
Ligne = 2
For Each HtmlElement_Link In obj_HTML_Document.Links
    Cells(Ligne, 18) = HtmlElement_Link.href
    Ligne = Ligne + 1
Next

Donc si quelqu'un a un problème similaire, pensez à regarder le type de variable et à faire un SET en cascade.

Voilà.