Détecter si lien ou pas

[Fanfan68]

Bonjour à tout le forum,

Je vous fais part de mes deux questions :

Je cré dans les cellules d'une colonne des liens automatiquement mais certaines cellules de cette colonne, ne contiennent pas de liens, ma première question est la suivante :

Quelle code mettre pour détecter si une cellule de cette colonne contient ou pas un lien ?

Ma seconde question est la suivante :

Est-il possible de détecter si le document ou est sensé pointer le lien, n'existe plus en l'endroit initial ou le lien pointait ?

Merci à tout le monde

 

[MichelXld]

Re : Détecter si lien ou pas

bonsoir

tu peux tester cette pprocédure

Dim Resultat As String
If Range("A1").Hyperlinks.Count = 0 Then
    
    MsgBox "il 'y a pas de lien hypertexte dans la cellule A1"
    
    Else
    
        'Vérifie si le lien (un fichier stocké sur le disque) existe
        If Dir(Range("A1").Hyperlinks.Item(1).Address) <> "" Then
            Resultat = " Valide dans la cellule A1:"
            Else
            Resultat = " Non valide dans la cellule A1:"
        End If
    
    MsgBox "il y a un lien hypertexte" & Resultat _
    & vbLf & Range("A1").Hyperlinks.Item(1).Address
End If

bonne soirée
MichelXld

 

[Fanfan68]

Re : Détecter si lien ou pas

Merci Michel,

C'est super, c'est ce que je voulais

A bientôt.......certainement......

 

[Luki]

Re : Détecter si lien ou pas

Fanfan a créé un nouveau fil pour la suite du problème,

La suite est ici