Lien code vba

Résolu/Fermé

florebobosch - 6 juil. 2016 à 10:36
florebobosch - 7 juil. 2016 à 10:50

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

A voir également:

Lien code vba
Lien url - Guide
Créer un lien pour partager des photos - Guide
Verifier un lien - Guide
Code asci - Guide
Code puk bloqué - Guide

4 réponses

Réponse 1 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
6 juil. 2016 à 10:52

bonjour

Sheets(2).Range("A10").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Feuil1!A1", TextToDisplay:="feuil1"

Réponse 2 / 4

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 juil. 2016 à 10:52

Bonjour,

essaie ceci:

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

florebobosch
6 juil. 2016 à 10:59

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... :(

Réponse 3 / 4

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié par cs_Le Pivert le 6/07/2016 à 11:02

essaie l'enregistreur de macro!

chez moi cela fonctionne !

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

@+ Le Pivert

florebobosch
6 juil. 2016 à 11:08

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 :(

florebobosch
6 juil. 2016 à 11:09

Si je supprime la deuxième ligne j'ai de nouveau l'erreur "impossible d'ouvrir le fichier spécifié"...

florebobosch > florebobosch
7 juil. 2016 à 10:50

Bonjour, j'au réussi en modifiant le nom de mes feuilles : il ne fallait pas d'espace entre Feuille et 1!

Réponse 4 / 4

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 juil. 2016 à 11:47

Essaie ceci

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

Discussions similaires

Rajout de lien sur plusieurs pages

Comment retrouver des lien copier sur sont téléphone