Bonjour
Voila un exemple par macro:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim classeur As Object
on error resume next
Set classeur = GetObject(Application.DefaultFilePath & "\" & Target.Value)
Windows(Target.Value).Visible = True
cancel=true
With classeur.Sheets(1)
.Cells(.Range("a65536").End(xlUp).Row + 1, 1).Select
End With
Set classeur = Nothing
if err<>0 then
msgbox "pas de fichier " & target & " dans " & application.defaultfilepath
err.clear
end if
End Sub
elle fonctionne sur un double click et la cellule concernée doit contenir le noms du fichier avec l'extension (toto.xls par exemple) et ce fichier doit ce trouver dans le chemin de sauvegarde par defaut.
@+Vincent