Bonjour
Voici 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
 
    Dim recherche As String
    recherche = Me.Reference_Fab & Me.Reference_Produit
    Dim chromeApp As Object
    Dim url As String
 
    ' Créer une instance de l'application Chrome
    On Error Resume Next
    Set chromeApp = GetObject(, "Chrome.Application")
   If chromeApp Is Nothing Then
       MsgBox "Google Chrome n'est pas en cours d'exécution.", vbExclamation
        Exit Sub
    End If
    On Error GoTo 0
 
    ' Définir l'URL de recherche Google avec le terme de recherche
    recherche = recherche
    url = "https://www.google.com/search?q=" & recherche
 
    ' Ouvrir un nouvel onglet et naviguer vers l'URL de recherche
    chromeApp.NewTab (url)
Mon souci est que je ne passe pas le test sur Chrome ouvert car il le trouve fermer
Quelqu'un a t il une idée ?
Merci de vos retours