Test de liens hypertexte sous excel

celablayne -  
tompols Messages postés 1325 Statut Contributeur -
Bonjour,

Je travaille sur un fichier excel contenant un certain nombre de liens hypertexte vers d'autres documents.
Je cherche à automatiser la vérification de la validité de chaque lien avec une macro en VBA.

Une idée pour faire un test sur le lien pour vérifier qu'il fonctionne mais sans y aller ?

Merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
tompols Messages postés 1325 Statut Contributeur 435
 
Bonjour,
un exemple pour la feuille 1 : 
Set fso = CreateObject("Scripting.FileSystemObject")

For Each h In Worksheets(1).Hyperlinks
    If fso.FileExists(h.Address) = False Then MsgBox "File not found" &  vbcrlf &  h.Address 
Next
1