Ouvrir Google Chrome VBA
Bonjour,
J'ai réussi à ouvrir Internet Explorer à l'aide VBA mais j'ai remarqué que j'ai un problème d'accent (j'ai des nom de ville avec des accents et ils ne s'affichent pas sur ma carte). Ce problème est lié à Internet Explorer car quand je copie le même lien dans Google Chrome cela marche, c'est pour ça que j'aimerais bien ouvrir Google Chrome à la place.
Est-ce que vous savez comment on peut faire ?
Merci d'avance.
Bonsoir,
Et avec Firefox ?
Si tu arrives avec Internet explorer...Un fichier à joindre ? ou au moins le code vba serait bienvenue pour avoir de l'aide
Cdt
Circus
Oui, avec Firefox, ça marche aussi.
Voici le code pour Internet Explorer, j'aimerais soit l'ouvrir avec Firefox soit avec Google Chrome
Public Sub Internet (ByVal url As String)
Dim refIE As InternetExplorer
Set refIE = New InternetExplorer
refIE.navigate url
refIE.Visible = True
Set refIE = Nothing
End Sub
Cela me dépasse...par contre aprês avoir vu ton code et une petit recherche sur le net j'ai trouvé cela ( légérement adapté ^^)
Sub firefox()
Dim RetVal
' Lance Firefox sur une URL spécifiée
RetVal = _
Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://forum.excel-pratique.com/", 1)
End Sub
peut-être en remplacent le lien par une variable qui contient le lien ? par contre avec les "" mettre une variable je ne sais pas faire
Cdt
Circus
Bonjour,
Pour ouvrir internet à partir d'Excel avec le navigateur par défaut :
#If Win64 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Sub Ouvrir()
Dim Fichier As String
Fichier = "https://www.google.fr/?gfe_rd=cr&ei=MXqeVs23BrSx8wexsbywCw&gws_rd=ssl#q=" & recherche
ShellExecute 0, "", Fichier, "", "", 0
End Sub
appliquer la macro ouvrir sur un bouton.
Merci pour l'aide.