Lien hypertexte vers feuilles!

[raxou]

Quid?
j'ai créé cette petite macro mais cela ne fonctionne que pour les feuilles dont le nom ne comporte pas d'espace et évidemment "test" ça marche mais "test septembre" ça ne marche pas! Référence non valide.

Y a t il une ruse ou ai je mal écrit cette macro?
Merci d'avance

JM


Sub monsommaire()
Worksheets("Menu").Select
For i = 3 To Sheets.Count
With Worksheets("Menu")
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), _
Address:="", SubAddress:=Sheets(i).Name & "!A1", _
TextToDisplay:="Aller à " & Sheets(i).Name
End With
Next i
Rows("2:2").Delete
With Rows("1:1")
.RowHeight = 35
.VerticalAlignment = xlCenter
End With
With Rows("2:60")
.RowHeight = 20
.VerticalAlignment = xlCenter
End With
Exit Sub
End Sub

 

[jeanpierre]

Re : Lien hypertexte vers feuilles!

Bonsoir raxou, re le forum,

Soit ne pas mettre d'espace dans le nom des feuilles, ou bien le remplacer par, par exemple "test_septembre"

Utiliser dans le noms des feuilles le tiret en dessous du huit... _

Voilà.

Jean-Pierre

 

[pierrejean]

Re : Lien hypertexte vers feuilles!

bonjour raxou
Salut jeanpierre

A tester

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), _
Address:="", SubAddress[COLOR=red][COLOR=black]:=[/COLOR]"'"[/COLOR] & Sheets(i).Name & [COLOR=red]"'![/COLOR]A1", _
TextToDisplay:="Aller à " & Sheets(i).Name

 

[raxou]

Re : Lien hypertexte vers feuilles!

merci à vous deux