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