XL 2016 Ouvrir chrome

Mimi

XLDnaute Occasionnel
Bonjour à tous,
Voila avec le lien dans un textbox j'ouvre la page internet :

Private Sub CmdWeb_Click()
Dim IE As Object
Dim site$

On Error GoTo fin
Set IE = CreateObject("InternetExplorer.Application")
site = TextBox12.Text

IE.Visible = True

IE.Navigate site

Do Until IE.ReadyState = 2
DoEvents
Loop
IE.Quit
Set IE = Nothing
fin:
Exit Sub
End Sub

Ce que je recherche c'est de faire la même chose avec google chrome
D'avance merci
Mimi
 

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390