Insrertion d'un lien hypertexte vers une feuille

**malaka81** · 30/05/2016, 18h11

Bonjour,

Ma question a déjà été posée mais je n'arrive aps à trouver la bonne syntaxe alors...

Mon problème est que je récupère un chiffre dans une cellule et qu'ensuite je veux insérer dans une autre cellule un lien hypertexte vers l'onglet nommé du même nom...
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
 
snag_numb = Cells(4, 1).Value
 
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(15, 1), Address:="", SubAddress:="'" & snag_numb & "'!A1", TextToDisplay:=snag_numb
 
End Sub

J'ai tout essayé mais rien ne marche.
Auriez-vous une idée pour moi svp?

Merci

**Pierre Fauconnier** · 30/05/2016, 18h16

Salut...

Qu'est-ce qui "ne marche pas"?

J'ai testé ton code et il fonctionne. Quelle est la valeur de A4 au moment du test?

**Menhir** · 30/05/2016, 18h47

Tu peux faire ça sans macro.
Mettre en A15 :

Code :

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

=LIEN_HYPERTEXTE("[MonClasseur]"&A4&"!A1";A4)

En remplaçant MonClasseur par le nom de ton fichier.

**malaka81** · 31/05/2016, 10h02

Le problème est que, quand j'exécute ce code, j'ai un message:
Erreur d'exécution '5':
Argument ou appel de procédure incorrect.

Le contenu de la cellule est un chiffre.

Ma version d'excel est 2010.

@Menhir : l'idée est d'inclure ce bout de macro dans une autre déjà existante donc il me faut une macro. Merci quand même.

**Menhir** · 31/05/2016, 10h34

Envoyé par malaka81

l'idée est d'inclure ce bout de macro dans une autre déjà existante donc il me faut une macro.

Dans ce cas, tu aurais du mettre cette demande dans la rubrique "Macro et VBA Excel".

Essaye ça :

Code :

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

1
2
ActiveSheet.Cells(15, 1).Value = snag_numb
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(15, 1), Address:="", SubAddress:="'" & snag_numb & "'!A1"