Discussion :

[ZeitnotZatopek]

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

[joe.levrai]

Bonjour,

et comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cellule.Hyperlink.Follow NewWindow:=True

[ZeitnotZatopek]

Bonjour Joe,

J'ai testé la ligne par un copier coller, en éliminant donc la ligne du programme et j'ai :

erreur d'exécution '438'

Propriété ou methode non gérée par cet objet.

Il faut donc trouver autre chose.

merci tout de meme.

[joe.levrai]

Au temps pour moi, ma proposition ne semble pas compatible avec un range

en analysant les autres procédures, je me rend compte que ta variable adresse ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To Lig
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), Address:=Adresse
  Next

est instanciée nulle part dans ce que tu as montré

quand tu fais un clic droit sur le ligne hypertexte dans Excel, tu vois bien le chemin menant au document ?
quand tu clic manuellement sur le lien, ça fonctionne au moins ?

[ZeitnotZatopek]

Bonjour,

En réponse aux deux questions :

Manuellement :
1/ sur clic droit je vois bien l'adresse
2/sur clic gauche, je vais directement, d'ailleurs, en passant sans cliquer ma souris au dessus de ces cellules, c'est "la main", qu'on voit, chose donc normale.

merci

[ZeitnotZatopek]

Bonjour,

Suite à la Remarque de Joe, j'ai trouvé une solution, douteuse, mais qui fonctionne.
Les liens sont sur la colonne 4 et 5.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  For i = 1 To Lig
        Adresse = Cells(i, 5).Offset(1, 0).Value
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), Address:=Adresse
  Next

merci