création lien hypertexte en VBA

Le
ChristianM
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide

Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name

'--
'création lien hypertexte
Range("A" & n).Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
nom, TextToDisplay:=nom

'fin création lien hypertexte
'-
n = n + 1
Next
End Sub


--
ChristianM
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #20579581
Bonjour,

http://boisgontierjacques.free.fr/pages_site/lienshypertextes.htm#SommaireM ajAutomatique

JB
http://boisgontierjacques.free.fr


On 18 nov, 14:39, ChristianM wrote:
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide

Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
   For Each WS In Worksheets
     Range("A" & n).Select
     ActiveCell.Value = WS.Name
     nom = WS.Name

     '--------------------
     'création lien hypertexte
     Range("A" & n).Hyperlinks.Add Anchor:=Selection, Address:= "",
SubAddress:= _
         nom, TextToDisplay:=nom

     'fin création lien hypertexte
     '-------------------------
     n = n + 1
   Next
End Sub

--
ChristianM


michdenis
Le #20579661
Bonjour ChristianM,

'------------------------------
Sub Test()
Dim i As Integer, x As String
With Worksheets("Feuil1")
For i = 2 To Sheets.Count
x = Sheets(i).Name
With .Range("A" & 3 + i)
.Value = x
.Hyperlinks.Add Anchor:=.Item(1), Address:="", _
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
End With
Next
End With
End Sub
'------------------------------



"ChristianM" discussion :
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide

Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name

'--------------------
'création lien hypertexte
Range("A" & n).Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
nom, TextToDisplay:=nom

'fin création lien hypertexte
'-------------------------
n = n + 1
Next
End Sub


--
ChristianM
ChristianM
Le #20579791
Merci à vous
ChristianM

ChristianM a écrit :
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide

Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name

'--------------------
'création lien hypertexte
Range("A" & n).Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
nom, TextToDisplay:=nom

'fin création lien hypertexte
'-------------------------
n = n + 1
Next
End Sub




Publicité
Poster une réponse
Anonyme