j p été1plomb
XLDnaute Nouveau
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
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