Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion Fab117
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Fab117

XLDnaute Impliqué
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.
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…