Discussion :

[mosar3]

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]

[mromain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 "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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[jurassic pork]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mosar3]

Merci pour la solution mromain c'est tout bon pour moi
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...