Discussion :

[stdonat]

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

[Philippe Tulliez]

Bonjour,
J'ai fait un test (version Excel 2010) avec ton code mais en utilisant un autre lien (fichier xls) et je n'ai pas eu de problème.
Le test a été réalisé dans un module standard (pas dans un UserForm. J'ai donc mis en remarque la ligne contenant l'instruction Unload Me

[stdonat]

Bonsoir

Je dois peut être préciser, que si clic sur un lien Hypertexte dans une feuille excel et que ce lien pointe vers un autre fichier Excel j'ai toujours une fenêtre


ceci explique peut être mon probléme