Test de liens hypertexte sous excel

celablayne -  
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
Configuration: Windows XP
Firefox 3.5.6

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. tompols Contributeur
    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