Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim NomFic As String, DateFic As Date, MeilDateFic As Date, MeilNomFic As String
If Target.Column <> 4 Or Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
NomFic = Dir(Target.Value & "*")
Do While NomFic <> ""
DateFic = FileDateTime(NomFic)
If DateFic > MeilDateFic Then MeilDateFic = DateFic: MeilNomFic = NomFic
NomFic = Dir: Loop
If MeilNomFic <> "" Then
ThisWorkbook.FollowHyperlink MeilNomFic
Else
MsgBox "Il n'existe aucun fichier """ & Target.Value & "*"" sur" & vbLf & CurDir, vbCritical, "Double clic sur nom de fichier"
End If
End Sub