Ouvir lien hypertext via bouton de commande

Le 10/12/2021 à 14:04

Bonjour,

Je veux pouvoir être à un endroit quelconque sur une ligne, avec un bouton de commande, je souhaite ouvrir le lien hypertexte qui ce trouve sur la même ligne, en colonne BR. voici mon idées, mais sans succès :

idée certainement trop naïve ...

Sheets("TABLEAU TRAVAUX").Select
Range("BR" & ActiveCell.Row).Select
ActiveWorkbook.FollowHyperlink
Address Sheets("TABLEAU TRAVAUX").Range("BM1"), NewWindow:=True

ce qui bloque c'est l'ouverture du lien dans la case ....

Pour les plus aguerrit c'est certainement simple pour vous ... mais pour moi ...

D'avance merci

Le 10/12/2021 à 18:14

Bonsoir PtitJean79

Une chose, virez moi tous ces "Select"

Voici

Sub LancerLien()
  ActiveWorkbook.FollowHyperlink Address:=Sheets("TABLEAU TRAVAUX").Range("BR" & ActiveCell.Row).Value, NewWindow:=True
End Sub

A+

Le 15/12/2021 à 14:06

Bruno M45,

merci beaucoup !!

A lire le résultat, cela parait évident. Mais je n'ai aucune formation et fais tout avec "docteur Google" ce n'est pas l'idéal mais "à la guerre comme à la guerre". parfois j'arrive à transposer et parfois pas. Bon courage et bonne continuation !!!

Rechercher des sujets similaires à "ouvir lien hypertext via bouton commande"