Discussion :

[Hexa82]

Bonjour,

Comment puis-je cocher une case dont le code se modifie comme cela une fois cochée ? :
Avant :

Code :

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

<li data-val="001" class=""><span><i></i></span><label>Ain</label></li>

Après :

Code :

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

<li data-val="001" class="selected"><span><i></i></span><label>Ain</label></li>

C'est pour cocher des localisations ici :
http://www.emploi-territorial.fr/accueil/

Merci pour votre aide.

[Marc-L]

Bonjour !

L'élément recherché est un sous-élément d'un autre …
Donc remonter dans sa hiérarchie jusqu'à trouver un élément disposant d'un ID ou d'un nom.
A partir de ce parent, pointer l'élément recherché en développement la hiérarchie via la propriété children par exemple
ou tout autre méthode décrite dans le tutoriel Interaction avec Internet Explorer via VBA Excel …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[Hexa82]

Bonjour Marc et merci pour ce retour rapide.

J'ai essayé de cocher la case de l'ain (dans localisation) mais sans succès.
Précision faite que je suis archi-débutante...

Et je rencontre quelques soucis :

1 - Une erreur "d'objet ou de variable non définie" ici

Code :

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

Set Deptselect = IEDoc.getElementById("dept-select")

Je suppose que la variable "Deptselect " est mal définie dans la déclaration de variable mais je ne voit pas en quoi la changer.

2 - "data-val" est présent 2 fois dans l'ID "dept-select" et évidemment, c'est le second que dont j'ai besoin...
Et je n'ai pas la moindre idée de la manière dont je dois procéder pour le sélectionner.


Merci

Voici le 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
Sub cap_territorial()
 
       Dim url As String, IE As Object
       Dim IEDoc As HTMLDocument
       Dim CocheDept As HTMLInputElement
       Dim Deptselect As HTMLGenericElement
 
       url = "http://www.emploi-territorial.fr/accueil/"
       Set IE = CreateObject("internetexplorer.application")
 
 
    With IE
        .Visible = True
        .Navigate url
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
 
        'On pointe le bouton
        Set Deptselect = IEDoc.getElementById("dept-select")
        CocheDept = Deptselect.Children("data-val")
        Set CocheDept = CocheDept
 
        'On modifie son attribut
        CocheDept.setAttribute "selected", True
 
        'On valide le choix
        .document.getelementsbyname("btn_search")(0).Click
 
 
    End With
End Sub

[patricktoulon]

heu ....

Code :

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

CocheDept = Deptselect.Children("data-val")

heu!!.....quéquecéca!!!!
ce ne serait pas plutot ca

Code :

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

set CocheDept = Deptselect.Children(X)

x represente son index dans la hiérarchie de l'arborescence

[Hexa82]

Oh Patrick, qu'est-ce que je ferais sans toi ???

Merci

[patricktoulon]

mais c'est tellement plus facile comme ca

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
Sub cap_territorial()
    Dim url As String, IE As Object
    Dim IEDoc As Object
    Dim CocheDept As Object
    Dim Deptselect As Object
    url = "http://www.emploi-territorial.fr/accueil/"
    Set IE = CreateObject("internetexplorer.application")
 
    With IE
        .Visible = True
        .Navigate url
        Do: DoEvents: Loop While .readystate <> 4
        Set IEDoc = IE.document
'LES METIERS
        Set myselect1 = IEDoc.getelementsbytagname("select")(0)
        myselect1.Value = "11"
        'ou comme ca
        'myselect1.selectedIndex = 2 ' je selectionne le 3 eme item  "Action économique et développement local"
'LES DEPARTEMENTS
        Set myselect2 = IEDoc.getelementsbytagname("select")(1)
        myselect2.Value = "083"    'je selectionne le var LA VALEUR DE L ITEM
        'ou comme ca
'        myselect2.selectedIndex = 103    ' le 103 eme item de la liste c'est le var
 
        ''On pointe le bouton et On valide le choix
        .document.getelementsbyname("btn_search")(0).Click
 
    End With
End Sub

regarde bien la capture aprend a faire la différence entre l'item et la valeur de l'item


sur ce
bonne nuit moi aller reposer les yeux car moi avoir des forumatrice amatrice ah!!!! gagaga!!!!!!