XL 2016 Problème d'ouverture d'hyperlien via macro

[karakoman1]

Bonsoir le forum,

J'ai un petit problème pratique concernant l'ouverture d'un lien internet via macro
Dans mon fichier joint, j'ai un lien internet reconstitué de plusieurs manières différentes.
J'ai essayé plusieurs macro pour les ouvrir, mais aucune ne fonctionne.
Voici une en exemple qui est censé ouvrir tous les hyperliens d'une feuille:

Sub ActiverLiens()
For Each HL In Sheets("Feuil1").Hyperlinks
HL.Follow
Next
End Sub

Malheureusement, ca ne fonctionne pas.
Par contre, si je fais un copier - coller (valeur) du lien reconstitué, que je double clique sur ce lien et que je fait "Enter", le lien devient valide et fonctionne avec la macro.

Quelle macro utiliser pour pouvoir faire fonctionner un lien reconstitué?

Merci à qui pourra m'aider

Bonne soirée

 

[zebanx]

Bonsoir Karakoman,

Un essai (avec firefox). L'idée doit être la même avec un autre navigateur internet.

++

 

[karakoman1]

Bonjour le forum, bonjour Zebanx,

Merci pour le code qui fonctionne très bien.
J'aurais quand même une petite question.

1 - Comment l'adapter si je voudrais ouvrir le lien dans un nouvel onglet si internet explorer est déja ouvert plutôt que dans une nouvelle fenêtre indépendante des autres?

Un grand merci pour ton aide

 

[zebanx]

Re-

Eh bien cela restera un mystère je le crains
Ouverture par Firefox --> ouverture d'un onglet
Ouverture par IExplorer --> ouverture d'une fenêtre

Le code est pourtant...identique dans sa rédaction comme tu pourras le voir avec l'ajout d'une macro pour IE.

Désolé de ne pouvoir t'aider + sur le sujet mais peut-être que d'autres auront une solution.
zebanx