VBA Problème lienhypertexte à LIENs variable? Résolu/Fermé

Question

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

Utilisateur anonyme · Accepted Answer

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

Utilisateur anonyme · Answer

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

Placebo_33 · Answer

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+

VBA Problème lienhypertexte à LIENs variable?

3 réponses

Discussions similaires