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]

Bonjour Miniz

Un petit code qui semble aller très bien pour exporter en PNG, beaucoup moins lourd.
Bien sûr la source de zone d'export est à modifier.

Et sa source de départ pour le code.

Macro pour sauvegarder un fichier en JPG ?

Je cherche à avoir une petite macro qui me permettrait de sauvegarder un morceau de tableau en jpg (ou gif...), plutôt que de Copier le tableau puis ouvrir u...

forum.excel-pratique.com

@+

Sub exportpng()
Dim Plage As Range

Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
                         Title:="Sélection de zone ", Default:="$A$1", Type:=8)

Application.ScreenUpdating = False
  Workbooks.Add
    Plage.CopyPicture
      ActiveSheet.Paste

With ActiveSheet.ChartObjects.Add(0, 0, _
                    Selection.Width, Selection.Height).Chart
    .Paste
    .Export "C:\Users\Duchateau\Desktop\Test.PNG", "PNG"
End With

ActiveWorkbook.Close False

End Sub

 

[Temjeh]

Bonjour

Aussi un autre conseil, réduit le poid de ta plage ou de ta feuille.
Surement dans ta plage il n'y a pas juste du texte!
Logo et autre.

Moi je sauvegarde mes factures en PDF (a1:i52) et le PDF a 22k.

A+

 

[MINIZ]

Bonjour

Aussi un autre conseil, réduit le poid de ta plage ou de ta feuille.
Surement dans ta plage il n'y a pas juste du texte!
Logo et autre.

Moi je sauvegarde mes factures en PDF (a1:i52) et le PDF a 22k.

A+

Bonjour, tu fais comment pour enregistrer en pdf en sélectionnant juste a1:i52?

 

[MINIZ]

Salut

Bonjour Miniz

Un petit code qui semble aller très bien pour exporter en PNG, beaucoup moins lourd.
Bien sûr la source de zone d'export est à modifier.

Et sa source de départ pour le code.

Macro pour sauvegarder un fichier en JPG ?

Je cherche à avoir une petite macro qui me permettrait de sauvegarder un morceau de tableau en jpg (ou gif...), plutôt que de Copier le tableau puis ouvrir u...

forum.excel-pratique.com

@+

Sub exportpng()
Dim Plage As Range

Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
                         Title:="Sélection de zone ", Default:="$A$1", Type:=8)

Application.ScreenUpdating = False
  Workbooks.Add
    Plage.CopyPicture
      ActiveSheet.Paste

With ActiveSheet.ChartObjects.Add(0, 0, _
                    Selection.Width, Selection.Height).Chart
    .Paste
    .Export "C:\Users\Duchateau\Desktop\Test.PNG", "PNG"
End With

ActiveWorkbook.Close False

End Sub

Salut, malheureusement je ne peux que transférer la facture en pdf ☹️

 

[zebanx]

Re-Miniz et bonjour à Temjeh

Ok pour la réponse #5 mais Temjeh a parfaitement raison, pour une simple facture la taille doit être beaucoup plus petite que cela.

Un exemple à 20K et pourtant il y a deux logos.
Données bidons bien sûr mais c'est une facture classique.

Il est possible que votre fichier concerne des images en BITMAP qui soient beaucoup trop lourdes.
A vous lire.

 

[Temjeh]

Juste ceci:
Edit: Bonjour zebanx

Chemin = "C:\Users\claud\Desktop\"
Set Plage = Range("A1:I52")
Plage.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & [F1].Value

 

[MINIZ]

Je comprend pas pourtant j'ai pas d'image, juste des calculs et des macros!!!
J'ai essayé la méthode de la plage mais ca ne change pas le poids ;-(

je vous joint le fichier si des fois cela vous aide.

Cordialement

 

[zebanx]

Re

Imprimé avec PDF CREATOR (gratuit). Le résultat est très loin des 400K0.

 

[Temjeh]

Je viens d'essayé ton export, chez-moi, 98K.

A+

 

[MINIZ]

Sur l’ordi de mon collègue et sur le miens j’obtiens 334Mo avec le fichier mis en pièces jointe. Temjeh as tu une explication?
Je comprend pas

 

[MINIZ]

Re

Imprimé avec PDF CREATOR (gratuit). Le résultat est très loin des 400K0.

Oui cette solution marche chez moi mais comment faire pour sauvegarder en pdf avec pdf créator le tout avec une commande vba?

 

[Dranreb]

Bonjour.
À tout hasard essayez en mettant devant

    Plage.Worksheet.PageSetup.BlackAndWhite = True

 

[MINIZ]

Bonjour.
À tout hasard essayez en mettant devant

    Plage.Worksheet.PageSetup.BlackAndWhite = True

Merci du conseil, ça fonctionne car le pdf est bien en blanc et noir mais j’ai tjrs 438 ko ;-(
Je désespère de trouver une solution pourtant chez vous ça marche

 

[zebanx]

Bonjour MINIZ, DRANREB, TEMJEH, le forum

Un code testé qui imprime avec une image supplémentaire pour 42Ko au final avec pdf creator
On peut imprimer une page ou toutes les pages sur le workbook.
Ici, choix du paramétrage : sheet.name + range("G2")

xl-ment