Problème de navigation sur internet avec une macro VBA

**totodobrazil** · 09/04/2021, 15h12

Bonjour à tous,

Voila je viens de créer une macro me permettant d'effectuer une recherche sur société.com.

En revanche j'aimerai simuler un clique sur le premier lien avec une macro par Exemple,

Voici mon code actuel qui fonctionne mais je n'arrive pas à développer la suite du code pour sélectionner et cliquer sur le premier choix afin d'obtenir la page de la société et pouvoir en extraire les information nécessaire (pour l'extraction d'information j'ai réussi à construire 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub WaitIE(ie As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
 
 
Sub RechercheVBAExcel()
 
'Déclaration des variables
Dim ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputSoceieteZoneTexte As HTMLInputElement
Dim VBAExcel As String
Dim HtmlElementStandard As HTMLInputElement
 
 
VBAExcel = "Auchan" 'Cells(1, 1)
'Chargement d'une page Web Google
ie.navigate "www.societe.com"
 
'Affichage de la fenêtre IE
ie.Visible = True
'On attend le chargement complet de la page
WaitIE ie
 
'On pointe le membre Document
Set IEDoc = ie.Document
 
'On pointe notre Zone de texte
Set InputSocieteZoneTexte = IEDoc.all("input_search")
 
'On définit le texte que l'on souhaite placer à l'intérieur
InputSocieteZoneTexte.Value = "auchan" 'Cells(1, 1)
 
WaitIE ie
InputSocieteZoneTexte.Select
 
SendKeys "{ENTER}", True
 
'On attend la fin de la recherche
WaitIE ie
 
 'On libère les variables
   Set ie = Nothing
   Set IEDoc = Nothing
 
End Sub

Serait t'il possible de m'aider ? Je suis débutant ^^

En vous remerciant par avance

Cordialement

**Rino702** · 09/04/2021, 21h41

Bonjour,

Remplace les lignes suivantes:

Code :

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

1
2
3
4
5
6
 
InputSocieteZoneTexte.Select
 
SendKeys "{ENTER}", True
 
'On attend la fin de la recherche

par la ligne:

Code :

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

1
2
 
IEDoc.all("buttsearch").Click

**totodobrazil** · 10/04/2021, 09h07

Bonjour, Bonjour

Merci pour votre réponse ainsi que pour le temps accordé,

Je viens d'effectuer le changement en effet mais le résultat reste identique.

Ma recherche Auchan s'effectue sur le site societe.com, je suis toujours bloqué sur cet onglet, https://www.societe.com/cgi-bin/search?champs=auchan

Je souhaiterai que ma macro simule un clique sur le premier choix en sélection afin qu'il puisse me donner accès à cet page, https://www.societe.com/societe/ass-...444787600.html

Deuxième point bloquant, sur la macro ci-dessous (l'extraction d'information), je dois rentrer manuellement la valeur de ma variable site web = le dernier URL de la page

Comment faire pour que la valeur de ma variable site web actuelle prenne la valeur de l'url de la dernière recherche du site web directement ?

Ma macro qui permet l'extraction de donnée est la suivante :

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
34
35
36
Sub Get_Web_Data()

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim categorie As Variant


' Website to go to.
website = "https://www.societe.com/societe/ass-commerc-galerie-auchan-longuenesse-444787600.html"
'(J'aimerai que cette valeur se trouve automatiquement)  l'url de la dernière recherche du site web  https://www.societe.com/societe/ass-...444787600.html


' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET", website, False

' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
categorie = html.getElementsByClassName("FicheDonnees__donneeGenerique").Item(2).innerText
   
' Output the categorie into a Cells.
Cells(1, 1) = categorie

End Sub

Je viens de trouver cette fonction sur internet, pensez-vous que cela peut m'aider ? Si oui, comment l'intégrer dans mon code ?

Code :

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

1
2
3
4
5
6
7
Function pageHTML(url As String) As String
    With CreateObject("WINHTTP.WinHTTPRequest.5.1")
        .Open "GET", url, False
        .send
        pageHTML = .responseText
    End With
End Function

En vous remerciant par avance,

,
Cordialement

**Qwazerty** · 10/04/2021, 14h49

Salut

Un peu de lecture

Les exemples ne sont plus très actuels mais ça devrait t'apporter de l'aide pour la syntaxe, du moins je l'espère.

Je pense que dans ton cas, le mieu sera de partir du <Div> dont l'ID est search pour ensuite rejoindre l'éléméent <a> qui contient la réf vers la page que tu souhaites afficher. A tester le . click de cette élément ou de récupérer le contenu de son href pour l'utiliser avec IE.Navigate.

Je te souhaite une bonne journée
++
Qwaz

**totodobrazil** · 12/04/2021, 21h07

Bonjour, Bonjour,

Encore une fois Un Grand Merci pour vos réponses,

J'ai lu attentivement ce tuto,

Par contre je n'arrive pas à récupérer les éléments, (J'ai passé mon dimanche et mon lundi à chercher avant de vous redemander de l'aide ^^).

En effet je n'ai pas id pour utiliser HtmlAnchorElementnotifié dans les exemples du tuto. J'ai donc essayé de me débrouiller autrement mais cela bloque...

Voici la partie concernée (le href que j'essaye de récupérer afin de naviguer dans la nouvelle page que j'essaye d'atteindre) :

Code html :

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

1
2
3
4
5
6
7
8
<a class="txt-no-underline" href="/societe/ass-commercants-ctre-commercial-auchan-407769538.html">
        <div class="resultat"><p class="iconsearch"><i class="icon-commerical-building"></i></p>
        <p>
            <span class="Link">ASS COMMERCANTS CTRE COMMERCIAL AUCHAN</span> <br>
            Autres organisations fonctionnant par adhésion volontaire
            (9499Z),
            57280 SEMECOURT
            </p><p class="chevron">&gt;</p></div> </a>

Pour rappel ma macro actuel est :

Code :

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

1
2
3
4
5
 Sub WaitIE(ie As InternetExplorer)   'On boucle tant que la page n'est pas totalement chargée
   Do Until ie.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

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
34
35
Sub RechercheVBAExcel()'Déclaration des variables
Dim ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputSoceieteZoneTexte As HTMLInputElement
Dim VBAExcel As String
 
 
VBAExcel = Cells(1, 1)
   'Chargement d'une page Web Google
   ie.navigate "www.societe.com"
 
   'Affichage de la fenêtre IE
   ie.Visible = True
      'On attend le chargement complet de la page
   WaitIE ie
 
   'On pointe le membre Document
   Set IEDoc = ie.Document
 
   'On pointe notre Zone de texte
   Set InputSocieteZoneTexte = IEDoc.all("input_search")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputSocieteZoneTexte.Value = Cells(1, 1)
 
 IEDoc.all("buttsearch").Click
 
    WaitIE ie
 
 'On attend la fin de la recherche
  'On libère les variables
  Set ie = Nothing
  Set IEDoc = Nothing
 
End Sub

Pour récupérer le href j'ai utilisé :

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
34
Sub Get_Web_Data()' TeachExcel.com
 
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim Website As String
Dim href As Variant
 
' Website to go to.
Website = "https://www.societe.com/cgi-bin/search?champs=auchan"
 
' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")
 
' Where to go and how to go there - probably don't need to change this.
request.Open "GET", Website, False
 
' Send the request for the webpage.
request.send
 
 
' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)
 
' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response
 
' Get the price from the specified element on the page.
href = html.getElementsByTagName("a")(60).href
 
' Output into a message box.
MsgBox href
 
End Sub

Je n'arrive pas à synchroniser mes deux macros, quand je la met à la suite comme cela il va me cherche le href de la première page…

Code :

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

1
2
3
4
5
Sub WaitIE(ie As InternetExplorer)   'On boucle tant que la page n'est pas totalement chargée
   Do Until ie.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

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
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
Sub RechercheVBAExcel()
'Déclaration des variables
Dim ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputSoceieteZoneTexte As HTMLInputElement
Dim VBAExcel As String
 
 
VBAExcel = Cells(1, 1)
   'Chargement d'une page Web Google
   ie.Navigate1 "www.societe.com"
 
   'Affichage de la fenêtre IE
   ie.Visible = True
      'On attend le chargement complet de la page
   WaitIE ie
 
   'On pointe le membre Document
   Set IEDoc = ie.Document
 
   'On pointe notre Zone de texte
   Set InputSocieteZoneTexte = IEDoc.all("input_search")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputSocieteZoneTexte.Value = Cells(1, 1)
 
IEDoc.all("buttsearch").Click
   'On attend la fin de la recherche
  'On libère les variables
   WaitIE ie
 
Dim request As Object
Dim response As String
Dim href As Variant
Dim Website As Variant
 
Website = IEDoc.url
 
 
'Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")
' Where to go and how to go there - probably don't need to change this.
request.Open "GET", Website, False
 WaitIE ie
' Send the request for the webpage.
request.send
 
 
' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)
' Put the webpage into an html object to make data references easier.
IEDoc.body.innerHTML = response
 
 
Set IEDoc = ie.Document
 
 
href = IEDoc.getElementsByTagName("a")(60).href
 
 
' Output the price into a message box.
MsgBox href
  Set ie = Nothing
  Set IEDoc = Nothing
 
 
End Sub

En continuant mes recherches je suis tombé sur cela ça fonctionne presque le soucis c'est que ce code s'applique sur les liens de ma première page et non ma seconde….

Code :

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

1
2
3
4
5
 Dim Cible As HTMLAnchorElement
 
    Set Cible = IEDoc.Links(60)
    '  about:/societe/ass-commerc-galerie-auchan-longuenesse-444787600.html
    Cible.Click

Egalement si vous pourriez m'indiquer comment naviguer avec ce Href une fois récupéré,
En vous remerciant par avance,

Cordialement

**totodobrazil** · 20/04/2021, 11h01

Bonjour à tous,

Je suis toujours bloqué sur cette macro malgré de multiple recherche

Pourriez-vous m'aider ?

En vous remerciant par avance,

Cordialement

**Qwazerty** · 21/04/2021, 23h04

Salut

Je pense que tu mélanges deux approches différentes, la manipulation d'IE via VBA et les requêtes HTML via VBA. C'est possible de le faire mais dans les deux cas, la partie recherche de résultat n'a pas besoin de passer par le renseignement du champs de recherche. Il faut construire directement l'URL. Et pour débuter, il me semble préférable de te cantonner à l'une des deux approches.

Je ne peux pas faire d'essai, mon IE ne veut pas chercher la page, problème de "RC4".... Il faudrait que je fasse des mises à jour et j'ai la flemme.

Je te met une ébauche de code, qui je l'espère, te permettra de mieux appréhender le travail que tu vas devoir faire.

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
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
Sub RechercheVBAExcel()
'Déclaration des variables
Dim ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim DivSearch As HTMLDivElement
Dim iDivChild As Integer
 
 
    'Il faudra adapter et tout vérifier je ne peux faire aucun test, ni placer des espions pour regarder les contenus...
 
    'Chargement de la page contenant les résultats de la recherche
    ie.navigate "https://www.societe.com/cgi-bin/search?champs=" & "Auchan" 'Feuil1.Cells(x, 1)
 
    'Affichage de la fenêtre IE
    ie.Visible = True
       'On attend le chargement complet de la page
    WaitIE ie
 
    'On pointe le membre Document
    Set IEDoc = ie.Document
 
' Inutile puisque'on pointe directement la page contenant le résultat de la recherche
'   'On pointe notre Zone de texte
'   Set InputSocieteZoneTexte = IEDoc.all("input_search")
'
'   'On définit le texte que l'on souhaite placer à l'intérieur
'   InputSocieteZoneTexte.Value = Cells(1, 1)
'
'IEDoc.all("buttsearch").Click
'   'On attend la fin de la recherche
'  'On libère les variables
'   WaitIE ie
 
    'On pointe le DIv dont l'id est "search"
    On Error Resume Next
    Set DivSearch = IEDoc.all("search")
    On Error GoTo 0
 
    'On regarde si l'élément existe bien
    If Not DivSearch Is Nothing Then
        'On pointe le Div contenant les <a>
        Set DivSearch = DivSearch.ChildNodes(1)
        'On boucle sur les <a>
        'Regardes dans le tuto les différente solution de boucle
 
            'Pour chaque élément on prend le href, il y a des exemples il me semble
 
            'Le href peut-être stocké dans un tableau sur Excel Ou dans un tableau virtuel,
            'dans ces deux cas, les liens pourront être cherché ultérieurement par une autre macro qu récupèrera les données recherchées
            'Ou chargé dans un autre document ie avec un bout de code (ou une autre macro) qui récupèrera les données au fur  et à mesure
 
        'Fin de la boucle
    End If
 
  Set ie = Nothing
  Set IEDoc = Nothing
 
 
End Sub

Je ne suis pas très présent sur le site en ce moment mais j’essaierai de repasser pour voir l'évolution.

Je te souhaite une bonne soirée
Qwaz

**Pierre Fauconnier** · 22/04/2021, 09h34

Salut.

Je me pose toujours la question de la finalité et surtout du choix de l'outil ^^

**totodobrazil** · 30/04/2021, 15h21

Envoyé par Pierre Fauconnier

Salut.

Je me pose toujours la question de la finalité et surtout du choix de l'outil ^^

Bonjour à tous,

Merci Quazerty pour ta solution,

En effet j'ai dû l'adapter mais actuellement j'ai pu obtenir le résultat cherché,

Je travaille en gestion de patrimoine et souvent pour cibler et comprendre les dépenses de mes clients j'ai beaucoup de manipulation à faire,

Bien à vous,

**Pierre Fauconnier** · 30/04/2021, 21h08

Envoyé par totodobrazil

[...]
Je travaille en gestion de patrimoine et souvent pour cibler et comprendre les dépenses de mes clients j'ai beaucoup de manipulation à faire[...]

Ca me fait sourire et à la fois, ça me fait un peu peur, ce genre de phrase

Problème de navigation sur internet avec une macro VBA

VBA

Discussions similaires

Partager

Partager