Bonjour,
Je me tourne vers vous après avoir épluché quelques articles qui ne m'ont malheureusement pas aidé...
J'ai notamment utilisé cette discussion et un des codes sur ce forum. Mais je suis toujours coincée. J'aimerai pouvoir utiliser une macro qui permet de détecter des liens morts. Je suis en pleine mise à jour de documents qui contienne une petite centaine de liens hypertextes, c'est relativement fastidieux de les ouvrir un à un pour les vérifier. J'utilise ce code:
Qui ouvre un a un tout les documents associés aux hyperliens autrement dit absolument pas pratique quand on voit le nombre de documents liés. Je voulais savoir s'il y avait un moyen de ne pas ouvrir un à un chaque document? Mais également s'il y avait la possibilité de mettre en évidence les liens morts autrement que par une MsgBox, en changeant la couleur de fond de la cellule par exemple?
Merci d'avance pour toute l'aide que vous pourrez fournir, et bonne journée!
Je me tourne vers vous après avoir épluché quelques articles qui ne m'ont malheureusement pas aidé...
J'ai notamment utilisé cette discussion et un des codes sur ce forum. Mais je suis toujours coincée. J'aimerai pouvoir utiliser une macro qui permet de détecter des liens morts. Je suis en pleine mise à jour de documents qui contienne une petite centaine de liens hypertextes, c'est relativement fastidieux de les ouvrir un à un pour les vérifier. J'utilise ce code:
VB:
Private Sub CommandButton1_Click()
Dim hl As Hyperlink
For Each hl In ActiveSheet.Hyperlinks
On Error Resume Next
ActiveWorkbook.FollowHyperlink hl.Address
If Err.Number <> 0 Then
MsgBox "Erreur" & hl.Address
Err.Clear
End If
Next hl
End SubQui ouvre un a un tout les documents associés aux hyperliens autrement dit absolument pas pratique quand on voit le nombre de documents liés. Je voulais savoir s'il y avait un moyen de ne pas ouvrir un à un chaque document? Mais également s'il y avait la possibilité de mettre en évidence les liens morts autrement que par une MsgBox, en changeant la couleur de fond de la cellule par exemple?
Merci d'avance pour toute l'aide que vous pourrez fournir, et bonne journée!
Dernière édition: