Discussion :

[parmi]

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 :

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

[Marc-L]

Bonjour !

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

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

[parmi]

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

Merci beaucoup, je vais pouvoir avancer

[patricktoulon]

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 :

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

[Marc-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 …

[patricktoulon]

re
bonsoir marc

fonctionne til avec ".focus" en plus?????