Manipuler IE sous VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

J'en suis à mes premiers balbutiements avec IE et je sais qu'il y a plusieurs connaisseurs ici... ;)

J'essaie de cliquer un bouton qui est une image, mais n'y arrive pas...
Je me dis que je vais utiliser le lien href, mais n'y arrive pas plus...
Quelqu'un saurait me sortir de là ?

Code:

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
29
30
31
32
33
34
35
36
Sub ImportMSC()
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim Texte As HTMLInputElement
    Dim Lien As HTMLAnchorElement
    Dim strURL As String
 
    strURL = "https://www.msc.com/usa/help-centre/tools/track-a-shipment"
 
    IE.navigate strURL
    IE.Visible = True
 
    WaitIE IE
 
    Set IEDoc = IE.document
 
    Set Texte = IEDoc.getElementById("ctl00_ctl00_plcMain_plcMain_TrackSearch_txtBolSearch_TextField")
    Texte.Value = "TTNU8456994"     'fonctionne bien
 
    Set Lien = IEDoc.anchors.Item("Search")
    For Each Lien In IEDoc.anchors
        If Lien.ID = "ctl00_ctl00_plcMain_plcMain_TrackSearch_hlkSearch" Then
            Lien.Click  'le code se rend mais ne fonctionne pas. En plus il efface le texte entré auparavant.
            Exit For
        End If
    Next
 
    Set IEDoc = Nothing
    Set IE = Nothing
End Sub
 
Sub WaitIE(IE As InternetExplorer)
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

merci d'avance

Bonjour !

La page nécessite juste d'activer le champ comme lors d'une saisie manuelle (ligne n°8) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub DemoIE()
    With CreateObject("InternetExplorer.Application")
        .Navigate "https://www.msc.com/usa/help-centre/tools/track-a-shipment"
        .Visible = True
        While .Busy Or .ReadyState < 4:  DoEvents:  Wend
        With .Document
            With .all("ctl00_ctl00_plcMain_plcMain_TrackSearch_txtBolSearch_TextField")
                 .Focus
                 .Value = "TTNU8456994"
            End With
                 .all("ctl00_ctl00_plcMain_plcMain_TrackSearch_hlkSearch").Click
        End With
'            .Quit
    End With
End Sub

Testé sous Seven & IE9 en late binding …

05/12/2015, 18h38
parmi

Excellent Marc-L
J'avais bien cherché un SetFocus, mais n'avais jamais remarqué le Focus...

Merci beaucoup, je vais pouvoir avancer ;)

heu

Bonjour tout les deux

Marc c'est un peu le soucis avec ie en anonyme il faut jérer le focus
tandis qu'en object déclarer ca n'est pas le cas

with createobject("internetexplorer.application")........' focus a gérer

dim ie as object
set ie=createobject("internetexplorer.application")
pas de focus a gérer

j'avais remarqué cela en bossant sur ta discution (contribution sur la boucle d'attente sur le length je ne sais pas si tu t'en souvient

donc : toujours en late binding
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub ImportMSC() Dim IE As Object Dim IEDoc As Object Dim strURL As String Set IE = CreateObject("internetexplorer.application") strURL = "https://www.msc.com/usa/help-centre/tools/track-a-shipment" IE.navigate strURL IE.Visible = True Do: DoEvents:: Loop While IE.readyState <> 4 Or IE.busy Set IEDoc = IE.document With IEDoc .all("ctl00_ctl00_plcMain_plcMain_TrackSearch_txtBolSearch_TextField").Value = "TTNU8456994" .all("ctl00_ctl00_plcMain_plcMain_TrackSearch_hlkSearch").Click End With Set IEDoc = Nothing Set IE = Nothing End Sub
bref le set visiblement change certains parametre
il y a aussi quelques différences de comportement quand on utilise les refrence
dim IE a new internetexplorer
donc conclusion préférer le late binding et declarant l'object

;)

06/12/2015, 18h42
Marc-L

Heu là ‼

Salut Patrick !

Ton code ne fonctionne pas de mon côté sous Seven & IE9 …
Et c'est aussi la raison pour laquelle je ne m'embête pas à déclarer des variables objets inutiles.

Mais peut-être fonctionnera-t-il chez parmi, attendons son retour …
06/12/2015, 19h59
patricktoulon

re

re
bonsoir marc

fonctionne til avec ".focus" en plus?????
06/12/2015, 20h12
Marc-L

Oui, sans souci avec Focus avant Value (cf évènement de l'élément).

Si parmi est comme toi en Windows 8 et IE11, p't'être bien que ton code passera tel quel …
06/12/2015, 21h16
patricktoulon

re

re
non moi c'est IE 10 le11 j'aime pas l'interface de l'inspecteur de document(f12) je narrive pas a m'y faire

oui visiblement ie9 a besoins de plus de precision dans le context que 10 ou 11 on le sais depuis longtemps nous nest ce pas !!
07/12/2015, 14h39
parmi

Patrick, to code ne fonctionne pas ici, au bureau, sous IE9 et Win7
Marc-L, ton code fonctionnait chez moi sous Win 10 et Edge (pas mal certain) sinon ce serait IE11, mais je n'ai pas fait vraiment attention...
07/12/2015, 15h14
Marc-L

Merci parmi. Ce serait intéressant de savoir aussi si le code de Patrick fonctionne ou pas chez toi …
Car selon la version d'IE et de Windows, il peut y avoir des surprises !

Par exemple un code sans souci sous IE9 & Seven ne fonctionnait pas sous Seven et IE10.
Mais ce même code ne posait aucun problème avec IE10 sous Windows 8 !

C'est pour cela que sous Seven je conserve précieusement IE9 pour du pilotage
(utilisation d'un autre navigateur pour surfer sur la Toile) …
07/12/2015, 15h35
parmi

Je vais faire le test ce soir (décalage de ± 6 heures avec vous... Il est 9h30 AM ici)
Je viens de recevoir une notice comme quoi le bureau migre vers IE11 aujourd'hui.
Je vais donc pouvoir faire des tests aussi sous cette version.
07/12/2015, 17h13
parmi

La mise à jour de IE11 a été faite et vos 2 méthodes (Marc-L et Patrick) fonctionnent bien...
Ah... les mystères de l'informatique... :)
07/12/2015, 17h15
patricktoulon

re

re
encore que préférer la methode de marc :elle fonctionne avec tous mais obligé de faire plus de chose le focus en fait partie c'est tout

y compris avec les .all pour capter des input avec IDqui ne fonctionnent pas sous IE 10 ou 11

ou getelementsbyclassname qui fonctionnent mal en ie 9 mais nickel avec ie10 par exemple

donc si tu veux aller plus loin apres dans la disection de la page il te faudra passer avec ma methodes en fait c'est un peu du cas par cas avec ces versions successives de IE et leurs librairies

donc a voir ou tu veux aller avec cette pages apres l'ouverture et le pointage n'est que le debut
07/12/2015, 19h05
Marc-L

parmi, ton code initial fonctionne-t-il sous IE11 ?
07/12/2015, 23h08
parmi

Confirmé, vos 2 codes fonctionnent bien sous IE11 et Win7 ou Win10
Je croyais que c'était Edge qui se lançait, chez moi, mais c'est bien IE11

Et oui, Marc-L, mon code fonctionne maintenant sous IE11 (?!)

Je sens que ça va être rock&roll de travailler avec IE :)
08/12/2015, 00h34
Marc-L

Oui, il faut se méfier selon les versions IE & Windows.

Selon le but recherché, IE est souvent à considérer comme solution de dernier recours …
Pour collecter des données, mieux vaut privilégier une requête voire même utiliser l'objet QueryTable avant IE !
08/12/2015, 01h08
parmi

J'ai utilisé les querytable à plusieurs reprises.
C'est un peu lourd, mais ça fonctionne effectivement bien pour extraire des tables de données.
Ce que j'aime moins, c'est que les sites changent quelquefois les tables, en ajoutent, en enlèvent ce qui cause des mises à jour du code.

Qu'est-ce que tu entends par requête ?
As-tu un exemple ?

Merci à vous deux !
08/12/2015, 02h03
Marc-L

Premier exemple dans la contribution Automatiser l'ouverture d'un fichier compatible Excel depuis le Web (téléchargement),
comparer le code du post #1 (+ la modification du post #8)
avec la requête du post #20 (+ optimisation du post #28 + modification du post #72) …

Second exemple dans la contribution [Pilotage Internet Explorer] Comment attendre la mise à jour d'un élément d'une page web …
Patrick dans le post #4 a partagé deux codes, l'un via IE et le second via une requête …

Troisième exemple dans la discussion Résultat d'une requête Web à rapatrier dans un classeur Excel
commencée avec IE puis basculée sur une requête, longue discussion mais intéressante par les points soulevés
et les astuces révélées !

Un quatrième exemple dans le même genre du précédent
dans la discussion Récupération donnée sur page internet fonction getElementsByClassName …

Un petit dernier pour les longues soirées d'hiver (tabernacle !) dans la discussion Ramener le contenu du content html en vba
commencée elle aussi avec IE puis basculée vers une requête …
08/12/2015, 02h26
parmi

Ça va me faire pas mal de lecture pour demain... On dort au Québec le soir... :)
Merci !
08/12/2015, 19h05
patricktoulon

puré

:mouarf:Bonjour tous les deux
purré marc ca c'est de l'orientaion hein!!!:mouarf:

avec ca si il ne trouve pas son bohneur je mange mon clavier

je m'apercois que le VBA /internet et notre cheval de bataille quand meme, on en a fait quelques unes

c'est assez assez etonnant tout les debut de noel c'est ce sujet et les api windows qui reviennent

Parmi je te souhaite une bonne lecture et fait moi plaisir apporte nous enfin une colle insolvable un truc bien tordu car on commence a s'enuyer :mouarf:

Voir 40 message(s) de cette discussion en une page