Bonjour
Je cherche à remplir le formulaire de recherche avancée des pages jaunes à partir d'un formulaire access.
Auparavant c'était simple, car il y avait un lien direct.
Maintenant ce lien est caché et crypté.

Je dois donc cliquer sur un lien "recherche avancée" dans la page mais je ne sais pas faire.

Voici les portions d'HTML :

Ligne 137
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
<a href="#null" class=" aTag_INFO idTag_PDS-SHE-RECH-DETAILLEE" data-pjlienbrouille="{url:'#aHR0cDovL3d3dy5wYWdlc2phdW5lcy5mci9pbG8vY2hhbmdlckZvcm11bGFpcmVBamF4LmRvP3R5cGVOb3V2ZWF1Rm9ybXVsYWlyZUFqYXg9WUVTX0RFVEFJTExF'}"><span>Recherche d&eacute;taill&eacute;e</span>
Ligne 208
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
<li class="navConnectItem">
                <a data-pjlienbrouille="{url:'#aHR0cDovL3d3dy5wYWdlc2phdW5lcy5mci9pbG8vbG9naW4uZG8='}" href="#null"
Et voici mon 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
 
Public Function PagesJaunesAvanceSSNom(strNOMVOIE As String, strVille As String)
    Dim strURL As String
    Dim ie As Object
 
    strURL = "http://www.pagesjaunes.fr"
 
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate strURL
    ie.Visible = True
    ie.MenuBar = False
    ie.StatusBar = False
    ie.Toolbar = False
    ie.Width = 800  'Largeur
    ie.Height = 900 ' Hauteur
    ie.Top = 0 'point d'origine
    ie.Left = 550
 
    Do While ie.ReadyState <> 4
        DoEvents
    Loop
    'Wend
    ie.Document.getElementById("idTag_RECHERCHE-DETAILLEE").submit
 
    Do While ie.ReadyState <> 4
        DoEvents
    Loop
 
    ie.Document.All("Adresse").Value = strNOMVOIE
    ie.Document.All("Localite").Value = strVille
    ie.Document.Forms(0).submit
 
End Function
Je ne sais pas faire.
Pourriez vous m'aidez ?
Merci d'avance