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