XL 2019 ouverture lien hypertexte par macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Novembre 2020

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

F

fiorino

XLDnaute Nouveau

• 4 Décembre 2020

• #3

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

 

Pièces jointes

• monde.xlsm

  16 KB · Affichages: 20

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 4 Décembre 2020

• #4

Bonjour @fiorino, @sylvanu ,

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

VB:

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.

Code:

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

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

 

Pièces jointes

• monde.xlsm

  29.2 KB · Affichages: 58

Vote positif 0 Vote négatif

F

fiorino

XLDnaute Nouveau

• 12 Décembre 2020

• #5

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.

 

Vote positif 0 Vote négatif

F

fiorino

XLDnaute Nouveau

• 12 Décembre 2020

• #6

idem pour sylvanu, bien entendu

 

Vote positif 0 Vote négatif

Solution