Lien dans une feuille

Bonsoir

j'utilise une macro pour extraire les liens d'un classeur. Comment modifier cette macro pour quelle ne me sorte que les liens de la feuille nommée "Couverture"

Sub ListeLiensClasseur()

Application.ScreenUpdating = False

On Error Resume Next

Application.DisplayAlerts = False

Sheets("Contrôle_classeur").Delete

Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = "Contrôle_classeur"

i = 6

For Each s In ActiveWorkbook.Sheets

For Each h In s.Hyperlinks

ActiveSheet.Cells(i, 1) = h.TextToDisplay

ActiveSheet.Cells(i, 2) = h.Address

'ActiveSheet.Cells(i, 3) = h.SubAddress

'ActiveSheet.Cells(i, 4) = h.Parent.Address

'ActiveSheet.Cells(i, 5) = s.Name

i = i + 1

Next h

Next s

Cells.EntireColumn.AutoFit

End Sub

Merci de votre aide

Bonsoir

normalement comme ceci, mais la prochaine fois donne un fichier cela sera plus simple

fred

Sub ListeLiensClasseur()
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Contrôle_classeur").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Contrôle_classeur"
i = 6
For Each h In Sheets("Couverture").Hyperlinks
ActiveSheet.Cells(i, 1) = h.TextToDisplay
ActiveSheet.Cells(i, 2) = h.Address
i = i + 1
Next h
Cells.EntireColumn.AutoFit
End Sub

Bonjour

Je viens de tester ta modif de macro. Merci beaucoup pour ton aide Fred.

Ok pour le fichier mais il pèse lourd

Bonjour

pour donner un fichier test nul besoin de fournir le fichier original, donner par exemple un fichier avec l'onglet en question avec une dizaine de lignes (de liens) et avec un onglet ou deux suplémentaires avec la suppression de la plupart des données et surtout la suppression des données confidentielles.... ce qui fait que le fichier test serais assez leger...

maintenant merci justement de cliquer sur le V en vert sur cette réponse (en haut a droite)

fred