Option Explicit
'Dans le haut du module, déclaration de l'API
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Ouvrir_Un_Fichier_PDF()
Dim Fichier As String, NomFichier As String, Chemin As String
NomFichier = [I5].Value & ".pdf"
Chemin = "I:\VBA - Fichiers\" 'tu adaptes cette ligne à ton chemin
Fichier = Chemin & NomFichier
If Dir(Fichier) <> "" Then
ShellExecute 0, "open", Fichier, "", "", 0
Else
MsgBox "Fichier inexistant."
End If
End Sub