Bonjour et merci d'avance,
Voici le programme :
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
 
Sub Liens()
 
Dim Lig As Long
 
    ActiveLiens
 
    For Lig = 1 To Selection.End(xlDown).Row
        DeclencheLiens Cells(Lig, 4)
    Next
 
End Sub
 
Sub ActiveLiens()
 
Dim Lig As Long, i As Long
Dim j As Integer
 
Lig = Cells(1, 1).CurrentRegion.Rows.Count
 
 i = 1
  Cells(i, 4).Select
  For i = 1 To Lig
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), Address:=Adresse
  Next
 
    Cells(1, 1).Select
 
End Sub
 
Sub DeclencheLiens(cellule As Range)
'Vérifie si la cellule contient un lien
If cellule.Hyperlinks.Count = 0 Then
    MsgBox "il n'y a pas de lien hypertexte dans la cellule " & cellule.Address
    Else
    'Déclenche le lien
    cellule.Hyperlinks(1).Follow NewWindow:=True
    DoEvents
End If
End Sub
Le programme reconnait qu'il s'agit bien de liens hypertexts, sinon j'aurais le msgbox
Manuellement, avec la souris, les liens hypertexts fonctionnent.

Merci de votre aide