Affichage hyperlien

Bonjour à tous.

J'ai une macro pour valider les hyperliens dans un fichier XSLX. La macro créer une feuille indiquant les hyperliens qui ne fonctionnent pas.

Je voudrais la modifier pour que l'adresee de la cellule soit aussi inclus dans la feuille "IBadHypLnks".

Sub ChkHypLnks()
Dim wksHypLnks, wksBadHypLnks As Worksheet
Dim curHypLnk As Hyperlink
Dim curFile As String
Dim iBadHypLnks As Integer

Set wksHypLnks = ActiveSheet
Set wksBadHypLnks = ThisWorkbook.Worksheets.Add

wksBadHypLnks.Name = "BadHypLnks" _
& Right(wksBadHypLnks.Name, Len(wksBadHypLnks.Name) - 5)

For Each curHypLnk In wksHypLnks.Hyperlinks
If Dir(curHypLnk.address) = "" Then
iBadHypLnks = iBadHypLnks + 1
wksBadHypLnks.Cells(iBadHypLnks, 1) = curHypLnk.address
End If
Next curHypLnk
Application.DisplayAlerts = False
If iBadHypLnks < 1 Then wksBadHypLnks.Delete
Application.DisplayAlerts = True
End Sub

Merci de votre support

Pour être plus clair j'ai besoin de l'adresse de la cellule où se situe l'hyperlien problématique.

Merci :)

Hello,

curHypLnk.address

donne l'adresse du lien

curHypLnk.Range.Address

donne l'adresse de la cellule du lien

Merci beaucoup. Ca fonctionne