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.

J'ai presque trouvé une solution :

Code:

---

1 2 3

Set htmlTagCol = IEDoc.getElementsByTagName("a") Set GenericElem = htmlTagCol(4) '4 est l'index de la position du lien qui m'intéresse dans la page web GenericElem.Click

---

Je dis presque parce que :
- quand j'exécute la procédure en mode pas à pas (F8), ça marche : j'accède bien à mon compte ce qu'est supposé faire l'action GenericElem.Click
- quand j'exécute directement la procédure, le site me renvoie vers une page de login.

J'ai pourtant mis une instruction de pause juste avant le code précédent, du type

Code:

---

1 2 3 4 5 6

Sub WaitIE(IE As InternetExplorer) 'On boucle tant que la page n'est pas totalement chargée Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop End Sub

---

Rien n'y fait.

Essaie ça:

Code:

---

1 2 3 4 5 6 7

Sub waitunpeuplus() pausetime=10 start = timer do while timer<start+pausetime doevents loop end sub

---

Ca marche !
Et même avec pausetime = 1

C'est bizarre car j'avais tenté un truc du genre

Code:

---

1 2 3 4

do i=i+1 loop until i=10000

---

mais sans succès. L'avantage de ta méthode c'est qu'on sait compter la durée exacte de la pause.

Merci pour ton aide.