Lien code vba

Résolu
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

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

    1. Contributeur
      Bonjour,

      essaie ceci:

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

      1. 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... :(
    2. Contributeur
      essaie l'enregistreur de macro!

      chez moi cela fonctionne !

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

      @+ Le Pivert
      1. 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 :(
      2. Si je supprime la deuxième ligne j'ai de nouveau l'erreur "impossible d'ouvrir le fichier spécifié"...
      3. @floreboboschBonjour, j'au réussi en modifiant le nom de mes feuilles : il ne fallait pas d'espace entre Feuille et 1!
    3. Contributeur
      Essaie ceci

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