Discussion :

[FrancisZheng]

Bonjour :

Le nom de la feuille que l'hyperlien amène est dans la variable nameSheets. La feuille est dans le classeur actif.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks.Add Anchor:=Range(Cells(2, 1), Cells(3, 1)), Address:="", SubAddress:=nameSheets & "!A1"

Apparemment la syntaxe SubAddress:=nameSheets & "!A1" n'est pas correct. Quand je clique sur la cellule il me renvoie "Référence non valide".

Merci d'avance.

[kiki29]

Salut, dans la FAQ ?

[Sebphyto]

Salut francis,

dans la variable nameSheets

Que contient-elle? avec un exemple stp

[FrancisZheng]

Bonjour,

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim nameSheets As String
nameSheets = "12-2015"

Salut, dans la FAQ ?

Salut,

Ce que je fais c'est un cas particulier vu que j'ai déjà nommé la feuille. Donc je voudrais chercher une solution au niveau de la syntaxe, ce qui n'est pas trop précisé dans FAQ.

[Sebphyto]

Salut Francis et Kiki29,

Bon j'ai trouvé, après test, j'ai clique droit sur le lien crée et modifié le lien hypertext par ce qu'en gros dans ce code il fait référence à lui même...bref le problème vient de la syntaxe ici,
Avec l'enregistreur de macro çà va tout seul....

Ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks.Add Anchor:=Range(Cells(2, 1), Cells(3, 1)), Address:="", SubAddress:=nameSheets & "!A1"

Par enregistreur de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'12-2015'!A1", TextToDisplay:="Blablabla"

donc il faut que tu fasses comme cela car comme tu peu le voir il y a des " ' " (apostrophes).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim nameSheets As String
nameSheets = "12-2015"
ActiveSheet.Hyperlinks.Add Anchor:=Range(Cells(2, 1), Cells(3, 1)), Address:="", SubAddress:="'" & nameSheets & "'" & "!A1", TextToDisplay:="Blablabla"
'Par enregistreur
' ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'12-2015'!A1", TextToDisplay:="Blablabla"
 
End Sub

Seb

Ne pas oublier de plusser

[FrancisZheng]

Bonjour Seb :

Je viens de tester ton code car j'étais occupé depuis samedi.

Ton code est exactement ce que je voulais. Il marche parfaitement.

Merci Problème résolu.