[IE7] Double document html dans une page web inaccessible depuis vba

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

Je souhaite piloter depuis une macro vba une page internet qui n'est pas à ma main. Je me suis inspiré du (très bon) tuto que j'ai trouvé sur cette thématique.
Le site web en question est un peu particulier :

Pièce jointe 224069

En effet il y a 2 balises <html>. Du coup j'en conclu qu'il y a 2 documents imbriqués. Au final je n'arrive pas à récupérer les objets à partir des <id> ou des <name> qui sont présents après la deuxième balise <html> (alors que j'y arrive avec le frame name ="tittlebar" par exemple)

Le code que j'utilise est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Initialisation des variables Set IE = New InternetExplorerMedium IE.navigate "https://xxx.fr" IE.Visible = True 'attente du chargement de la page WaitIE IE 'récupération du doc Set IEDoc = IE.document 'récupération de la zone de texte Set InputECMZoneTexte = IEDoc.all("TitleBar_txtSearch") 'récupération du bouton d'activation de la recherche Set InputECMSearch = IEDoc.all("TitleBar_go_button")
VBA n'arrive pas à récupérer ces infos, du coup je ne suis pas en mesure de renseigner du texte dans le formulaire <input> qui va bien, ni activer le bouton de recherche <button> pour lancer le script sur la page internet depuis mon code vba :

Pièce jointe 224068

Je ne vois pas trop quelle structure je dois adopter ? Déclarer un autre document une fois mon premier document lié ?

[EDIT] En regardant, je trouve bien des items dans mon IEDoc. Sauf que celà s'arrête aux <frame> ! Comment pourrais-je de nouveau "rentrer" dans ce frame pour aller y récupérer ce que je cherche ?

[EDIT2]

Citation:

On notera toutefois une exception pour l'élément <iFrame, dont la correspondance est en rouge. Le contenu de celui-ci, à savoir <html>, <head>, <title> et leurs balises de clôture respectives, n'apparaît pas dans l'objet all. Le composant iFrame est utilisé pour afficher dans le corps d'une page une autre page Web indépendante. Cette page indépendante a beau être affichée, son contenu n'est pas accessible dans l'arborescence VBA, il faudra charger cette page dans une fenêtre de navigation pour interagir avec elle.

=> Comment je charge cette page ? et surtout comment je récupère les valeurs que j'aurais injecté dedans dans ma première fenêtre IE ? et comment j'actionne le bouton (qui actionné dans la page IE de la frame seule ne sert à rien car il lance un script qui va chercher ailleurs ! )

05/11/2016, 00h37
patricktoulon

re

re
Bonsoir
d'apres ta capture ce sont des frames
des frames contiennent des document html
en plus toujours d'apres ta capture il y a une balise form et je supose que tes elements sont dedans

donc d'abords un getelementsbtytagname("frame")
puis un sur les form
puis sur ton élément recherché
pourrait on avoir une url valide pour les tests

Merci pour ta réponse,

Je ne suis pas en mesure de sortir l'url car c'est un site interne.

Je comprends la structure dont tu parles mais j'avoue avoir du mal à la mettre en œuvre :

Si je te fais la hiérarchie de la page internet :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 <html> ... (il y a 2 frame, titlebar ci dessous est ainsi le 3eme item) <frame name ="titlebar" ..> <html> <body> <form name="TitleBar_0"..> <div class="Wrapper"> <table class="floatLeft"...> <tbody> <tr><td> <input name ="TitleBar_txtSearch_0" -- C'est cet élément que j'essaye d'attraper"> </toutes les fermetures> <frame = ... > <frame = ...> </html> [...]
Du coup en transcription j'ai fait ce code mais qui n'est pas fonctionnel :
Code:

1 2 3 4 Set IEDoc = IE.document Set IEDoc_FenetreRecherche = IEDoc.frames.Item(3).document 'frame titlebar où on retrouve la recherche rapide Set InputECMZoneTexte = IEDoc_FenetreRecherche.all("TitleBar_txtSearch_0")

07/11/2016, 10h28
patricktoulon

Re

Re
La ligne 4 c est pas.. All mais,'. Document. All''

Et oui chaque frame. Contient un document

Merci pour ta réponse,
Code:

1 2 3 Set IEDoc = IE.document Set IEDoc_FenetreRecherche = IEDoc.frames.Item(3).document 'frame titlebar où on retrouve la recherche rapide Set InputECMZoneTexte = IEDoc_FenetreRecherche.document.all("TitleBar_txtSearch_0")
J'ai une erreur d'éxécution 438 (méthode non générée par cette objet).

Pour moi le "document" du frame je l'avais déjà récupéré avec la ligne

Code:

Set IEDoc_FenetreRecherche = IEDoc.frames.Item(3).document 'frame titlebar où on retrouve la recherche rapide

Car IEDoc.frames.Item(3) => J'ouvre ma frame
.document => J'ouvre le document de ma frame,

Je pense que c'est l'ouverture de la frame qui merderait car lorsque j'espionne ce qu'il y a dans la variable "IEDoc_FenetreRecherche", je trouve des items qui sont dans le premier document et pas dans la frame "titlebar" (Des éléments comme ligne 13 ou 14 de la structure de la page web)

Pour info sur les déclaration :
Code:

1 2 3 Dim IEDoc As HTMLDocument Dim IEDoc_FenetreRecherche As HTMLDocument Dim InputECMZoneTexte As HTMLInputElement 'Bouton de recherche direct
non ?

Désolé pour le double post :

Problème résolu :
Code:

1 2 3 4 5 6 Dim FrameTittleBar As HTMLFrameBase Dim IEDoc As HTMLDocument Set IEDoc = IE.document Set FrameTittleBar = IEDoc.frames.Item(2) 'frame titlebar où on retrouve la recherche rapide Set InputECMZoneTexte = FrameTittleBar.frames.document.all("TitleBar_txtSearch_0")
Une fois le frame sélectionné, ligne 4, il fallait aller dans la section "frames" de celui-ci, puis document, puis all pour retrouver tous les inputs que je recherchais !
Merci patricktoulon pour ton aide et m'avoir dirigé vers la solution ;)

Je clos =)