Discussion :

[nastyJ]

Bonjour à tous,

J'essaye depuis une macro VBA de cliquer sur un lien hypertexte dans une page HTML mais celui-ci ne possède pas de ID:

Code html :

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

<a class="homeMenu" onclick="startBusyBox();this.style.cursor='wait' ;document.body.style.cursor='wait' ;" href="/CCCWeb/filterClientListFromDefineAsOf.do?do=clientMenu">

j'ai essayé la methode suivante:

Code :

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

1
2
Set IEDoc= IE.document
IEDoc.parentWindow.execScript "startBusyBox()", "Jscript"

mais j'ai l'erreur suivante:

Run-time error '-2147352319 (800201001)":

Automation error

Comment puis-je faire?

Merci d'avance pour votre aide

[Invité]

Bonjour,
Pour information les instructions JavaScript ce termine toujours par [;].

Tu ne donnes pas ce qu'il est véritablement utile pour te répondre ,

En effet tu connais l'URL elle est écrite dans le href du <a>.

Il est possible que ce lien soit contenu dans un <form>
Dans ce ca tu affecte l'URL a la propriété action du formulaire et tu le sumith

http://www.developpez.net/forums/d14...e/#post7893073

[nastyJ]

Bonjour Rdurupt et merci pour ta réponse,

Oui j'ai vu le lien dans la href mais je voulais tout de même cliquer sur le bouton pour que ça fasse plus "propre" plutôt que d'afficher la page web directement.

Je joins le début du code HTML si ça peut aider:

En ce qui concerne le javascript, j'ai adapté ce que j'ai trouvé sur le tutoriel DVP: http://qwazerty.developpez.com/tutor...a-excel/#LIV-D

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
22
23
24
25
26
27
28
VBA
Sélectionnez
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub ScriptScienceActu()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim yNumActu As Byte
 
   'Ouvre la page Web + Affiche IE + Attente
   IE.Navigate "http://www.science.gouv.fr/"
   IE.Visible = True
   WaitIE IE
 
   'On pointe le document
   Set IEDoc = IE.document
 
   'On boucle de 2 à 5
   For yNumActu = 2 To 5
      'On exécute le script showActu 'Attention à la Casse!!!! showActu
      IEDoc.parentWindow.execScript "showActu(" & yNumActu & ")", "JavaScript"
      'On laisse 2 secondes au lecteur
      Sleep 2000
   Next
 
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub

Merci!

[Invité]

La méthode OnClik ne fait pas autre chose au ce au je t'ai dis

Moi dans ce cas de figure,je sauvegarde le script html dans un fichier je teste mon javascript dans le ficher, on s'affranchit vba !

[nastyJ]

Ouais mais le problème c'est que je dois utiliser excel et VBA, je ne peux pas me servir de javascript...

[Invité]

Tu as regardé le lien que je t'ai donné?
C'est de l'Excel vba!

Il y plus méthode pour injecter du javascript,elles dépendent de la configuration du code HTML, en revanche ce sera toujours le même script java. Donc tu divise le travail en 2 si ton script fonction dans un fichier HTML il te reste a évaluer comment le faire fonctionner en vba!