[XL-2007] VBA - Piloter IE - Lien Hypertexte avec ID variable

VBA - Piloter IE - Lien Hypertexte avec ID variable

Bonjour à tous,

J'ai récupéré et adapté une petite procédure permettant de se connecter via log et mdp à une page Web.
Puis la procédure entre un numéro de dossier client provenant d'un fichier Excel dans un champ prévu à cet effet sur la page web, et via un bouton de validation, j'arrive sur le dossier en question.

Jusqu'ici, la macro fonctionne.

Mon souci : je souhaite récupérer tous les commentaires et actions ayant eu lieu sur un dossier.
Ces données sont accessibles via un lien javascript - voir ci-dessous - qui ouvre un pop-up :
Code:

1 2 <a href="javascript:;" class="bleu" id="id5b7">Voir tous les commentaires (<span id="id5c6">3</span>)</a>
Il n'y a donc pas de "name" et l'id change à chaque chargement de ladite page.
Je ne vois donc pas comment cibler le lien ci-dessus, à part de manière peu orthodoxe, par exemple :

Le texte "Voir tous les commentaires" étant unique dans le body.html, le repérer, lire l'id à gauche de ">, et le mettre en variable.

Est-ce faisable d'après-vous ?
(Je n'ai pas joint le code VBA car il fonctionne pour toute la première partie et je ne vois pas quoi coder pour la seconde)

Merci à tous pour vos lectures et contributions.

Au plaisir de vous lire.

Bonjour OlivYeah,

Est-ce que sur ta page la class"bleu" change ou Est-ce toujours la même class?
Car si c'est toujours la même alors passe par un className

Seb

Bonjour Sebphyto,

En effet le class="bleu" ne varie jamais, et ne se retrouve que deux fois dans le code source de la page web.

Merci pour ta réponse, je vais tester !

;)

Bonjour à tous,

Je suis finalement passé par un autre objet plus facilement pointable.
Je joins ici le code qui permet de piloter l'outil sous IE.
Si cela intéresse certains d'entre vous, j'ai commenté le code afin de comprendre ce que chaque action réalise.

Je présente par avance mes excuses aux puristes. J'ai dû utiliser des sendkeys pour piloter un menu déroulant car je n'ai pas trouvé d'autre méthode.
De même, les termes employés dans les commentaires du code ne sont peut-être pas les bons, mais comme je débute, soyez indulgents ;)
Si vous avez des idées ou conseils afin d'épurer le code ci-dessous, je suis preneur ! :P

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
 
 
Sub AttendreIE(IEObject, Optional delay)
 
    'Traitement du temps d'attente sous IE, soit après chargement
    'd'une URL, soit dans l'attente d'un objet (chargement après choix dans
    'liste déroulante par exemple)
 
    If IsMissing(delay) Then delay = 3 ' Attendre 3 secondes par défaut
 
    'Continuer après la pause
    If Not IsMissing(IE) And IsObject(IE) Then
 
        Do While IEObject.Busy
            DoEvents
        Loop
 
        Else
        Application.Wait Time + TimeSerial(0, 0, delay)
 
    End If
 
End Sub
 
Sub Test_SIREN()
 
    Dim IE As InternetExplorer
    Dim IEDoc As Object
    Dim DOCelement As Object
    Dim htmlSelectElem As HTMLSelectElement
    Dim Siren As String
    Dim ReponsesSirenObj 'Tableau d'objets HTML
    Dim TabSirets()
    Dim text As String
    Dim CodePostal As Object
 
    Dim URL_1 As String     'Page de connexion à l'outil
    Dim URL_2 As String     'Page de navigation sur les dossiers clients
    Dim URL_Fin As String   'Page de logout
 
    Dim LogPh As Variant    'Variable identifiant de passe de connexion
    Dim MdpPh As Variant    'Variable mot de passe de connexion
    Dim BsPh As Variant     'Variable propre au n° de dossier client de l'outil utilisé
 
        LogPh = ThisWorkbook.Sheets("Config").Range("D4").Value 'donne la main à l'utilisateur pour renseigner son log
        MdpPh = ThisWorkbook.Sheets("Config").Range("D5").Value 'donne la main à l'utilisateur pour renseigner son mdp
        BsPh = ThisWorkbook.Sheets("BS").Range("C2").Value      'début de la saisie de mes N° clients
 
        URL_1 = ThisWorkbook.Sheets("Config").Range("C7").Value     'URL de la page de connexion à l'outil
        URL_2 = ThisWorkbook.Sheets("Config").Range("C8").Value     'URL de la page relatif aux dossiers clients
        URL_Fin = ThisWorkbook.Sheets("Config").Range("C9").Value   'URL de logout de l'outil
 
        ThisWorkbook.Sheets("BS").Range("F4:F102").ClearContents    'Je vide la page de données rappatriées à chaque nouvelle
                                                                    'utilisation
 
            Set IE = New InternetExplorer   'création de l'application Internet Explorer
 
            IE.Visible = True               'Rendre visible la fenêtre IE
            IE.Navigate URL_1               'Je lance l'URL
 
                'Attente de fin de chargement
                Do Until IE.ReadyState = 4
                DoEvents
                Loop
 
            Set IEDoc = IE.Document 'je définis mon objet IE afin de pouvoir agir dessus
 
            'Login
            Set DOCelement = IEDoc.getElementsByName("j_username").Item 'j_username = nom du champ pour entrer le log
            DOCelement.Value = LogPh                                    'Voir le code source de la page web
 
            'password
            Set DOCelement = IEDoc.getElementsByName("j_password").Item 'j_password = nom du champ pour entrer le mdp
            DOCelement.Value = MdpPh                                    'Voir le code source de la page web
            DOCelement.Select
 
            'connexion
            Set DOCelement = IEDoc.Forms(0) 'Validation des Id de connexion via un bouton valider sur la page
            DOCelement.submit
 
            Call AttendreIE(IE) 'attente du chargement de la page après connexion
 
            ThisWorkbook.Sheets("BS").Range("D4").Select 'Je sélectionne mle 1er N° de dossier client dans ma feuille
 
                Do While ActiveCell <> ""   'Temps que la cellule de ma colonne n'est pas vide, je continue de parcourir mes N°
 
                    IE.Navigate URL_2
 
                    Call AttendreIE(IE)
 
 
                    'Liste déroulante
                    Set htmlSelectElem = IEDoc.all("TypeClientPanel:clientType") 'Sélection de la liste déroulante par son name
                    htmlSelectElem.setActive
 
                    'htmlSelectElem.selectedIndex = 2
                    'Se deplacer de 2 elements dans le selecteur en appellant la methode onchange() du selecteur automatiquement
                    'Simulation d'appui sur les fleches claviere
 
                    htmlSelectElem.Focus
                    SendKeys "{DOWN}", True
 
                    Call AttendreIE(IE)
 
                    htmlSelectElem.Focus
                    SendKeys "{DOWN}", True
 
                    Call AttendreIE(IE)
 
                    Set sirenElt = IEDoc.all("LieuConsoPanel:apeBlock:client.contactConsommation.siren")
                    'Siren = ThisWorkbook.Sheets("BS").Range("B2").Value
                    sirenElt.Focus
 
                    'J'entre un à un les chiffres de mon N° client sans quoi le chargement ne s'effectue pas
                    For t = 1 To Len(ActiveCell): SendKeys Mid(ActiveCell, t, 1): Next
                    SendKeys "{TAB}", True 'la tabulation valide le numéro, charge des données et les affiche dans un encart ajax
 
                    Call AttendreIE(IE)
 
                    Set CodePostal = IEDoc.all("LieuConsoPanel:site.adresseConsommation.codePostal")
                    'CodePostal.focus
 
                        If CodePostal.Value = "" Then
 
                            Set ReponsesSirenObjs = IEDoc.all("LieuConsoPanel:selectionEntrepriseForm:selectionEntrepriseContainer:listEtablissements")
 
                            ReDim TabSirets(ReponsesSirenObjs.Length - 1)
 
                            For t = 0 To ReponsesSirenObjs.Length - 1
                            TabSirets(t) = ReponsesSirenObjs(t).Value
                            Next
 
                            'MsgBox Join(TabSirets, ";")
                            ActiveCell.Offset(0, 2) = Join(TabSirets, ";")
 
 
                        End If
 
                    ActiveCell.Offset(1, 0).Select
 
                Loop
 
    IE.Navigate URL_Fin
    AttendreIE (IE)
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
 
    MsgBox ("TRAITEMENT TERMINE")
 
End Sub