Ouvrir pdf a partir boite de dialgue

bonjour,

ce code m'ouvre une boite de dialgue mais quand je clic sur le fichier il ne s ouvre pas .

j'ai du zapper quelque chose.

Private Sub CommandButton5_Click()
Dim Fichier As Variant
    ChDrive "C"
    ChDir "C:\E-Crint\Archive Crint"
    Fichier = Application.GetOpenFilename("PDF (*.pdf*), *.pdf*") 'affichage boite de dialogue pour choisir un document

    If Fichier = False Then Exit Sub

End Sub

Bonjour le forum

J'ai trouvé , j'avais oublié cette ligne pour ouvrir le fichier

ActiveWorkbook.FollowHyperlink Fichier