bonjour,
new membre sur le forum, je dois tester un fichier avec des liens hypertexte, voir s'ils fonctionnent ou s'ils sont morts. comme il y en a beaucoup, je voulais faire une macro, qui teste les liens.

en cherchant sur le forum, j'ai trouvé plusieurs fois ce code cité:
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
Function VerifHyperlink(Cellule As Range) As Boolean
    Application.Volatile
    Dim Cible As String
 
    'Vérifie si la cellule contient un lien hypertexte
    If Cellule.Hyperlinks.Count = 0 Then (ligne 16)
        VerifHyperlink = False
        Exit Function
    End If
 
    'Extrait l'adresse du lien
    Cible = Cellule.Hyperlinks(1).Address
 
    'Vérifie si le fichier existe.
    '(Ne fonctionne pas pour les liens web).
    If Dir(Cible) <> "" And Cible <> "" Then
        VerifHyperlink = True
        Else
        VerifHyperlink = False
    End If
End Function
seulement, je débute et même avec ce code ça me mets soit tous le liens bons ou tous faux.
faut-il ajouter quelque-chose entre les " " de la ligne If Dir(Cible) <> "" And Cible <> "" Then,
les fichiers ne sont pas tous rangés dans le même dossier?