Bonjour

J'ai un listbox dans un userform et je souhaite mettre dans cette listbox des liens vers un autre fichier Excel.
Je n'ai aucun problème pour mettre un lien vers un document Word ou vers un site Web mais vers un fichier Excel... Excel se plante et seul le gestionnaire de tache arrive a me sortir de là....
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
 
Private Sub ListBox_Click()
'Permet de definir les adresses des liens hypertexte dans la listBox
    hyperlien
    'DeclencheLien Range("P1")'autre astuce trouvé sur le web qui consiste a mettre un lien hypertexte dans une cellule, mais vers Excel ça plante aussi 
End Sub
 
Sub hyperlien()
'Un lien comme ci-dessous, pas de problème ça marche
'lien = "http://http://www.developpez.net/"
'un lien vers un fichier Word ça marche également
'lien = "C:\Mes Documents\Toto.doc"
'un lien vers un fichier Excel ça plante avec NewWindow=true ou = false
lien = "C:\Mes Documents\Toto.xls"
On Error GoTo Fin
    ThisWorkbook.FollowHyperlink Address:=lien, NewWindow:=True
    Unload Me
    Exit Sub
Fin:
    MsgBox "Impossible d'ouvrir le lien  " & lien
End Sub
Merci de votre aide