ouvrir un URL sur une page Web en VBA
Dans le prolongement de cet excellent tuto, je rencontre un pb avec le lancement d'un lien web contenu dans une page mais dont la syntaxe est :
Code:
<a class="eo_hyp_bleu" href="#" onclick="javascript:return DfmenuAction2(document.forms.AcPlanForm,'EC_EP_AC_PLAN_01','9211');">
J'ai bien voulu appliquer le tuto pour utiliser la fonction javascript DmenuAction2 dont voici le code :
Code:
1 2 3 4 5 6 7 8 9
| function DfmenuAction2(f,id,h) {
f.elements.dfAT.value='menu';
f.elements.dfMenuId.value=id;
f.elements.dfHParam.value=h;
f.submit();
return false;
} |
J'ai donc tapé dans ma macro VBA :
Code:
IEDoc.parentWindow.execScript "DfmenuAction2(document.forms.AcPlanForm,'EC_EP_AC_PLAN_01','9211')", "JavaScript"
Mais ça ne marche pas ("erreur Automation").
A la rigueur, dans ce cas précis, je n'ai pas forcément besoin d'automatiser la génération de l'URL sur laquelle cliquer" car c'est toujours la même.
Si j'en crois la barre d'état de mon navigateur, c'est
https://www.egepargne.com/def_int_ep...nuId=SC_EP_AC# qui est donc le résultat de la fonction javascript sus-nommée.
Curieusement, si je copie/colle cet URL dans la barre d'adresse du navigateur ouvert par ma macro, j'accède bien à la page désirée.
Mais si je fais :
Code:
IE.navigate "https://www.egepargne.com/def_int_ep/ep/menu.do?dfAT=menu&dfMenuId=SC_EP_AC#"
il ne se passe rien contrairement à
Code:
IE.navigate "http://www.google.fr"
qui fonctionne très bien
Ya-t-il une méthode donc pour "lancer" l'URL qui m'intéresse soit de façon manuelle soit de façon automatique en utilisant le contenu de ma page Web (pas indispensable ici mais pourrait l'être dans d'autres cas de figure) ?
Remarque :
l'URL https://www.egepargne.com/def_int_ep...nuId=SC_EP_AC# ne fonctionne qu'après avoir franchi la page de login du site, ce que ma macro fait très bien. Mais bien entendu, si vous lancez cet URL vous serez redirigé sur la page de login.