Lien hypertexte dans une cellule vers une cellule d'une autre feuille du même cl

Résolu
Signaler
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009
-
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
-
Bonjour,

Je cherche à créer de manière automatique un lien hypertexte dans une cellule vers une autre cellule dans une autre feuille de mon classeur excel.
Mais à chaque fois le lien est créé vers le dossier temp de mon c:\ donc n'aboutit pas.
C'est comme si il prenait les valeurs par défaut de la boite de dialogue de création de lien et pas le second choix càd emplacement dans ce document:

Voici le code utilisé:

Dim objLink As Hyperlink

Set objLink = ActiveSheet.Hyperlinks.Add(Range(Cell_EnCours.Address), Worksheets("Theorique").Range(Target.Address))

Merci pour votre aide.

6 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
6
Re,

Voici une discussion qui pourrait t'aider..

Et as-tu essayé de faire la manipulation avec l'enregistreur de macros pour voir ce que cela donnait??

L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
6
Bonjour,

Essaye en rajoutant le paramètre anchor :
ActiveSheet.Hyperlinks.Add Anchor:=(Range(Cell_EnCours.Address), address:="", SubAddress:= Worksheets("Theorique").Range(Target.Address))

L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Merci,

Mais j'ai une erreur d'appel: argument ou appel de procédure incorrect:

ActiveSheet.Hyperlinks.Add Anchor:=Range(Cell_EnCours.Address), Address:="", SubAddress:=Worksheets("Theorique").Range(Target.Address)
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
6
Voici un exemple de ce que ça m'a donné:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Feuil3!B3" ,TextToDisplay:="Feuil3!B3"


L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Oui effectivement si je mets le nom réel çà passe par exemple "Feuil1!A1" mais je vois pas comment le matérialiser en dynamique avec Worksheets("Theorique").Range(Target.Address), le woorksheet sera toujours le même donc on pourrait avoir "Theorique! & Range (Target.Adress & " mais çà ne fonctionne pas ...

Je continue
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
6
Re,

Peut-être en utilisant .cells .row ou .cols plutot que l'adresse retournée directement $a$1

L'expérience, c'est une connerie par jour, mais jamais la même..