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
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