Test sur hyperlink

Version imprimable

03/08/2007, 16h32
zoidy

Test sur hyperlink

Salut à tous,

Question toute simple : comment fait-on pour tester si le contenu d'une cellule est un lien hypertexte ou pas ?
Question à 20 points : est-il possible de tester si l'hyperlink mène vers un fichier existant ? Si oui, comment ?

Voilà, merci à vous :king:
03/08/2007, 23h08
jfontaine
Pour savoir si c'est un lien dans la cellule A4
Code:

1 2 3 4 5 6 if Range("A4").Hyperlinks.Count>0 then 'lien hypertexte else 'pas lien hypertexte end if
pour la deuxieme question, bah j'ai pas les 20 points ;)

bonjour

Tu peux tester la procédure suivante pour la deuxième question

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Test()
    MsgBox VerifHyperlink(Range("A1"))
End Sub
 
 
Function VerifHyperlink(Cellule As Range) As Boolean
    Dim Cible As String
 
    'Verifie si la cellule contient un lien hypertexte
    If Cellule.Hyperlinks.Count = 0 Then
        VerifHyperlink = False
        Exit Function
    End If
 
    'Extrait l'adresse du lien
    Cible = Cellule.Hyperlinks(1).Address
 
    'Verifie si le fichier existe sur le PC.
    '(Ne fonctionne pas pour les liens web).
    If Dir(Cible) <> "" And Cible <> "" Then
        VerifHyperlink = True
        Else
        VerifHyperlink = False
    End If
End Function

michel

06/08/2007, 11h55
zoidy

Merci pour votre aide les gars :king:

Le truc c'est que y'a certains liens web, mais apparemment, c'est pas possible de tester, donc tant pis.