Bonjour à tous,

je teste les liens hypertextes, contenues dans une colonne d'une feuille excel, qui sont rattachés à l'internat d'une entreprise. le principe est simple: à chaque cellule, on verifie si un lien hpertexte existe et si oui, on l'ouvre et le ferme aussitot. Si impossible de l'ouvrir, cette cellule est colorisée et on passe à la suite de l'opération. Voici le 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub TestLienURL()
 
'ANALYSE ET DETECTION PB OUVERTURE LIEN
 
Dim Maplage As Range
Dim Cellule As Range
Dim Message As String
Dim i As Integer
 
Application.DisplayAlerts = False 'Désactive les messages d'erreur
 
'Effacement couleur cellule
    Sheets("Manuel de processus").Select
    Columns("f").Select
    Selection.Interior.ColorIndex = xlNone
 
Set Maplage = ActiveSheet.Range("f5:f65536")
 
On Error GoTo GestionErreur 'quand excel rencontre l'erreur, il va lire la ligne GestionErreur
 
For Each Cellule In Maplage 'pour chq cellule ds la plage
URL_A_TESTER = Cellule.Value 'Verifie le lien
    If (IsEmpty(URL_A_TESTER)) Then 'si le lien URL n'existe pas alors
    Call Arret 'appelle procédure Arrêt
    Else 'Sinon
    Set fich = Workbooks.Open(URL_A_TESTER)  'ouvre l'URL
    fich.Close (False) 'ferme l'URL
    End If
Next Cellule 'Va à la cellule suivante
 
MsgBox "La vérification est terminée"
Exit Sub
 
GestionErreur:
Cellule.Interior.ColorIndex = 38 'colorie la cellule en cas d'erreur
Resume Next 'reprend à la ligne suivante
 
Application.DisplayAlerts = True 'Réactive les messages d'erreur
 
End Sub
 
Sub Arret()
 
Exit Sub
End Sub
Or en ouvrant certaines fichiers .xls et/ou .doc en lecture seule, ces liens fonctionnent bien mais ce macro détecte en eux une erreur et colorise ces cellules...pourquoi?
Et aussi en relançant ce macro, il se plante 1 sur 2?!?

Remarque, pour les fichiers .pdf, ça fonctionne très bien!

Merci de votre aide