XL 2016 Ouvrir hyperlink en navigation privée (ou avec un navigateur autre que celui par défaut)

[Fab117]

Hello,
Dans ma colonne "B", j'ai des hyperlinks vers des pages web.
J'arrive à lui faire ouvrir les pages en questions avec "ActiveSheet.Range("B" & i).Hyperlinks(1).Follow NewWindow:=False"

Sub Test()
'Numéro de la ligne de la cellule active
Ligne = ActiveCell.Row

For i = Ligne To Ligne + 5
    ActiveSheet.Range("B" & i).Hyperlinks(1).Follow NewWindow:=False
Next i
Range("A" & i + 1).Select

End Sub

Le problème est qu'il ouvre le lien dans mon navigateur par défaut (Firefox).
Y aurait-il une possibilité pour lui faire ouvrir le lien dans une fenêtre privée ?

Si ce n'est pas possible, est-il possible de lui faire utiliser un autre navigateur que celui par défaut en lui indiquant le nom de l'exécutable (C:\Applications portables\FirefoxPortable\FirefoxPortable.exe) ?

Merci par avance et très bonne journée.

Fab

 

[sylvanu]

Bonjour Fab,
Un ex ici : https://www.excel-downloads.com/threads/ouvrir-une-page-internet-depuis-une-macro.20019786/
Adapté pour une ouverture dans Edge :

Sub AURA()
    Dim navigate As String
    navigate = "https://www.excel-downloads.com/forums/forum-excel.7/"    ' adresse adapter
    Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe " & navigate)
End Sub

L' "avantage" de Edge est que si vous êtes sous Win10 vous l'avez obligatoirement et à la bonne place.

 

[Fab117]

Ca fonctionne parfaitement.
Un grand meci

Fab