interagir sur internet avec vba

Version imprimable

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:

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

31/01/2019, 16h05
zenpbb

Bonjour,
Essaie en remplaçant ton Sendkeys par

Code:

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

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

un exemple

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
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
;)

31/01/2019, 21h26
LucWalraf

MERCI

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
31/01/2019, 22h19
patricktoulon

re

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

Encore merci et nouvelle enigme

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:

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

02/02/2019, 13h49
patricktoulon

re

re
bonjour
je viens de tester ton truc ca marche pas

pour la simple et bonne raison que avant de vouloir taper dans le codepostal il faut taper dans la recherche par nom et remplir apres

et en plus tu te melange les pinceaux entre variables string et object

ou du a vu que l'on faisait comme ca

Code:

codepostal = oNav.document.getElementsById("ville_etb")

il y a deux erreurs
c'est pas "codepostal=" mais "Set codepostal=" car c'est un object plus precicément un htmlelement
c'est pas "getElementsById" mais "getElementById" pas de "s" car il est sensé etre unique bien que en pratique certains (webmaster et/ou developpeur) ne respectent pas cela
le "s" c'est pour (getelementsclassname ,getelementsbytagname,getelementsbyname)

voila
maintenant si tu me dis que ca marche ton vieux truc tel que tu l'a coder dans ton post précédant tu es un Magicien en herbe
serieux 15 secondes pour l'attente d'un !!! element et bein..... esperons que tu n'en ai pas une 10aines d'elements a instruire sinon tu y passe la journée :ptdr:

marche pas

J'ai essayé les 2 corrections que tu indiques (Set CodePostal et GetElementby) mais ça ne marche toujours pas ... ?

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
Public Sub LANCEMENT()
'
Dim oNav As SHDocVw.InternetExplorer
Set oNav = New SHDocVw.InternetExplorer
Attente = 5
Dim CodePostal As IHTMLElementCollection
 
' 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()) + Attente
    waitTime = TimeSerial(Hour(Now()), newMinute, newSecond)
    Application.Wait waitTime
 
' Renseigne le département
Set CodePostal = oNav.document.getElementById("ville_etb")
MsgBox (CodePostal.Length)
 
 
 
End Sub

02/02/2019, 15h36
patricktoulon

re

re
parce que c'est protégé
dis toi bien que meme si tu arrive a contourner ca sera toujours a x % bancale
je regarderais ca tout a l'heure je suis sur un autre truc en ce moment