Bonjour
J'aimerai choisir dans une liste déroulante d'un site web une valeur parmi d'autres, je n'est aucune information sur son numéro d'index
j'ai commencé par ce code :

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
37
38
39
40
41
42
43
44
45
46
Sub SAISIE()
 
   Dim IE As Object
   Dim usrName As String: usrName = "XXXX"
   Dim usrPassword As String: usrPassword = "yyyyy"
   Dim Site As String
    Dim FldSite
 
   Site = Range("I1").Value
 
    Set IE = New InternetExplorer
 
    With IE
        .navigate "http://........"
        .Visible = True
        Do While .Busy: DoEvents: Loop    'waiting browser not busy
        Do While .readyState <> 4: DoEvents: Loop 'Waiting for Document Ready
    End With
 
        Set fldUsrName = IE.document.getElementsByName("login")
        Set fldUsrPassword = IE.document.getElementsByName("password")
        Set btnSubmit = IE.document.getElementsByTagName("button")
 
 
        If (fldUsrName.Length > 0) Then
            'MsgBox (fldUsrName(0).GetAttribute("value"))
            Call fldUsrName(0).setAttribute("value", usrName)
            Call fldUsrPassword(0).setAttribute("value", usrPassword)
 
            btnSubmit(0).Click
        End If
 
IE.Visible = False
 
   With IE
        .navigate "http://................."
        .Visible = True
        Do While .Busy: DoEvents: Loop    'waiting browser not busy
        Do While .readyState <> 4: DoEvents: Loop  'Waiting for Document Ready
    End With
 
   Set FldSite = IE.document.getElementById("select2-form-site-container")
 
FldSite.Value = Site
 
End Sub
Voici le code du site
Code html : Sélectionner tout - Visualiser dans une fenêtre à part
<span class="select2-selection select2-selection--single" role="combobox" aria-autocomplete="list" aria-haspopup="true" aria-expanded="false" tabindex="0" aria-labelledby="select2-form-classe-container"><span class="select2-selection__rendered" id="select2-form-classe-container"><span class="select2-selection__placeholder">Selectionner une classe</span></span><span class="select2-selection__arrow" role="presentation"><b role="presentation"></b></span></span>

vers la fin j’obtiens l'erreur suivant :
Run time error '438'
Object doesn't support this property or method

Je vous remercie de me corriger le code
merci .