Imprimer les PDF d'un dossier depuis Excel

Sub Ferme_PDF()
       Dim Wk As Workbook
       Set Wk = Workbooks("MATRICE FIDELIA TVA 101.xlsm") ' mettre  ici le nom du fichier xlsm qui ferme le pdf
       Call Fermer_Un_Programme("AcroRd32.exe")
       Wk.Activate
End Sub 

Application.Wait (Now + TimeValue("0:00:01"))

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'imprimer fichier PDF depuis EXCEL
Sub Imprimer_Fichier()
    Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String, Acrobat, Chemin As String, NFichiers As Byte
    
    Chemin_Fichier = "D:\Session_Cyril\Mes documents\"
    x = FindWindow("XLMAIN", Application.Caption)
    Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")
    'boucle nom de fichier PDF
    Do While Nom_Fichier <> ""
        ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1
        'attente
        Application.Wait (Now + TimeValue("0:00:02"))
        Nom_Fichier = Dir
    Loop
    'attente
    Application.Wait (Now + TimeValue("0:00:02"))
    Call Fermer_Un_Programme("AcroRd32.exe")
End Sub

Sub Fermer_Un_Programme(Prog As String)
    Dim StrComputer As String, objWMIService As Object, objProcess, colProcessList
    
    StrComputer = "."
    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