Test de liens hypertexte sous excel

celablayne -  
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1.
    tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    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