Imprimer une feuille PDF après ouverture

[ergastule]

Bonjour à tous

J'ouvre des fichiers au format PDF à partir d'une feuille EXCELL avec l'instruction suivante

Dim Val As String
Val = Range("Essai").Value
ThisWorkbook.FollowHyperlink "C:\Users\Jean Louis\Documents\Matrices JL Duboc\Essai ouverture fichier\" & Val & ".pdf"
End Sub

qui fonctionne très bien

je souhaiterais pouvoir programmer la possibilité d'imprimer le fichier une fois celui ci ouvert avec une boite de dialogue

du type Voulez vous imprimer le document O/N

Merci beaucoup d'avance

Très cordialement