OVH Cloud OVH Cloud

Fichier répertoire

2 réponses
Avatar
Infogroup
Bonsoir à tous,
avec excel 2003, je voudrais faire un tableau avec des liens hypertextes
pour chaque feuille du classeur.
j'ai fait une macro qui marche pour les noms d'onglets qui sont d'un seul
mot, mais dès qu'il y a un espace ou un tiret entre deux mots pour désigner
le nom d'onglet, la macro ne marche pas.
voici la macro actuelle :

Sub Liens_hypertextes()
Sheets("Sommaire").Activate
For a = 1 To 23
Cells(a + 5, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=Sheets(a).Name & "!" & "A1", TextToDisplay:=Sheets(a).Name
Next a
End Sub

Pouvez-vous svp corriger cette macro pour résoudre ce problème ?

Merci par avance de votre aide
--
M.Infogroup

2 réponses

Avatar
filtre
En mettant la feuille entre simple ' cotte ', comme ci-dessous :

SubAddress:="'" & Sheets(a).Name & "'" & "!" & "A1",
TextToDisplay:=Sheets(a).Name
Avatar
Infogroup
Merci filtre d'avoir répondu si vite, tout est OK
Cordialement
--
M.Infogroup



En mettant la feuille entre simple ' cotte ', comme ci-dessous :

SubAddress:="'" & Sheets(a).Name & "'" & "!" & "A1",
TextToDisplay:=Sheets(a).Name