hyperlien

Dans son message précédent, Brat'ac a écrit le

Bonsoir,

Comment dans le champ Address faire référence à une feuille du classeur ?
Je galère dur
--------------------------
With Worksheets("Travail")
.Hyperlinks.Add Anchor:=.Range("A17"), _
Address:="ma-feuille", _
ScreenTip:="essai", _
TextToDisplay:="essai"
End With
-----------------------

Merci de l'aide

J'ai trouvé

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET

Bonjour,


Crée un sommaire vers les onglets du classeur:

Sub sommaire_hyper_lien()
Sheets(1).Select
Range("b4").Select
For Each i In ActiveWorkbook.Sheets
x = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Sub ecrit_accueil()
For i = 2 To Sheets.Count
Sheets(i).Select
Range("d1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Accueil!A1", TextToDisplay:="Accueil"
Next i
Sheets(1).Select
End Sub

Cordialement JB

Dans son message précédent, JB a écrit le

Bonjour,


Crée un sommaire vers les onglets du classeur:

Sub sommaire_hyper_lien()
Sheets(1).Select
Range("b4").Select
For Each i In ActiveWorkbook.Sheets
x = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Sub ecrit_accueil()
For i = 2 To Sheets.Count
Sheets(i).Select
Range("d1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="Accueil!A1", TextToDisplay:="Accueil"
Next i
Sheets(1).Select
End Sub

Cordialement JB

OK Merci

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET

J'ai trouvé

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le
surlendemain

par quelqu'un d'autre.
Pierre PERRET

Demande à qqu'un d'autre de nous expliquer après-demain la solution que tu
as trouvée!

Laurent a émis l'idée suivante :

J'ai trouvé

Demande à qqu'un d'autre de nous expliquer après-demain la solution que tu
as trouvée!

Bonjour,
Ci-dessous la solution que j'ai trouvée et qui fonctionne bien

Sub creer_un_lien_Hypertext()
ActiveSheet.Hyperlinks.Add Anchor:=Range("F17"), Address:="", _
SubAddress:="'C2'!F17", TextToDisplay:="Vers la Feuille C2"
End Sub

GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET