XL 2021 VBA _ Fermer un PDF

[Laurent.]

Bonjour,

Je souhaite fermer des PDF après leur création.
J'ai inclus le code de patricktoulon (merci !) trouvé dans une autre discution :

Sub CloseAllAppPDF()

Dim process
Set objWMI = GetObject("winmgmts:root\cimv2")
sQuery = "Select * from Win32_process"
For Each process In objWMI.execquery(sQuery)
If InStr(1, process.Name, "Acrobat") Then process.Terminate
Next
Set objWMI = Nothing

End Sub

Tout fonctionne mais j'ai une erreur d’exécution '-214721406(80041002)' non trouvé.

J'ai laissé dans mon code en commentaire d'autres solutions qui ne fonctionne pas pour moi :

CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

VBA.Interaction.Shell ("TASKKILL /F /IM excel.exe")

(Et j'ai inclus On Error Resume Next en dépannage)

Pouvez-vous m'aider ?

Laurent

 

[nullosse]

Je souhaite fermer des PDF après leur création.
Pouvez-vous m'aider ?

Salut,
la macro que tu utilises pour exporter et ouvrir le pdf créé utilise le lecteur PDF par défaut. Chez moi c'est Microsoft Edge. Dans la ligne de commande qui est utilisé pour ouvrir le PDF , il y a le nom du classeur .pdf . Avec ce code :

Sub CloseAllAppPDF()
'On Error Resume Next
    Dim process
    Set objWMI = GetObject("winmgmts:root\cimv2")
    sQuery = "Select * from Win32_process"
    For Each process In objWMI.execquery(sQuery)
       If InStr(1, process.CommandLine, ThisWorkbook.Name & ".pdf") Then
          Debug.Print process.CommandLine
          process.Terminate
       End If
    Next
    Set objWMI = Nothing
End Sub

on repère le process qui a le nom du pdf généré dans sa ligne de commande .
Pour moi par exemple c''est :

"C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" --single-argument C:\Excel\0000_0.xlsm.pdf

Nullosse