Vérification des liens hypertextes [Excel]

Question

Bonjour à tous,

J'ai créé une base de données qui comprend des liens hypertextes automatiques (=LIEN_HYPERTEXTE("emplacement du lien ; nom convivial))
De ce fait, je ne peux pas voir si mes liens existent ou pas à moins que je clique dessus,

Ayant plus de 90 liens, j'aimerais automatiser la vérification et mettre en place une fonction VBA qui afficherait dans la cellule à côté si le lien mène a un fichier ou pas,

Pourriez-vous m'aider ?

Merci d'avance

Raymond PENTIER · Answer

Salut.
Je ne crois pas que cela existe ...

cs_Le Pivert · Answer

Bonjour,

en vba à adapter:

Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Set FL1 = Worksheets("Feuil1")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
  'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("A1:E15") 'a adapter la plage de recherche
        For Each Cell In Plage
          If Cell.Hyperlinks.Count > 0 Then
     Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address   'adresse du lien dans la cellule à droite
    End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Vérification des liens hypertextes [Excel]

2 réponses

Discussions similaires

Newsletters