Discussion :

[noftal]

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 :

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

<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 :

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

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 :

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

   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 :

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

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 :

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

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.

[noftal]

J'ai presque trouvé une solution :

Code :

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

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 :

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

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.

[EngueEngue]

Essaie ça:

Code :

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

1
2
3
4
5
6
7
Sub waitunpeuplus()
pausetime=10
start = timer
do while timer<start+pausetime
doevents
loop
end sub

[noftal]

Ca marche !
Et même avec pausetime = 1

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

Code :

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

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.