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

Fab117

XLDnaute Occasionnel
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"
VB:
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 ?
Firefox.jpg


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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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.
 

Membres actuellement en ligne

Statistiques des forums

Discussions
286 624
Messages
1 877 554
Membres
160 771
dernier inscrit
Tekuni
Haut Bas