Lancement d'un lien hypertexte avec une macro

Question

Bonjour 

je souhaite créer une macro où lorsque l'on choisit une cellule avec lien hypertexte, ce lien s'active, 
il y a déjà eu demande de faite, la 1ére réponse ne fonctionnait pas car, lien renvoyant à un classeur ou un onglet (ne fonctionne qu'avec un lien URL)
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

une autre réponse a été faite : 
Sub Macro1() 
 With Selection.Hyperlinks(1) 
 .Follow NewWindow:=False, AddHistory:=True 
 If .SubAddress <> "" Then 
 Sheets(Split(.SubAddress, "!")(0)).Select 
 Range(Split(.SubAddress, "!")(1)).Select 
 End If 
 End With 
End Sub 


mais là, je n'arrive pas à comprendre ? 
à quoi correspond : 
Selection.Hyperlinks(1) 
SubAddress 
Sheet(split 
Range(split 

Sinon, si vous avez une autre idée, pour activer un lien hypertexte avec un code 

merci d'avance

sylvain_66 · Answer

Bonjour cs_Le Pivert,

merci pour ta réponse :

Bonjour, 

comme ceci: 

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then If Target.Value = "" Then Exit Sub Range(Target.Address).Hyperlinks(1).Follow NewWindow:=True End If End Sub 

je vais tester, mais j'ai reçu ainsi, tout attacher,
peux tu remettre stp

merci d'avance

sylvain_66 · Answer

Le Pivert

oups !
déjà répondu dans message précédent :

mais là, je n'arrive pas à comprendre ? 
à quoi correspond : 
Selection.Hyperlinks(1) 
SubAddress 
Sheet(split 
Range(split 

peux tu m'aguiller stp

sylvain_66 · Answer

Le Pivert

pour information :
l'onglet de mon classeur s'appelle synoptic
la cellule ou se trouve le lien hypertexte se trouve en AE:20 

peux tu écrire ce code avec ces infos

merci d'avance

sylvain_66 · Answer

bon Le Pivert

la macro planque :


erreur d'exécution '9'
l'indice n'appartient pas à la sélection

elle plante sur la ligne :
Sheets(Split(.SubAddress, "!")(0)).Select

sylvain_66 · Answer

Le Pivert

merci pour l'explication,
de ce côté j'ai compris la box me donne bien l'info ^^
mais de mon côté ma macro plante toujours au même endroit

Peux tu m'envoyer le fichier que tu as préparé, pour voir ce qui cloche chez moi !

sylvain_66 · Answer

Le Pivert,

je n'ai pas accès à ton lien
page introuvable

peux tu m'envoyer de nouveau un fichier excel avec macro stp

sylvain_66 · Answer

salut le Pivert
désolé mais avec le chomage partiel, je ne suis pas toujours connecté à temps
peux tu m'envoyé le lien pour lundi prochain stp
merci d'avance

sylvain_66 · Answer

salut Le Pivert
si possible, peux tu m'envoyer de nouveau le lien STP

sylvain_66 · Answer

je viens de créer un nouveau fichier excel avec 
un onglet Synoptic
j'ai copié la macro : cela ne fonctionne pas

j'ai mis un lien web : cela fonctionne, la page web s'ouvre mais la macro plante après :

erreur d'exécution '9' 
l'indice n'appartient pas à la sélection 

elle plante sur la ligne : 
Sheets(Split(.SubAddress, "!")(0)).Select 


et pour revenir à ma demande
le lien hypertexte fait référence à un autre onglet du fichier et une cellule,
donc avec ce type de lien cela ne fonctionne pas

De ton côté, avais tu mis un lien vers onglet ou vers un site web ?

cs_Le Pivert · Answer

Voilà un code avec un lien vers une feuille. Lien situé  Sheets("synoptic").Range("AE20") et un lien vers un site web situé Sheets("synoptic").Range("AE23")
les 2 fonctionnent:

 Option Explicit
'vers une feuille
Sub Macro1()
Sheets("synoptic").Select
    Range("AE20").Select
    With Selection.Hyperlinks(1)
 .Follow NewWindow:=False, AddHistory:=True
 If .SubAddress <> "" Then
     Sheets(Split(.SubAddress, "!")(0)).Select
     Range(Split(.SubAddress, "!")(1)).Select
    End If
 End With
End Sub
'vers un site web
Sub Macro2()
    Sheets("synoptic").Range("AE23").Hyperlinks(1).Follow NewWindow:=True
End Sub


Voilà, je ne peux pas faire plus

Bon courage

sylvain_66 · Answer

je t'envoie mon fichier,
peux tu regarder le prob stp

dis moi si tu as reçu le fichier

sylvain_66 · Answer

je pense que le problème vient du lien hypertexte

lorsque le lien va sur le même onglet et une autre cellule, la macro fonctionne,

si le lien va vers un autre onglet du classeur, la macro plante

sylvain_66 · Answer

voici mon fichier
peux tu analyser stp

 https://cjoint.com/c/JFpnYBDompT

sylvain_66 · Answer

Bonjour Le Pivert

désolé, je n'ai pas du tout pensé à te dire que la sélection était une plage

maintenant, peux tu m'expliquer à quoi sert ce code stp :
"On Error Resume Next"

sinon, effectivement, en précisant que la sélection est une plage, cela fonctionne parfaitement (désolé encore)

pour la suite, je ne ferais pas une macro pour chaque sélection, j'ai prévu une autre qui fera tourner pour sélectionner ligne par ligne

merci encore pour ton aide précieuse

sera t'il possible de te contacter de nouveau si besoin ^^

sylvain_66 · Answer

Salut Le_pivert,

j'ai repris la macro,
nouveau problème :


celle-ci recherche dans les cellules de B20 à B23 le chiffre "1"
si elle trouve le chiffre, elle sélectionne la cellule de la même ligne mais de la colonne AE
c'est le lien hypertexte, vu dans la macro précédente
celui-ci renvoie à une sélection
la macro copie la sélection et la colle dans un nouvelle onglet à un endroit bien précis

ensuite, même macro pour recherche chiffre 2
ensuite, même macro pour recherche chiffre 3
etc...

cela fonctionne mais les macros sélectionnent toujours le lien hypertexte où il y a le chiffre 1, donc copie à chaque fois la même sélection

je t'ai mis le lien du fichier pour mieux comprendre

peux tu analyser stp, et voir pourquoi les macros sélectionnent toujours le même lien hypertexte

https://cjoint.com/c/JGhloWfH0CT

sylvain_66 · Answer

Re Le_Pivert

en fait, je reprends tout et, même la macro que tu m'as donné pour lien hypertexte avec plage, ne fonctionne plus ?
voir ci-dessous
elle fonctionne uniquement si l'on sélectionne avant le lien hypertexte dans le fichier !
peux tu regarder stp

Sub synoptic()
On Error Resume Next
Sheets("synoptic").Select
Dim plage As Range
Range("AE20").Select
    With Selection.Hyperlinks(1)
 .Follow NewWindow:=False, AddHistory:=True
 If .SubAddress <> "" Then
plage = Split(.SubAddress, "!")(1) 'range
End If
 End With
 Sheets("Synoptic diagram").Select
Range(Range(plage)).Select
 End Sub

sylvain_66 · Answer

Hello le_pivert
je vais tester,

maintenant, pourrais tu envoyer le fichier modifié avec cette macro stp

ce serait plus simple pour moi 

merci d'avance

sylvain_66 · Answer

re Le_pivert

as tu testé ta 1ére macro, car en relançant, celle-ci, il ne se passe rien ?
celle où le lien hypertexte doit ouvrir la sélection ?
de mon côté, cela ne fonctionne pas !
test et rep moi stp

sylvain_6 · Answer

Hello Le_Pivert

désolé mais, je n'y arrive pas
je te joint le fichier avec la macro qui tu m'as donné il y a quelque temps
peux tu le modifier et, me l'envoyer de nouveau stp

c'est important,
je compte sur toi ^^
merci merci d'avance

https://cjoint.com/c/JGvgYQiIRkT

sylvain_6 · Answer

Le_Pivert

je l'ai fait mais, lorsque je lance la macro, elle sélectionne la cellule A1 de l'onglet "Synoptic diagram" et la colle dans "Specific Synoptic diagram"

désolé mais, peux tu le faire stp et m'envoyer le fichier

Lancement d'un lien hypertexte avec une macro

28 réponses

Votre réponse

Discussions similaires