Discussion :

[popi33370]

Bonjour,

J'aurai besoin de pouvoir transformer tous les fichiers .jpg d'un répertoire en fichiers .pdf.

J'ai déjà essayé avec PDFCreator mais le résultat est catastrophique car une image jpg de 100 pixels de large est transformée en page A4 et c'est inutilisable.

Je suis donc à la recherche d'une macro qui permette de transformer un fichier .jpg en .pdf mais en tenant compte de sa taille relative par rapport au A4.

Merci d'avance pour vos idées

[Daniel.C]

Bonjour,

Je suis donc à la recherche d'une macro qui permette de transformer un fichier .jpg en .pdf mais en tenant compte de sa taille relative par rapport au A4.

Tu veux dire qu'il faut dimensionner l'image de façon qu'elle occupe le maximum de place sur la page ?

[popi33370]

Non, qu'elle reste à sa dimension relative.

Par exemple, si mon image jpg fait 100x200 pixels, je veux un fichier pdf qui ait à l'affichage la même taille et pas A4 comme c'est par défaut (j'ai pas trouvé dans la bibliothèque PDFCreator l'option idoine) sinon mon image jpg d'un ticket de caisse fait toute une page A4 et c'est affreux.

[Daniel.C]

Tu dois mettre le chemin de ton dossier dans la variable Chemin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
    Dim Fich As String, Chemin As String, FichPDF As String, Sh As Shape
    Chemin = "C:\Users\Daniel\Pictures\" 'A modifier
    Fich = Dir(Chemin & "*.jpg")
    [A1].Select
    Do While Fich <> ""
        FichPDF = Split(Fich, ".")(0) & ".pdf"
        For Each Sh In ActiveSheet.Shapes
            Sh.Delete
        Next Sh
        Set Img = ActiveSheet.Pictures.Insert(Chemin & Fich)
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & FichPDF, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Fich = Dir
    Loop
End Sub

[popi33370]

Ca fonctionne très bien, sauf qu'en fond A4 j'ai la feuille en cours ...
Est-ce possible de ne pas avoir la feuille active en fond ?

En fait, ça vient insérer l'image dans la feuille active puis l'imprime.

Peut-être que la solution simple pour pallier à ce pb est de:
- créer une feuille vierge de travail
- publier avec cette feuille vide
- supprimer la feuille de travail

Merci d'avance

[popi33370]

J'ai trouvé la solution :
1 - J'utilise une feuille de travail dédiée à cette tâche
2 - J'ai prédéfini la totalité de la feuille en zone d'impression forcée à 1 page en hauteur et 1 page en largeur pour resizing automatique

Je fais encore quelques tests pour voir s'il ne reste pas des effets de bord ...

Ca fonctionne vraiment très bien.

Un grand merci pour cette aide si efficace