index hypertex

[j p été1plomb]

bonjour tlm
je rencontre qqs problèmes avec le code que voici

Sub LstSheetHyperlink()
Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newfeuille.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(newfeuille.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:='', SubAddress:= _
Chr(39) & Sheets(i).Name & Chr(39) & '!A1' End With
Next i
End Sub

qcun peut m'aider svp
d'avance merci

 

[j p été1plomb]

etbien j'aurais t!!!!!oujours demandé :angry:

 

[MichelXld]

bonsoir

tu aurais peut etre plus de réponses en expliquant au moins quel est ton probleme et ce que tu souhaites réaliser ...

tu peux tester cette modification

Sub LstSheetHyperlink()
Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newfeuille.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(newfeuille.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:='', SubAddress:= _
Chr(39) & Sheets(i).Name & Chr(39) & '!A1'
End With
Next i
End Sub

j'ai remplacé

Chr(39) & Sheets(i).Name & Chr(39) & '!A1' End With

par

Chr(39) & Sheets(i).Name & Chr(39) & '!A1'
End With



bonne soirée
MichelXld

 

[j p été1plomb]

merci de ta modif
ca marche au poil

:woohoo:

ok je tacherais d'etre plus explicite la prochaine fois