XL 2016 LIENS HYPERTEXTES

grandsire · 24 Décembre 2019

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 · 24 Décembre 2019

Bonjour grandsire, bienvenue sur XLD,

Pour tester les liens de la feuille active :

VB:

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+

XL 2016 LIENS HYPERTEXTES

grandsire

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires