XL 2016 Ouvrir chrome

[Mimi]

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

 

[Staple1600]

Bonsoir le fil, le forum

A tester

Sub Test_Chromes_Rutilants()
Dim PF_path$, cmdCHR$, strURL$
If Environ("ProgramW6432") = "" Then
PF_path = Environ("ProgramFiles")
Else
PF_path = Environ("ProgramFiles(x86)")
End If
cmdCHR = PF_path & "\Google\Chrome\Application\chrome.exe"
strURL = "https://www.excel-downloads.com"
Shell (cmdCHR & " -url" & strURL)
End Sub

 

[Lone-wolf]

Bonsoir Mimi, Jean Marie 🙂

Sub Ouvre_Chrome()
Dim Navigateur$, Lien$, RetVal

Navigateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe "
Lien = TextBox12.Text
RetVal = Shell(Navigateur & Lien, 1)
End Sub

 

[Staple1600]

Re

@Lone_Wolf
Le path n'est pas forcément C:\Program Files (x86) (selon que l'OS soit en 32 ou 64 bits)
(d'où le test dans le message#2)

 

[Lone-wolf]

Re

@Staple1600

Je l'ai installé pour test sans rien toucher. Et vu (il me semble) que c'est le seul utilisateur, il faut juste changer le chemin.

 

[Staple1600]

Re

@Lone-wolf
Tu as installé quoi?

 

[Lone-wolf]

Re

@Staple1600 : bein...Chrome 😉

 

[Staple1600]

Re

@Lone-wolf
Relis mon message 🙄
Celui où je parle d'OS 😀

 

[Lone-wolf]

Re

@Staple1600 : et toi, relis le message ou je parle de changement. 😛😀

 

[Staple1600]

Re

Moi je parle d'avoir un code générique quelque soit l'OS installé sur le PC.
On ne sait pas si Mimi à un PC avec un Windows 32 ou 64 bits
Mon code permet ne pas devoir s'en soucier.
Mais bon je dis cela, je dis rien

PS: ????
Quel que soit la session ouverte, si le PC est en 32 bits, il en 32 bits
Je ne vois pas ce que vient faire ici la notion d'utilisateur (et le fait d'en changer)

 

[Mimi]

Bonsoir,
Les réponses marchent si j'utilise un seul lien, or comme dans la macro que j'ai mise au début de la discussion le lien internet se trouve dans un textbox et quand je clic sur un commandbutton le lien dans le textbox ouvre chrome.
Merci
mimi

 

[Lone-wolf]

Re

@Mimi: en ce qui concerne la macro de Staple1600, il suffit de changer le lien par TexBox12.Text, oubien c'est compliqué? 🙄

 

[Mimi]

Re,
J'ai mis ceci :

Private Sub CmdWeb_Click()
Dim PF_path$, cmdCHR$, strURL$
If Environ("ProgramW6432") = "" Then
PF_path = Environ("ProgramFiles")
Else
PF_path = Environ("ProgramFiles(x86)")
End If
cmdCHR = PF_path & "\Google\Chrome\Application\chrome.exe"
strURL = TextBox12.Text
Shell (cmdCHR & " -url" & strURL)
End Sub

Sa m'ouvre bien chrome mais pas le lien dans le textbox
Merci Mimi

 

[Staple1600]

Re

@Mimi
Petite question au passage
Quel est ton navigateur par défaut?
Quel navigateur s'ouvre si tu lances cette macro de test?

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink TextBox2.Text, , True
End Sub
Private Sub UserForm_Initialize()
TextBox2 = "https://www.excel-downloads.com"
End Sub

NB: Il faut un CommandButton nommé CommanButton1 dans ton Userform pour faire le test

 

[Mimi]

Re,
Application par défaut chrome, sinon j'ai recopier simplement le texte du commandButton1 et sa a l'air de marché
Merci
Mimi