Excel et Google Alert via du VBA

Version imprimable

Bonjour tout le monde,

Je possède une base de données personnelle sous Excel qui m’aide à faire une surveillance sur un certain nombre de produit.

Pour vous donner un exemple parlant, j’ai un nom, MR X, associe à un véhicule, un numéro de série et a une immatriculation.
Présentement j’ai un bouton qui me lance automatiquement Chrome et m’amène sur la bonne page de recherche google, là je vois si de nouveau résultat sont là. Ce qui donnerait dans mon exemple: https://www.google.com/search?q=Rena...S/N+%229578%22

Avec presque 200 lignes maintenant, cela devient ingérable. Je pensais donc créer des alertes Google pour surveiller tout ça passivement. Sauf que rentrer 200 recherches à la fois et toutes celles que je vais ajouter dans le futur, ça ne va pas être marrant.
J’ai donc essayé de créer une macro sous vba qui ajouterait automatiquement ma nouvelle ligne a mes recherches Google, j’ai lu que passer par IE serait plus facile car il comprend le vba.

En me basant sur ce tuto (https://qwazerty.developpez.com/tuto...-et-vba-excel/) , j'ai commence a écrire le début du code base sur un autre:
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 31 32 33 34 35 36 37 Sub GoogleAlert() 'This will load a webpage in IE Dim i As Long Dim URL As String Dim IE As Object Dim objElement As Object Dim objCollection As Object 'Create InternetExplorer Object Set IE = CreateObject("InternetExplorer.Application") 'Set IE.Visible = True to make IE visible, or False for IE to run in the background IE.Visible = True 'Define URL URL = "https://www.google.ca/alerts" 'Navigate to URL IE.Navigate URL ' Statusbar let's user know website is loading Application.StatusBar = URL & " is loading. Please wait..." ' Wait while IE loading... 'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop) Do While IE.ReadyState = 4: DoEvents: Loop 'Do While Do Until IE.ReadyState = 4: DoEvents: Loop 'Do Until 'Webpage Loaded Application.StatusBar = URL & " Loaded" 'Unload IE Set IE = Nothing Set objElement = Nothing Set objCollection = Nothing End Sub
Puis me basant sur le tuto j'ai voulut continuer mais je n'ai pas réussit a identifier les éléments de la page que je vais devoir remplir, j’étais partit pour utiliser ça:
Code:

1 2 3 4 5 'On pointe notre Zone de texte Set InputGoogleZoneTexte = IEDoc.all(???) 'On définit le texte que l'on souhaite placer à l'intérieur InputGoogleZoneTexte.Value = var
Merci d'avance,

07/04/2020, 16h20
mfoxy

Peut-être plus simple
Bonjour tintin,

Avec Google tu peu te passer de l'interaction de recherche pour la passer directement tes variable dans l'url.

Si tu regarde ton URL Google après ta recherche Renault laguna

https://www.google.com/search?q=Rena...S/N+%229578%22

Tu remarqueras que ton critère est bien présent après q=

Tu pourrais donc modifier directement cette URL pour le . Navigate de ta macro en affectant la valeur de ta cellule directement après le q=

Exemple
Code:

1 2 3 Marecherche = Mercedes+C220 IE. Navigate "https://www.google.com/search?q=" & Marecherche
Ça t'évitera de manipuler les boutons de recherche Google et une boucle d'attente puisque directement ouvert sur la recherche
07/04/2020, 20h15
Tintin_CA

Bonjour mfoxy,

Déjà merci pour ta réponse.
C'est ce que j'ai fait pour ma première marco, elle battit en fait une url de recherche.

Le problème c'est que ça ne marche pas avec google alert, l'url ne peut pas se bâtir car elle se présente sous cette forme: https://www.google.ca/alerts#1 puis s’incrémente d'une manière que je ne peux pas controler.

T.
07/04/2020, 23h05
mfoxy

Re Tintin,

Je n'ai jms utilisé Google alert.

Je jette un œil demain, dès que je saurais car bcp de boulot avec toute cette histoire de c-19, et reviendrai vers toi dès que possible.
08/04/2020, 08h09
Tintin_CA

Aucun soucis, je comprends parfaitement!

Je vais continuer a travailler dessus de mon cote mais j'ai bien peur que mes compétences soient beaucoup trop limite en VBA pour comprendre ce que je fais (après ya la chance :mrgreen:)

T.

J'ai réussit a mixer 2 morceaux de code pour que ça fasse ce que je veux:

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
31
32
33
Sub GoogleAlert()
'This will load a webpage in IE
    Dim URL As String
    Dim IE As Object
    var = ActiveCell
 
     'initiating a new instance of Internet Explorer and asigning it to objIE
    Set IE = New InternetExplorer
 
    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True
 
    'Define URL
    URL = "https://www.google.ca/alerts"
 
    'Navigate to URL
    IE.navigate URL
 
    ' Statusbar let's user know website is loading
    Application.StatusBar = URL & " is loading. Please wait..."
 
    ' Wait while IE loading...
    'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
    Do While IE.readyState = 4: DoEvents: Loop   'Do While
    Do Until IE.readyState = 4: DoEvents: Loop   'Do Until
 
    IE.document.getElementById("search_box").getElementsByTagName("input")(0).Value = var
    IE.document.all("create_alert").Click
 
End Sub

La prochaine étape maintenant est que je modifie les options, je souhaite modifier la fréquence et la langue qui sont par défaut.

10/04/2020, 20h05
Tintin_CA

J'ai reussit a lui faire ouvrir le bon menu (langage) mais impossible de lui faire changer de langue pour le moment

Code:

IE.document.getElementById(":1t").Click

Je pensais que ça ça marcherai mais visiblement non

Code:

IE.document.getElementById(":h").Click
11/04/2020, 20h43
Tintin_CA

La je dirai pas non a un coup de main de quelqu'un parce que je suis bloque complet, mfoxy ou quelqu'un d'autre ?! :mrgreen:

Bonjour,

Désolé du retour tardif, mais avec le c19, et mes collègues qui tombent comme des mouches, il m'est que très peut possible de faire d'autres dev que pour le boulot.

Mais si tu arrives à "sélectionner le menu dérouleur" tu devrais pouvoir lui attribuer une valeur.

Exemple
Code:

1 2 IE.document.getElementById(":1t").value = "Français"
Si pas possible directement, il te faudra faire un boucle sur chaque élément de cette combo pour sélectionner celle qui t interesse
Code:

1 2 3 4 5 6 Set Elements = Document.getElementById(tonID). getElementsByTagName(le tag name de ta liste) For Each Element In Elements Debug.Print Element.innerText If element. Innertext = "Français" then element.click Next Element