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..
Merci de votre aide
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
Partager