Problème formule recherche

Bonjour,

J’ai bien besoin d’aide de gens plus expérimenté sur le sujet que moi.
En fait, je tente de faire marcher cette formule pour qu’elle cherche le tracking du colis en fonction du transporteur, et qu’elle mette à jour le tableau Excel en conséquence :
Option Explicit
Sub Test()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Column = 4 Then Exit Sub ’ tester su le double clic est en colonne « D »
Dim IE As Object
Dim s_coderef, s_button As Object
Dim MaPageHtml As Object
'On Error Resume Next
Set IE = CreateObject(« Chrome.Application »)
IE.Visible = True
IE.navigate (« Suivre une lettre, un Colissimo ou un envoi Chronopost - La Poste »)
Do Until IE.ReadyState = 4
DoEvents
Loop
Set MaPageHtml = Chrome.Document
Set s_coderef = MaPageHtml.getElementsByName(« s_coderef »).Item
s_coderef.Value = ActiveCell.Value
Set s_button = MaPageHtml.getElementsByName(« s_button »).Item
s_button.Click
End Sub

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.