Discussion :

[zoidy]

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

[jfontaine]

Pour savoir si c'est un lien dans la cellule A4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zoidy]

Merci pour votre aide les gars

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