Peut-être me trompe-je mais Fred parle d'une case qu'il a créée (comment, je l'ignore) et que lors d'un click sur celle-ci, son fichier s'ouvre. Donc j'optérais pour un tit code comme celui-ci à placer dans la feuille :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A2')) Is Nothing Then 'A adapter à ta cellule
Workbooks.Open Filename:='C:\\1\\Classeur2.xls' 'A adapter également
End If
End Sub
Non non ta façon de faire ne m'a pas du tout gênée. Sauf qu'à la lecture j'avais pris pour argument qu'il s'agissait de cliquer sur une cellule et non sur un lien visible, c'est tout. De plus cela est confirmé dans un post plus haut où Fred dit avoir placé un bouton de contrôle.