Lien code vba

Résolu
florebobosch -  
 florebobosch -
Bonjour,

Je cherche à créer un lien sur la cellule A10 de ma feuille 2 vers ma feuille1.
Voici mon code :
Sheets("Feuille2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="A10", SubAddress:="Feuille1" & "!A1", TextToDisplay:="Feuille1"

Le code fonctionne mais lorsque je clique sur le lien excel affiche "Impossible d'ouvrir le fichier spécifié"...

Quelqu'un peut m'aider ? Ca m'arrangerait énormément!

Flore



4 réponses

Réponse 1 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 315
 
bonjour 
Sheets(2).Range("A10").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Feuil1!A1", TextToDisplay:="feuil1"
0
Réponse 2 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

essaie ceci: 

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Feuil1!A1", TextToDisplay:="#Feuil1!A1"
0
florebobosch
 
Bonjour,
merci pour vos réponses et votre rapidité!
Ca ne marche toujours pas, Feuille1 et Feuille2 sont les noms de mes feuilles on s'est bien compris ?
J'ai une erreur de syntaxe... :(
0
Réponse 3 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
essaie l'enregistreur de macro!

chez moi cela fonctionne !

il faut voir si c'est Feuille1 ou Feuil1, c'est important!

@+ Le Pivert
0
florebobosch
 
L'neregistreur de macro me donne ces deux lignes :

Selection.Hyperlinks(1).SubAddress = "Feuille1'!A1"
ExecuteExcel4Macro "(7,FALSE,"""")"

Mais quand je copie ces lignes dans mon code la deuxième ligne provoque une erreur... je ne comprend vraiment pas :(
0
florebobosch
 
Si je supprime la deuxième ligne j'ai de nouveau l'erreur "impossible d'ouvrir le fichier spécifié"...
0
florebobosch > florebobosch
 
Bonjour, j'au réussi en modifiant le nom de mes feuilles : il ne fallait pas d'espace entre Feuille et 1!
0
Réponse 4 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Essaie ceci 

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Feuille1!A1", TextToDisplay:="#Feuille1!A1"
0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses
Rajout de lien sur plusieurs pages
leparradiss -
David -

11 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses