Lien dans Userform vers autre fichier Excel
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:
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
