Problème avec lien hypertexte

[DAVID]

Bien le bonjour chers amis de cet excellent forum.

Une 'tite' question toute bête pour laquelle vos connaissances vont répondre sans difficulté aucune.

Situation du problème.
J'ai un fichier excel avec un menu général dans lequel se trouve tous les mois de l'année dans 12 cellules(normal).
Je souhaite faire un lien hypertexte vers une feuille du fichier qui existe.
Ce lien se décompose ainsi : graph 'valeur de la cellule active' est donc, activation de la feuille.
Ce petit code ci-dessous, me crée le lien(souligné dans la cellule en question) mais quand je clic sur celui-ci, j'ai le charmant message
'référence non valide'
Pourquoi, telle est la question que je vous pose.
Je débute en vba et me frotte donc aux problèmes que vous avez connu
Je vous remercie, et bravo encore pour ce forum

Sub Creer_lien()

Dim Lien As String, valeur As String
Dim titi As String, nom As String

nom = 'graph'
valeur = ActiveCell.Value

Lien = nom & ' ' & valeur & '!A1'
'on crée l'hyperlien
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= _
Lien



End Sub[/code]

 

[Rai]

Bonjour,

En fait cela vient du nom de tes feuilles.
Tes noms de feuilles comportent un espace.

Donc pour créer l'hyperlien, il faut encadrer le nom de feuille par des apostrophes. Sinon, VBA ne s'y retrouve pas, il considère l'espace comme un séparateur.

Une légère correction de ton code suffira :

nom = ''graph '
valeur = ActiveCell.Value

Lien = nom & valeur & ''!A1'


Bonne continuation

 

[DAVID]

Bonjour Rai,

C'est exactement ce qu'il me fallait, merci et bon week-end