VBA - Fermer un fichier PDF

Sub Fermer_Un_Programme(Prog As String)
 Dim StrComputer As String, objWMIService As Object
 StrComputer = "."
 On Error Resume Next
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
 Set colProcessList = objWMIService.ExecQuery _
     ("Select * from Win32_Process Where Name = '" & Prog & "'")
 For Each objProcess In colProcessList
     objProcess.Terminate
 Next
 End Sub
 
 Sub Ferme_PDF()
 Dim Wk As Workbook
 Set Wk = Workbooks("ouvrir_pdf.xls") ' mettre ici le nom du fichier xls qui ferme le pdf
 Call Fermer_Un_Programme("AcroRd32.exe")
 Wk.Activate
 End Sub