Laura souhaite inclure un lien hypertexte dans une feuille de calcul. Cependant, elle aimerait que le lien hypertexte « force » la cible de l’URL à s’afficher dans un navigateur particulier. Par exemple, elle aimerait que le lien hypertexte spécifie en quelque sorte que la cible soit ouverte dans Internet Explorer.

Il n’y a aucun moyen de faire cela dans Excel; un lien hypertexte dans une feuille de calcul, lorsqu’il est cliqué, dépend du navigateur par défaut du système utilisé. Vous pouvez cependant essayer une solution de contournement: vous pouvez créer une macro qui ouvre réellement une adresse cible à l’aide d’un navigateur spécifique.

Par exemple, considérez la macro suivante. Il ouvre automatiquement une instance d’Internet Explorer et ouvre un site Web dans ce navigateur:

Sub LaunchIE()

Dim IE As Object     Set IE = CreateObject("InternetExplorer.Application")

IE.navigate "http://excel.tips.net/"

IE.Visible = True     Set IE = Nothing End Sub

La macro peut facilement être attribuée à une touche de raccourci. Ce n’est pas très flexible, cependant, quand il s’agit de quel navigateur est utilisé (c’est toujours Internet Explorer) et quel site est affiché (c’est toujours le site ExcelTips). Vous pouvez le rendre un peu plus flexible de cette manière:

Sub showURL(browser As String, URL As String)

Dim pPath As String     Dim bPath As String

'Use this to resolve the correct program file path     'it is different on 32-bit and 64-bit systems     pPath = Environ("ProgramFiles")



If browser = "Firefox" Then         bPath = pPath & "\Mozilla Firefox\Firefox.exe"

ElseIf browser = "IE" Then         bPath = pPath & "\Internet Explorer\iexplore.exe"

Else         Exit Sub     End If

Call Shell(bPath & " " & URL, vbNormalFocus)

End Sub
Sub Testing()

Call showURL("Firefox", "/")

Call showURL("IE", "http://excel.tips.net")

End Sub

Notez que la routine principale – showURL, celle qui fait tout le travail – peut fonctionner avec Internet Explorer ou Firefox. La routine de test montre comment lancer les navigateurs; tout ce que vous avez à faire est de spécifier le navigateur que vous souhaitez et l’URL que vous souhaitez ouvrir dans ce navigateur.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (9836) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Specifying_a_Browser_in_a_Hyperlink [Spécifier un navigateur dans un hyperlien].