Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Siret As String
Dim CheminDOc As String
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(&H5)
Set objFolderItem = objFolder.Self
CheminDOc = objFolderItem.Path
Siret = Target
If Siret <> "" Then
Shell "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & CheminDOc & "\" & Siret
Else
MsgBox " La cellule est vide, veuillez double cliquer sur une autre cellule"
End If
End Sub