XL 2016 Comment réduire la taille d'un fichier pdf enregistré depuis excel

[MINIZ]

Bonjour,
j'ai créer un petit programme en vba qui m’enregistre une feuille A4 de classeur en pdf. Tout fonctionne sauf que le fichier pdf avoisine les 400ko et que le serveur où je dois upload mon fichier m'autorise 200ko max.
Avez vous une idée?
J'ai essayé en passant par imprimer => imprimante "pdf creator" cela me donne 48Mo sauf que je préfère la solution d'enregistrer sous .pdf car je peux enregistrer et donner le nom que je veux...
Ce petit programme est à destination d'une personne qui ne maîtrise pas l'informatique.

voici mon code pr enregistrer en pdf

Sub ImprimePDF()
Dim numfacture As Integer
'Enregistre le fichier excel
        ActiveWorkbook.Save
'Imprime en PDF et rajoute le numéro de facture
    Dim fichier As String
    fichier = "D:\Factures\Facture-" & "-" & [F2].Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[zebanx]

zebanx, je viens de telecharger ton code;
lorsque je l'execute il me sort un fichier de 87ko pr la plage B2:B7
par contre si je passe la plage à A1:B7 je me retrouve avec un fichier de 167ko

As tu une idée je tourne en rond et comprend tjrs pas pourquoi ca ne fonctionne pas?
Merci

Re-
Quel code ? Le #29 ?
Celui-là, sur une plage plus longue, il grimpe effectivement relativement vite (suis arrivé à 192KO sur une matrice 12 colonnes et 40 lignes).
Donc dans le cas qui vous occupe, je continuerai à privilégier pdf.creator avec la version indiquée et qui fonctionne bien.

Et n'ayant pas de réponse à la question du "pourquoi le pdf consomme-t-il des octets ?", soit ça a déjà été traité sur le forum (ie : RECHERCHER en haut à droit) ou sinon il faut chercher sur la toile voire poser une question à Microsoft directement.

Encore une fois, je ne suis pas spécialiste. Même si je comprends que les tests de comparaisons sont nécessaires.
(Et là, j'ai été "dosé" )

Bonne soirée.