Tu peux utiliser cette macro, il faut juste que le fichier soit dans le même dossier
Sub Ouvrir_pdf()
Dim wb
'Je prend le nom du classeur et je retire l'extension
wb = Split(ActiveWorkbook.Name, ".")(0)
'J'ouvre le fichier pdf du même nom dans le même dossier
ThisWorkbook.FollowHyperlink wb & ".pdf"
End Sub
si le fichier n'est pas dans le même dossier
Sub Ouvrir_pdf()
Dim wb
'Je prend le nom du classeur et je retire l'extension
wb = Split(ActiveWorkbook.Name, ".")(0)
'J'ouvre le fichier pdf au chemin précisé
ThisWorkbook.FollowHyperlink "C:\dossier" & wb & ".pdf"
End Sub