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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour
    Sheets(2).Range("A10").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "Feuil1!A1", TextToDisplay:="feuil1"

    0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    essaie ceci:

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

    0
    1. 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
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    essaie l'enregistreur de macro!

    chez moi cela fonctionne !

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

    @+ Le Pivert
    0
    1. 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
    2. florebobosch
       
      Si je supprime la deuxième ligne j'ai de nouveau l'erreur "impossible d'ouvrir le fichier spécifié"...
      0
      1. 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
  4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Essaie ceci

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

    0