XL 2019 ouverture lien hypertexte par macro

[fiorino]

Bonjour
j'ai une feuille1 avec des boutons. exemple un bouton nommé "géoportail"
je voudrais affecter au bouton "géoportail" une macro qui va lire dans la feuille 2 la cellule A1 et ouvrir automatiquement la page web de l'url de cette cellule, tout en gardant la feuille 1 affichée ( je ne voudrais pas basculer sur l'affichage de la feuille 2)
je ferai de même avec un autre bouton qui irait ouvrir l'URL de A2, etc...
Si quelqu'un a une idée. j'ai regardé des exemples sur internet mais je cale...
Merci

 

[sylvanu]

Bonjour Fiorino,
Si dans la cellule C9 il y a www.lemonde.fr alors cette macro ouvre le lien dans IE ( ou autre )

Range("C9").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

 

[fiorino]

désolé je n'y arrive pas... je vous montre mon fichier

 

[Hasco]

Bonjour @fiorino, @sylvanu ,

Vous n'étiez pas loin.... Il manquait une référence à la feuille sur laquelle se trouve le lien :

ThisWorkbook.Sheets("Feuil2").Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Dans le fichier joint vous trouverez également une façon de le faire sans avoir le lien sur une feuille.

Sub monde2()
ThisWorkbook.FollowHyperlink "https://www.lemonde.fr/", NewWindow:=False, AddHistory:=True
End Sub

L'adresse du lien doit être complète.

 

[fiorino]

Bonjour Roblochon
désolé pour la réponse tardive, je n'ai pas pu me connecter pendant quelque temps. Votre solution me convient très bien. Je vous remercie beaucoup pour votre aide. Passez de joyeuses fêtes.

 

[fiorino]

idem pour sylvanu, bien entendu