Vérifier les liens en erreur dans Excel

Bonjour,

J'ai un fichier Excel contenant de nombreux liens vers des documents situés sur notre serveur d'entreprise.

Il arrive que ces documents soit renommés ou déplacés, ce qui fait que les liens menant à ces documents se retrouvent en erreur.

Ma question est donc : comment puis-je tester ces liens dans mon fichier Excel afin de savoir lesquels sont en erreur ? Il y en a plus de

1000, je ne le ferai donc pas manuellement.

Je précise qu'il s'agit bien de liens hypertextes vers des dossiers sur un serveur, et non pas vers des pages web.
J'ai trouvé sur différents forums des messages proposant des solutions avec du code VBA, mais aucune ne fonctionne (ou alors je m'y
prends mal).

Je suis sur Windows 10 Professionnel, Excel 2016.

Merci par avance. :)

Bonjour Rhadamante et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- de citer une phrase (" ")
- ou de clôturer un fil lorsque vous avez terminé (V)

Voici un code possible

Sub ControlerLiens()
  Dim Sht As Worksheet, Cel As Range
  Dim dLig As Long
  Set Sht = ThisWorkbook.ActiveSheet
  ' Si les liens sont dans la colonne A
  dLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
  ' Pour chaque cellule
  For Each Cel In Sht.Range("A2:A" & dLig)
    ' Vérifier si existe un lien Hypertexte
    If Cel.Hyperlinks.Count > 0 Then
      ' Contrôler si le fichier de ce lien existe
      If Dir(Cel.Hyperlinks(1).Address) <> "" Then
        ' Si fichier trouvé OK
        Cel.Interior.Color = xlNone
      Else
        ' Sinon cellule en rouge
        Cel.Interior.Color = vbRed
      End If
    End If
  Next Cel
End Sub

Merci pour votre participation

Cordialement

Bonjour Bruno,

C'est parfait ça fonctionne, un grand merci à vous !