Comment cliquer sur un bouton HTML sans ID

**nastyJ** · 08/07/2015, 17h04

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é · 08/07/2015, 17h35

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** · 08/07/2015, 18h08

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: Nom : pageHtmlGce.png
Affichages : 1985
Taille : 68,0 Ko

Nom : pageHtmlGce.png
Affichages : 1985
Taille : 68,0 Ko

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é · 08/07/2015, 18h19

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** · 08/07/2015, 21h10

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

Invité · 08/07/2015, 22h36

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!

**nastyJ** · 09/07/2015, 09h36

Oui j'ai vu le code

Code :

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

IE.Document.parentWindow.execScript "javascript:document.leform.compte.value='Login';"

Mais je ne sais pas trop comment l'adapter dans mon cas (je suis débutant en VBA et JS)

Invité · 09/07/2015, 10h23

Bonjour,
d'abord, copies ta source html dans un fichier html .

écris un Script qui exécute ce que tu veux faire.

un fois que ce script fonctionne exécute le via VBA!

Code toto.html :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<html>
<headers><title>toto</title></headers>
<Body>
	<Form name='frm'>
	<Form>
</Body>
</html>
<script langage='javascipt'>
if(confirm('Recharger la page')==true){
this.document.frm.Action='toto.html';
this.document.frm.submit();
}
</script>

**nastyJ** · 09/07/2015, 12h46

Bonjour,

Merci pour ton aide rdurupt, mais je viens de m'appercevoir que quasiments tous les boutons de la page appellent une fonction javascript. Par exemple j'ai une liste déroulante où je peux selectionner mon client et voilà le code derrière:

Nom : pageHtmlSearchClient.png
Affichages : 1897
Taille : 74,1 Ko

Nom : pageHtmlSearchClient.png
Affichages : 1897
Taille : 74,1 Ko

Donc là encore il faut que j'appelle la finction changeSearchBy() mais je n'arrive pas à executer la fonction depuis VBA...

Invité · 09/07/2015, 13h01

tu trouvera un exemple pour sélectionner des combobox Ici

sur Lur:http://www2.leboncoin.fr/ai/form/1?ca=18_s

**nastyJ** · 09/07/2015, 15h12

Ok merci mais c'est galère si à chaque fois que je veux selectionner une option sur la page ou appuyer sur un bouton je dois faire un fichier javascript.

Pourquoi je ne peux pas directement lancer les fonctions JS depuis VBA? Ça me parait beaucoup plus simple

Invité · 09/07/2015, 15h21

UI Tu n'as rien compris! Ton fichier n'est utile que Pour tester

ton scrip, bien sur après tu le fais dans Vba.

Si tu est capable de le faire directement dans Vba, pas de problème,moi je transite toujours par un fichier!
De toutes les façons il faudra toujours analyser le code source

**nastyJ** · 09/07/2015, 15h29

Oui, à vrai dire je n'ai pas bien compris ta méthode...Et je suis débutant en VBA et casi 0 en JavaScript.

J'essaye juste d'appliquer la méthode du tutoriel de DVP et d'appeller directement les fonctions Javascript du site web. Aussi je n'ai pas accès au code Javascript des fonctions qui sont sur la page web. Elle a été developpée par qqn d'autre.

Invité · 09/07/2015, 15h32

Désolé je la connais pas, je connais que la méthode RD��

**nastyJ** · 09/07/2015, 15h35

ok merci quand même

Invité · 09/07/2015, 15h39

Mois je viens du web je te donnes des vielles méthodes de développeurs web

Le fait de sélectionner une valeur dans ta combobox appellera l'événement onchange qui lui exécutera changeSearchBy()

Comment cliquer sur un bouton HTML sans ID

Macros et VBA Excel

Discussions similaires

Partager

Partager