Tester la validité des liens hypertextes
seblg29
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais tester la validité de mes liens hypertextes, et s'il fonctionne qu'une couleur blanche soit renvoyée s'il fonctionne et rouge si cela ne fonctionne pas.
J'ai écris le code ci-dessous :
Sub Test()
Dim sht As Worksheet, rng As Range
Set sht = ThisWorkbook.Worksheets("D18")
For Each rng In sht.Range("E30:E35")
With rng
If Len(.Value) Then
If IsFileExist(.Value) Then .Interior.Color = vbWhite Else .Interior.Color = vbRed
End If
End With
Next
End Sub
Avec la fonction :
Function IsFileExist(FileName As String) As Boolean
IsFileExist = (Dir(FileName) <> "")
End Function
Or le code me renvoi systématiquement la couleur rouge...
Pourriez vous me dire quel est le problème ?
vous en remerciant par avance,
Cdt,
J'aimerais tester la validité de mes liens hypertextes, et s'il fonctionne qu'une couleur blanche soit renvoyée s'il fonctionne et rouge si cela ne fonctionne pas.
J'ai écris le code ci-dessous :
Sub Test()
Dim sht As Worksheet, rng As Range
Set sht = ThisWorkbook.Worksheets("D18")
For Each rng In sht.Range("E30:E35")
With rng
If Len(.Value) Then
If IsFileExist(.Value) Then .Interior.Color = vbWhite Else .Interior.Color = vbRed
End If
End With
Next
End Sub
Avec la fonction :
Function IsFileExist(FileName As String) As Boolean
IsFileExist = (Dir(FileName) <> "")
End Function
Or le code me renvoi systématiquement la couleur rouge...
Pourriez vous me dire quel est le problème ?
vous en remerciant par avance,
Cdt,
A voir également:
- Tester la validité des liens hypertextes
- Flash drive tester - Télécharger - Divers Utilitaires
- Tester son pc - Guide
- Créer un lien pour partager des photos - Guide
- Tester composant pc - Guide
- Vérificateur de liens - Guide
Non, je pensais que la macro fonctionnerait sur des dossier et fichiers. En effet, ici l'idee est de vérifier que les liens renvoient bien vers des dossiers C\Users\Documents , ou des fichiers (C\Users\Documents\monFichier.xxx ).
Cependant, peu importe le cas ici (dossier ou fichier), elle renvoi une cellule rouge.
Cdt,
Dans une cellule, j'ai mis le nom d'un fichier sans son chemin, j'applique la macro et la cellule devient rouge.
Je recommence l'expérience mais en prenant soin d'y incorporé le chemin en entier, cette fois-ci la cellule devient blanche, donc ça marche.
Car moi cela ne fonctionne pas...