En fait il existe une autre solution qui devrait fonctionner pour n’importe quel type de fichier (teste avec pdf et word):
Sub ouvrir()
ActiveWorkbook.FollowHyperlink "C:\mon_fichier.pdf"
End Sub
Cela suppose juste que cela soit un type de fichier connu (car il sera ouvert avec le programme par defaut pour ce type de fichier)