VBA - Fermer un fichier PDF

[Aurianelm]

Bonjour tout le monde,

J'ai créé une macro permettant la création d'un fichier PDF (enfin de 99 avec la boucle) seulement j'aimerai qui les ferme au fur et à mesure car 99 fichiers PDF ouverts, c'est pas génial !

J'ai essayé le .Close qui évidemment ne fonctionne pas. Et en tant que débutante je ne vois pas d'autres options. Si vous avez des idées...

Merci par avance !

 

[gilbert_RGI]

Re : VBA - Fermer un fichier PDF

Bonjour

tester ce code à mettre dans un module standard

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