XL 2016 Ouvrir chrome

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #2

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Août 2018

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #4

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)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Août 2018

• #5

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #6

Re

@Lone-wolf
Tu as installé quoi?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Août 2018

• #7

Re

@Staple1600 : bein...Chrome

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #8

Re

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Août 2018

• #9

Re

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #10

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)

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 6 Août 2018

• #11

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Août 2018

• #12

Re

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 6 Août 2018

• #13

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #14

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 6 Août 2018

• #15

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

 

Vote positif 0 Vote négatif