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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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,