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

 

[wDog66]

Bonjour

Bonjour,

Je souhaite fermer des PDF après leur création.

Quelque chose m'échappe... pourquoi demander leur ouverture alors 🤔

OpenAfterPublish:=True

a remplacer par

OpenAfterPublish:=False

tout simplement

 

[Laurent.]

Bonjour,

​

@wDog66 :

Merci beaucoup pour cette réponse, cela parait tellement évident... Gain de temps, de code.
Je suis confus de ne pas y avoir pensé.

Et merci aux autres pour leur contribution.

 

[wDog66]

Bonjour,

Merci beaucoup pour cette réponse, cela parait tellement évident... Gain de temps, de code.
Je suis confus de ne pas y avoir pensé.

Et merci aux autres pour leur contribution.

De rien, nous sommes là pour ça 😜

Par contre je suis souvent surpris par "l'artillerie lourde" que certains sortent directement 🫣
Pourquoi faire simple quand on peut/veut faire compliqué 🥴

 

[Laurent.]

"je suis souvent surpris par..."

On sort du sujet, mais je vois 2 raisons (pour moi) :
1) Il n'y a pas de cahier des charges (ou pas assez précis) de ce que je veut faire et/ou il n'est pas repris en cas de modification.
2) Je fait de "l'assemblage" de fonction sans rentrer dans le paramétrage, voire parfois sans comprendre leur fonctionnement.

Heureusement il y a le forum... 😊