Validation d'un hyperlien

Le 16/12/2020 à 20:01

Bonjour.

Apres plusieurs recherches ne ne réussi pas à trouver ce que je veux faire. J'ai un fichier avec +- 4000 hyperlien. (Collonne B). Je voudrais valider si chaque hyperlien est valide et qu'il me renvoie le résultat dans une autre cellule (true/ false).

Merci de votre support.

Le 16/12/2020 à 20:10

Bonjour,

essaye le code suivant :

For i = 1 to activesheet.usedrange.rows.count
    If Len(Dir(activesheet.cells(i,2).Hyperlinks(1).Address")) = 0 Then
      ' chemin non valide
    End If
Next i

Le 17/12/2020 à 13:57

Bonjour. J'ai malheureusement une erreur de compilation avec le code envoyé.

Je ne peux malheureusement pas t'envoyer le fichier car il contient des données "sensibles". Mon hyperlien est une formule :=HYPERLINK(G20, F20)

Public Sub CheckForBrokenLinks()

'*********************************
' Module pour validation hyperlien
'**************************************

For i = 1 To ActiveSheet.UsedRange.Rows.Count
    If Len(Dir(activesheet.cells(i,2).Hyperlinks(1).Address")) = 0 Then 'chemin non valide'
    End If
Next i

End Sub

Merci et bonne journée :)