Discussion :

[fdalyon]

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

[Domi2]

Bonjour,

Quel est le but final de l'opération ?

Domi2

[fdalyon]

Le but c'est d'obtenir un numéro de teléphone pour la ou les adresses (stockées dans une table, et dont il nous manque le N° de téléphone) que l'on envoie dans le formulaire de recherche avancée des pages jaunes par le biais du code VBA fourni (extrait) :

Code :

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

1
2
3
 
    ie.Document.All("Adresse").Value = strNOMVOIE
    ie.Document.All("Localite").Value = strVille

Adresse est le nom du controle dans la recherche avancée des pages jaunes
Localite est le nom du controle dans la recherche avancée.

Le problème c'est que le site cache l'URL de cette page avancée et qu'on ne peut pas la trouver dans le code source de la page car elle est cryptée (les deux premières citations de mon premier message).

Donc je pense à contourner le problème en cliquant sur le lien "recherche avancée"

[Invité]

Bonjour

Si tu lis la charte des pages jaunes tu peux lire :

Afin de respecter la vie privée des abonnés, de lutter contre le spam et la collecte illicite de données à caractère personnel, l'accès au service de pagesjaunes.fr est limité à une utilisation manuelle et tout usage de robot est interdit. Sont notamment illégales l'utilisation automatique du service aux fins de constitutions de bases de données commerciales et de prospection automatisée d'adresses email.

En accédant au présent site, vous reconnaissez que les données le composant sont légalement protégées et, conformément aux dispositions de la loi du 1er juillet 1998 précitée, vous vous interdisez notamment d'extraire, réutiliser, stocker, reproduire, représenter ou conserver, directement ou indirectement, sur un support quelconque, par tout moyen et sous toute forme que ce soit, tout ou partie qualitativement ou quantitativement substantielle du site auquel vous accédez ainsi que d'en faire l'extraction ou la réutilisation répétée et systématique de parties qualitativement et quantitativement non substantielles lorsque ces opérations excèdent manifestement les conditions d'utilisation normale.

C'est sur cette page : http://www.pagesjaunes.fr/plusdeserv...ntionLegale.do

Donc ce que tu demandes est interdit, et donc je ferme cette discussion.

Philippe