Ouvrir un lien en cliquant sur un label

[ascal44]

Bonjour , je joint un condensé de fichier sur lequel je voudrais ouvrir un lien internet en cliquant sur un label.

Merci pour votre aide

 

[Dull]

Re : Ouvrir un lien en cliquant sur un label

Salut ascal44, le forum

en condensé

Private Sub map_Click()
'    LanceGoogle

ActiveWorkbook.FollowHyperlink Address:="http://maps.google.fr/maps?f=d&saddr=241%20rue%20des%20Cinq%20Moulins,%2085250%20CHAVAGNES-EN-PAILLERS&daddr=/", NewWindow:=True
End Sub

Mais m'étonnerais que que soit cela

Bonne Journée

 

[ascal44]

Re : Ouvrir un lien en cliquant sur un label

Oui , le problème c'est que le lien peut être différent :je peux sélectionner d'autres adresses le lien sur le label "map" s'adapte à cette adresse.

 

[job75]

Re : Ouvrir un lien en cliquant sur un label

Bonjour ascal44, salut Dull,

Pour activer le lien hypertexte en E11 :

Private Sub map_Click()
'    LanceGoogle
Range("Fichier!E11").Hyperlinks(1).Follow
End Sub

Fichier joint.

A+

 

[ascal44]

Re : Ouvrir un lien en cliquant sur un label

Merci Job75 ,
mais le problème c'est que le label "map" ne correspond pas toujours à E11. Cela peut être E25 ou E48 etc ,etc...
Y a t il une solution pour retrouver le bon lien ?

 

[job75]

Re : Ouvrir un lien en cliquant sur un label

Bonjour ascal44,

Y a t il une solution pour retrouver le bon lien ?

Oui, mais il faut qu'il n'y ait qu'un seul "map" dans la feuille :

Private Sub map_Click()
'LanceGoogle
On Error Resume Next 'si "map" n'existe pas
Sheets("Fichier").Cells.Find("map", LookIn:=xlValues, LookAt:=xlWhole).Hyperlinks(1).Follow
End Sub

A+

 

[ascal44]

Re : Ouvrir un lien en cliquant sur un label

Bonjour , mon problème c'est qu'il n'y a pas qu'un seul "map".
J'en ai de E11 à E250 !!!
Le label "map" peux changer de lien en fonction de l'adresse choisie
Il faudrait ouvrir la bonne carte qui correspond au lien du label "map"

 

[job75]

Re : Ouvrir un lien en cliquant sur un label

Re,

On ne peut rien inventer : s'il y a 36 "map" avec des liens différents, comment déterminer le lien qu'il faut suivre 😕

A priori il faudrait des noms différents et un Label par nom...

A+

 

[job75]

Re : Ouvrir un lien en cliquant sur un label

Re,

Cela dit, si le lien est déterminé à l'ouverture de l'USF, on peut toujours le mémoriser :

Dim cel As Range 'mémorise la variable

Private Sub map_Click()
'LanceGoogle
On Error Resume Next 'si le lien hypertexte n'existe pas
cel.Hyperlinks(1).Follow
End Sub

Private Sub UserForm_Initialize()
Set cel = Range("Fichier!E11") [COLOR="Red"]'détermine le lien[/COLOR]
map = cel 'pas nécessaire si le texte est toujours "map"...
End Sub

A+