Discussion :

[Yullll]

Bonjour,

Je souhaiterai faire une macro qui me permet de faire un clique sur un bouton qui se trouve sur une page html.
J'ai déjà réussi a ouvrir la page concernée, mais je n'arrive pas a lui faire cliquer sur le bouton.
Voici la ligne HTML du bouton name ctl16

Code :

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

<INPUT style="HEIGHT: 50px; WIDTH: 70px" src="./images/XXX/bAnim.gif" type=image name=ctl16>

Voici ce que j'ai essayé de faire :

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
Sub internet()
 
'Déclaration des variables
Dim IE As New InternetExplorer
 
'Chargement d'une page web Google
   IE.navigate "http://XXXXXX"
 
'Affichage de la fenêtre IE
   IE.Visible = True
   WaitIE.IE
 
Set InputBouton = IEDoc.all("ctl16")
Bouton.Click
 
'On attend la fin de la recherche
WaitIE.IE
 
 'Libération IE
   Set IE = Nothing
 
 
End Sub

[patricktoulon]

bonjour
ctl16 c'est quoi ?? (un ID , un Name, un classname)

re
en plus c'est gros comme un camion

Code :

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

1
2
Set InputBouton = IEDoc.all("ctl16")
InputBouton.Click

[Yullll]

ctl16 c'est un name. Merci de ta réponse j'ai un message d'erreur : Objet requis.
La page web s'ouvre mais le clique ne ce fais pas !

[cerede2000]

Si ce n'est pas un ID tu ne peux pas le chercher comme ça !

Code :

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

IEDoc.getElementsByName("ctl16")(0).Click

[Yullll]

Bonjour, c'est un <td je penses voici le code comlet

Code html :

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

1
2
<TD style="WIDTH: 139px; BACKGROUND-IMAGE: url(./images/XXX/1.gif); BACKGROUND-POSITION: center 50%; TEXT-ALIGN: center" rowSpan=5><INPUT style="HEIGHT: 50px; WIDTH: 70px" src="./images/badgeuse/bAnim.gif" type=image name=ctl16></TD>
      <INPUT style="HEIGHT: 50px; WIDTH: 70px" src="./images/XXX/bAnim.gif" type=image name=ctl16>

Toujours l'erreur objet requis
Merci de votre aide

[patricktoulon]

pour moi le .all("ct116") devrait fonctionner car c'est quand même un Name et un input même si il est dans un td

par contre je vois pas l'appel a a une fonction je suppose donc que l'évènement doit être ajouté dynamiquement "addeventlistener" soit gérer autrement par un Href par exemple
mais ne connaissant pas la page je peut rien faire

[patricktoulon]

oupss!! j'avais pas vu ta variable iedoc n'est pas instanciée en tant que document de ie la bonne blague

teste ceci ce sera peut etre mieux

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
Sub internet()
 
'Déclaration des variables
Dim IE As Object, IEDOc As Object
 Set IE = CreateObject("internetexplorer.application")
'Chargement d'une page web Google
   IE.navigate "http://XXXXXX"
 
'Affichage de la fenêtre IE
   IE.Visible = True
  Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy
 
 
Set InputBouton = IE.document.all("ctl16")
InputBouton.Click
 
'On attend la fin de la recherche
Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy
 
 'Libération IE
   Set IE = Nothing
 
 
End Sub