index hypertex

j p été1plomb · 5 Avril 2006

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 · 5 Avril 2006

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

MichelXld · 5 Avril 2006

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 · 5 Avril 2006

merci de ta modif
ca marche au poil

:woohoo:

ok je tacherais d'etre plus explicite la prochaine fois

index hypertex

j p été1plomb

XLDnaute Nouveau

j p été1plomb

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

j p été1plomb

XLDnaute Nouveau

Discussions similaires