vba diminuer poids pdf

Bonjour,

Je dois manipuler des pdf depuis un userform excel. L'un des pdf me pose problème car c'est juste 1 page qui contient 1 image mais qui fait 10Mo... Comment puis je coder en vba une automatisation pour réduire le poids svp ?

Merci !

[edit : je précise que j'ai adobe acrobat]

Bonjour mosar3, le forum,

Si tu n'as qu'un fichier qui pose problème, tu peux essayer avec des outils en ligne pour le compresser (celui d'Adobe compresse pas mal).

Si tu veux automatiser ce traitement, une solution possible consisterait à utiliser Ghostscript.
Une fois installé, on peut l'utiliser facilement en ligne de commande. Par exemple, pour compresser un pdf (l'emplacement de l'exécutable, du fichier output et du fichier input sont à adapter) :

Code:

---

"C:\Program Files\gs\gs10.04.0\bin\gswin64.exe" -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dPDFSETTINGS=/default -sOUTPUTFILE="C:\fichier-compressed.pdf" "C:\fichier.pdf"

---

Ce qui donnerait en VBA :

Code:

---

1 2 3 4 5

Sub Test() Dim wshShell As Object Set wshShell = CreateObject("WScript.Shell") wshShell.Run """C:\Program Files\gs\gs10.04.0\bin\gswin64.exe"" -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dPDFSETTINGS=/default -sOUTPUTFILE=""C:\fichier-compressed.pdf"" ""C:\fichier.pdf""", 0, True End Sub

---

J'utilise cette solution. Elle marche très bien sur les pdf issus de numérisation notamment.

A+

Hello,
pour plus de compression on peut mettre par exemple l'option ebook :

Code:

---

1 2 3 4 5 6 7 8

Sub CompressionPDF() Dim wshShell As Object Dim FicPDF As String, CompressedPDF As String FicPDF = "d:/Temp/Ci.PDF" CompressedPDF = "d:/Temp/CompFic.PDF" Set wshShell = CreateObject("WScript.Shell") wshShell.Run """C:\Program Files\gs\gs10.04.0\bin\gswin64.exe"" -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dPDFSETTINGS=/ebook -sOUTPUTFILE=""" & CompressedPDF & """ """ & FicPDF & """", 0, True End Sub

---

Avec Cette option mon fichier source PDF qui contient des photos et qui a une taille de 2 Mo passe à 220k et pas de grosse dégradation.

Ami calmant, J.P

Merci pour la solution mromain c'est tout bon pour moi :D
jurassic pork c'est bizarre mais quand je teste avec l'option ebook ça rajoute quelques dizaines de Ko par rapport à l'option default... ça doit dépendre des documents, en l'occurence c'est un fichier de 10Mo contenant 1 seule image...