Bonjour à tous,

Alors voila mon soucis:
J'ai un fichier contenant des liens hypertext ouvrant d'autres fichiers Excel eux même situés dans des sous dossier du dossier contenant le "dossier mère".
Le problème c'est que au démarrage il me demande la mise à jour des liaisons, et lorsque que je la demande il me met qu'il y a des probèmes de liaisons avec le message : "Ce classeur contient une ou plusieurs liaisons qui ne peuvent être mises à jour"
Or lorsque je clique sur les liens, il n'y a aucun soucis.
Pour vérifier, j'ai donc trouvé sur internet ce code
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
Sub Test_page_Web_2()
Dim h As Hyperlink, I As Integer, J As Integer
I = 1
J = 1
For Each h In ActiveSheet.Hyperlinks
On Error GoTo ErrorHandler
Set fich = Workbooks.Open(h.Address) 'ouvre l'URL
fich.Close (False) 'ferme l'URL
Range("A" & I) = "l'URL " & h.Address & " est valide"
I = I + 1
Suite:
Next
Exit Sub
ErrorHandler:
Range("B" & J) = "l'URL " & h.Address & " ne peut pas être ouvert"
J = J + 1
Err.Clear
GoTo Suite
End Sub
qui permet normalement de repérer les liens morts et ceux qui fonctionnent encore.
Mais à part pour le premier lien où il me met bien qu'il ne peut pas être ouvert, pour le suivant (et pour tous) il me met un bug dans la macro (erreur 1004) en disant que le fichier n'existe pas (alors que tout fonctionne normalement en cliquant dessus).

Quels'un aurait une idée de comment trouver les liens morts (sachant que mon but est de les supprimer au final)?
Pourquoi la macro précédente de fonctionne pas?

Merci d'avance
tioch