VBA Problème lienhypertexte à LIENs variable?

Résolu
Bonjour;
Je rame depuis des jours, mon problème est :
dans mon classeur j’ai l65 feuilles et une macro qui exécute un calcule avec un lien qui active une feuille que j’ai appelé CUMULE, une foi arrivé à la feuille CUMULE c’est la galère ! Comment crée un lien Hypertexte capable d’exécuter le retour à la dernière Feuille utilisée avec la même macro (si en clic dessus bien sûr)?

A savoir, dans ma macro j'ai écri ce qui suit,

'Je copie l’onglé de la feuille(x) ACTIVE dans la variable Var_NomOngle
................. Dim Var_NomOngle As String
................. Var_NomOngle = ActiveSheet.Name

'J’active ma feuille "CUMULE"
.................Worksheets("CUMULE").Activate

'Je copie la variable Var_NomOngle dans la cellule "A2" de la feuille CUMULE
.................Range("A2").Select
.................Range("A2") = Var_NomOngle

'Je crée mon Lien hypertexte,
................ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
................SubAddress:="'Var_NomOngle!A2", TextToDisplay:="Retour"

Après exécution de la macro dans l’une des 165 feuilles(x) je clic sur la cellule "A2" de la feuille CUMULE et là une fenêtre d’Excel s’affiche : … Référence non valide.

Après l’échec de mes recherches et plusieurs essais ratés je rame encore.
Toutes aide sera la bienvenue.
J’espère s’il y a ici un savant dans ce domaine qu’il nous éclairera
Quelque soi la valeur de (x) Merci.
A+

Win XP PK2
Office 200x

3 réponses

  1. Bonjour,

    ici il y une erreur !

    ................ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
    ................SubAddress:="'Var_NomOngle!A2", TextToDisplay:="Retour"

    devrait se lire :

    ............... ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
    ............... SubAddress:=Var_NomOngle & "!A2", TextToDisplay:="Retour"

    Michel
    2
    1. re :

      ou

      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
      SubAddress:="'" & Var_NomOngle & "'!A2", TextToDisplay:="Retour"

      avec des espaces pour être sur de bien voir !
          SubAddress:= " ' " & Var_NomOngle & " ' !A2 ", TextToDisplay:="Retour"
      


      les deux fonctionne chez-moi !

      Michel
      2
      1. youpiiiiiiii!!!
        Un grand merci pour VOUS Michel, ça marche très bien.

        A savoir :
        Tous mes essais ne peuvent aboutir au bon résultat escompté même écris aussi juste que toi. Mes craintes au début étaient comment écrire correctement le nom des feuilles ? Pour éviter toutes brouilles dans l’avenir avec Excel et d’autres PRG que je me projette a étudié en autodidacte, VBScripte ou Delphy (mais hélas ! Plein dedans)

        Enfin j’ai nommé mes feuilles « NF,521.1.01, NF,521.1.02, ... CD,535.1.15» q’Excel accepte sans préavis et VBE confirme en le compilant sans Problème, l’erreur Référence non valide c’est après «Nickel»...,
        C’est la vilaine VIRGULE qui en cause, même les caractères ( -, +, Alt 255) Beug!. Les Points entre les caracteres sont tolérés pour le moment

        Solution :
        Je renomme mes feuilles sans brouille au format «NF521101» A dieu l’effet visuel. Jusqu a nouvel ordre

        Mes remerciement encore c’est très sympa.
        A+
        0