Bonjour,

Avec le code suivant (donné par l'un de vous) je peux insérer une jpg dans une feuille vierge (ici appelée "PDF") pour l'exporter en pdf A4 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sheets("PDF").Activate
    With Worksheets("PDF").PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PaperSize = xlPaperA4
    End With
    [A1].Select
Set Img = ActiveSheet.Pictures.Insert(REPERTOIRE & JPG) 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=REPERTOIRE & FichPDF, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
Le PB c'est que souvent, pas à chaque fois, l'image est générée en pdf sur plusieurs pages A4 car elle déborde.

D'où ma question : selon la taille originale, si elle dépasse le format A4, est-il possible de la retailler (sans retailler les images plus petites), afin que le pdf généré soit conforme à la taille d'origine = si plus petite que A4 alors elle conserve sa proportion, si A4 ou plus alors elle est retaillée en A4 car c'est la limite maxi.

Merci d'avance pour votre aide