bonjour a tous=20
une macro recopi=E9e depuis un site qui cr=E9e une feuille=20
recap et qui cr=E9e des liens hypert.
Nickel sauf que , pourles onglets recopi=E9s , le lien ne=20
fonctionne pas
ex: toto recopi=E9 en toto(1)et toto(2)
le lien vers toto fonctionne
Pas celui vers toto(1) ou toto(2)
ci dessous le code en question
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=3D.Cells(i,=20
1), _
Address:=3D"", SubAddress:=3DSheets(i).Name=20
& "!A1", _
TextToDisplay:=3DSheets(i).Name
End With
Alors , si quelqu'un a uneid=E9e lumineuse la-dessus...
MERCI
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Gilles,
Sub ListFeuil() Dim i As Integer With Application .ScreenUpdating = False .DisplayAlerts = False End With On Error Resume Next Sheets("Sommaire").Delete Sheets.Add(Before:=Sheets(1)).Name = "Sommaire" [A1] = "Liste des onglets du classeur" For i = 2 To Sheets.Count ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 1), _ Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _ TextToDisplay:="Lien vers " & Sheets(i).Name Next i End Sub
ChrisV
"gilles" a écrit dans le message de news:222ad01c45d15$893a9230$ bonjour a tous une macro recopiée depuis un site qui crée une feuille recap et qui crée des liens hypert. Nickel sauf que , pourles onglets recopiés , le lien ne fonctionne pas ex: toto recopié en toto(1)et toto(2) le lien vers toto fonctionne Pas celui vers toto(1) ou toto(2) ci dessous le code en question
With Worksheets(nSht.Name) ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), _ Address:="", SubAddress:=Sheets(i).Name & "!A1", _ TextToDisplay:=Sheets(i).Name End With
Alors , si quelqu'un a uneidée lumineuse la-dessus... MERCI
Bonjour Gilles,
Sub ListFeuil()
Dim i As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Sommaire").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
For i = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 1), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
Next i
End Sub
ChrisV
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:222ad01c45d15$893a9230$a301280a@phx.gbl...
bonjour a tous
une macro recopiée depuis un site qui crée une feuille
recap et qui crée des liens hypert.
Nickel sauf que , pourles onglets recopiés , le lien ne
fonctionne pas
ex: toto recopié en toto(1)et toto(2)
le lien vers toto fonctionne
Pas celui vers toto(1) ou toto(2)
ci dessous le code en question
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i,
1), _
Address:="", SubAddress:=Sheets(i).Name
& "!A1", _
TextToDisplay:=Sheets(i).Name
End With
Alors , si quelqu'un a uneidée lumineuse la-dessus...
MERCI
Sub ListFeuil() Dim i As Integer With Application .ScreenUpdating = False .DisplayAlerts = False End With On Error Resume Next Sheets("Sommaire").Delete Sheets.Add(Before:=Sheets(1)).Name = "Sommaire" [A1] = "Liste des onglets du classeur" For i = 2 To Sheets.Count ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 1), _ Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _ TextToDisplay:="Lien vers " & Sheets(i).Name Next i End Sub
ChrisV
"gilles" a écrit dans le message de news:222ad01c45d15$893a9230$ bonjour a tous une macro recopiée depuis un site qui crée une feuille recap et qui crée des liens hypert. Nickel sauf que , pourles onglets recopiés , le lien ne fonctionne pas ex: toto recopié en toto(1)et toto(2) le lien vers toto fonctionne Pas celui vers toto(1) ou toto(2) ci dessous le code en question
With Worksheets(nSht.Name) ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), _ Address:="", SubAddress:=Sheets(i).Name & "!A1", _ TextToDisplay:=Sheets(i).Name End With
Alors , si quelqu'un a uneidée lumineuse la-dessus... MERCI