Discussion :

[LucWalraf]

Bonjour,

J'essaye de faire une macro excel vba pour lancer la recherche d'une page d'entreprise sur le site Societe.com à partir de son numéro de SIREN.

J'arrive à aller sur la page de recherche du site Societe.com et à renseigner le numéro de SIREN .... mais pas à lancer la recherche. Code ci-dessous.
La commande [With CreateObject("wscript.shell"): .SendKeys "{ENTER}": End With] ne marche pas.

Si quelqu'un peut m'aider : merci d'avance !

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
Public Sub SOCIETE()
' Recherche la page societe.com d'une entreprise à partir de son numéro de SIREN
 
Dim oNav As SHDocVw.InternetExplorer
Dim oDoc As MSHTML.HTMLDocument
Set oNav = New SHDocVw.InternetExplorer
NumSIREN = "831267992"
 
        ' Va sur la page recherche de societe.com
        URLcible = "https://www.societe.com/cgi-bin/recherche"
        oNav.navigate URLcible
        oNav.Visible = True
 
        ' Attend le chargement de la page
        Do Until oNav.readyState = READYSTATE_COMPLETE
            DoEvents
        Loop
 
        ' Renseigne le numéro de  SIREN
        With oNav.document.getElementById("entreprncs")
        .Value = NumSIREN
        .Focus
        End With
 
        ' Lance la recherche
        With CreateObject("wscript.shell"): .SendKeys "{ENTER}": End With
 
End Sub

[zenpbb]

Bonjour,
Essaie en remplaçant ton Sendkeys par

Code :

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

oNav.document.getElementById("recherche_entrep1").submit

[patricktoulon]

bonjour
a ce que je vois encore c'est un exemple de code qui date de jerusalem

un exemple

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
Public Sub SOCIETE()
' Recherche la page societe.com d'une entreprise à partir de son numéro de SIREN
    Dim oNav As Object
    Set oNav = CreateObject("internetexplorer.application")
    NumSIREN = "831267992"
    delay = 1000
    With oNav
        URLcible = "https://www.societe.com/cgi-bin/recherche"
        .navigate URLcible    ' Va sur la page recherche de societe.com
        '.Visible = True    'application IE visible(facultatif)
        Do: DoEvents: Loop While .readyState <> 4    ' Attend le chargement de la page
        .document.getelementbyid("input_search").Value = NumSIREN    ' Renseigne le numéro de  SIREN
        .document.getelementbyid("buttsearch").Click    ' submit
        Do: DoEvents: x = x + 0.5: Loop While .busy Or .locationurl = URLcible Or x = delay
        If x < delay Then
            Do: DoEvents: Loop While .document.getelementbyid("company_identity") Is Nothing
 
            Set descriptif = .document.getelementbyid("presentation")
 
            Set renseignement = .document.getelementbyid("renseignement")
            renseignement.Focus
            MsgBox descriptif.innertext
            MsgBox Replace(renseignement.innertext, vbCrLf & vbCrLf, vbCrLf)
        Else
            MsgBox "delay depassé ca rame aujourd'hui revenez plus tard"
        End If
        .Quit
    End With
 
End Sub

il faut que tu comprenne que le site web te redirige vers une autre page l'ors du clique sur rechercher
il te faut donc gerer une nouvelle fois le redy mais cette fois ci par raport a la propriété locationurl
il te faut aussi par securité gerer l'attent par un indice valable a savoir par exemple l'existance d'un element qui n'y ai pas au depart du genre l'element id("company_identity") qui constitue le titre des donnée de l'entreprise
de plus sur certaine gestion d'attente il te faut limiter un delay pour ne pas etre bloqué, et pour ce site plutot 2 fois qu'une
bref maintenant tu sais

[LucWalraf]

Bonsoir, oui, merci, ça marche !
Et merci pour les explications sur la temporisation : utile.

Une question : pourquoi la commande [ .Click] que tu m'as indiquée marche et pas SENDKEY que j'avais utilisée ? Quelles sont les différences entre les 2 ?

Et ça marche aussi avec la commande [.submit] ?

Encore merci pour ton aide. Luc

[patricktoulon]

re
sendkeys fonctionne pas car la protection antirobot "onwindows" est plus performante sur ce site
avec un peu de temps j'arriverais a la déjouer mais runner le click ou le submit est mieux dans tout les cas de figures ce qui est norlement plus difficile avec la protection onwindow de google
quand tu a une page web a gérer par robot avant de te lancer dans le codage regarde bien les balises script dans le head et body du document de la page web ca te donne le depart et une idée de la la facon ou methode que tu va choisir de coder ton robot(vba ou autre)pour sa manipulation
je sais des fois c'est pas de la tarte meme avec les lien des script on arrive pas a voir le code des scripts il faut tourner virer mais avec un peu de patience on y arrive

[LucWalraf]

Encore merci pour tes précisions - vraiment utiles.

Je continue tant que ça marche ;-) :
la vieille routine de Jerusalem (moi j'aime bien les vieux trucs qui marchent) plante sur le code ci-dessous.
J'ai l'impression qu'il n'arrive pas à rédupérer l'ID mentionnée sur la page mentionnée (qui existe bien pourtant).
C'est parce qu'il y a un pb d'évitement des robots sur la page ?

Bon weekend. Luc


PS : oui, d'accord, les temporisations sont gérées de manière pas très élégantes dans mon exemple ;-)

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 Macro1()
'
 
Dim oNav As SHDocVw.InternetExplorer
Set oNav = New SHDocVw.InternetExplorer
 
' Ouvre la page recherche
URLcible = "https://enseignement-catholique.fr/repertoire-de-l-enseignement-catholique-rechercher-etablissement/"
oNav.navigate URLcible
oNav.Visible = True
 
        ' Attend le chargement de la page
        Do Until oNav.readyState = READYSTATE_COMPLETE
            DoEvents
        Loop
 
        ' Temporise le chargement de la page
        newMinute = Minute(Now())
        newSecond = Second(Now()) + 15
        waitTime = TimeSerial(Hour(Now()), newMinute, newSecond)
        Application.Wait waitTime
 
' Renseigne le département
CodePostal = oNav.document.getElementsById("ville_etb")
MsgBox (CodePostal.Length)
 
 
 
End Sub