Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

A tester
VB:
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

XLDnaute Barbatruc
Bonsoir Mimi, Jean Marie

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

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

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

Mimi

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

XLDnaute Barbatruc
Re

@Mimi
Petite question au passage
Quel est ton navigateur par défaut?
Quel navigateur s'ouvre si tu lances cette macro de test?
VB:
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…