Bonjour à tous.
J'ai une cellule dont la fonction est : =HYPERLINK(F1487, E1487)
La cellule E1487 renvoi à un chemin d'accès qui a comme valeur : file:///\\Log_Sondage\Bât_89_tableaux_cumulatifs_récup.pdf
Je cherche à valider si les hyperliens sont valides pour une feuille au complet (plus de 2000 cellules à valider). Les cellules à valider sont toutes dans la même colonne.
Comme la cellule ne contient pas l'hyperlien directement, une formule comme celle plus bas ne fonctionne pas.
Set wksHypLnks = ActiveSheet
Set wksBadHypLnks = ThisWorkbook.Worksheets.Add
wksBadHypLnks.Name = "BadHypLnks" _
& Right(wksBadHypLnks.Name, Len(wksBadHypLnks.Name) - 2)
For Each curHypLnk In wksHypLnks.Hyperlinks
If Dir(curHypLnk.address) = "" Then
iBadHypLnks = iBadHypLnks + 1
wksBadHypLnks.Cells(iBadHypLnks, 1) = curHypLnk.Range.address
End If
Next curHypLnk
Application.DisplayAlerts = False
If iBadHypLnks < 1 Then wksBadHypLnks.Delete
Application.DisplayAlerts = True
End Sub
Merci de votre support.