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 ?
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) ?
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.
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.