VBA Problème lienhypertexte à LIENs variable?

Résolu/Fermé
Placebo_33 Messages postés 16 Date d'inscription dimanche 21 août 2005 Statut Membre Dernière intervention 19 novembre 2008 - 20 déc. 2007 à 10:26
Placebo_33 Messages postés 16 Date d'inscription dimanche 21 août 2005 Statut Membre Dernière intervention 19 novembre 2008 - 24 déc. 2007 à 17:19
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

Utilisateur anonyme
20 déc. 2007 à 14:33
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
Utilisateur anonyme
20 déc. 2007 à 15:05
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
Placebo_33 Messages postés 16 Date d'inscription dimanche 21 août 2005 Statut Membre Dernière intervention 19 novembre 2008 4
24 déc. 2007 à 17:19
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