XL 2016 LIENS HYPERTEXTES

[grandsire]

Bonjour ,j'ai un fichier excel avec dans une colonne, plus de 3000 liens hypertextes .
Dans cette liste j'ai des liens qui sont cassés car certains fichiers source ont du etre déplacés dans d' autres dossiers.
Comment savoir sans ouvrir un par un les liens qui ne sont plus bons .
MERCI

 

[job75]

Bonjour grandsire, bienvenue sur XLD,

Pour tester les liens de la feuille active :

Sub TesterLiens()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
    If Dir(h.Address) = "" And Dir(ThisWorkbook.Path & "\" & h.Address) = "" Then MsgBox "En " & h.Parent.Address(0, 0), , "Lien non valide"
Next
End Sub

Le fichier doit être enregistré.

A+