Discussion :

[MartySalade]

Bonjour j'ai un fichier jpeg qui est un document scanné. Je le met dans un dossier en particulier et j'exécute la macro suivante :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub jpgToPdf_Click()
 
Dim Fich As String, Chemin As String, FichPDF As String, Sh As Shape, pdf As Sheets
 
    Sheets.Add Before:=Worksheets(1) 'On crée une nouvelle feuil
    Sheets(1).Select
    Chemin = "X:\2- DIVERS\JPEG-TO-PDF\" 'Chemin où se trouvent les jpeg
    Fich = Dir(Chemin & "*.jpeg")
    '[A1].Select
    Sheets(1).Range("A1, T70").Select
    Do While Fich <> "" 'On boucle sur les fichiers
        FichPDF = Split(Fich, ".")(0) & ".pdf"
        For Each Sh In Sheets(1).Shapes
            Sh.Delete
        Next Sh
        Set Img = Sheets(1).Pictures.Insert(Chemin & Fich) 'On crée l'image dans la feuil créée et on la transforme en pdf
        Sheets(1).PageSetup.Orientation = xlPortrait
        Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & FichPDF, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Fich = Dir
    Loop
    Application.DisplayAlerts = False
    Sheets(1).Delete ' On supprime la feuil
    Application.DisplayAlerts = True
 
 
    'Ces deux lignes permettent de supprimer les jpeg du dossier. Il est possible de les retirer, le code fonctionne toujours
    Set MonFichierSupp = CreateObject("Scripting.FileSystemObject")
    MonFichierSupp.DeleteFile ("X:\2- DIVERS\JPEG-TO-PDF\" & "*.jpeg")
 
    MsgBox ("Convertion terminée !")
End Sub

Le problème c'est que quand j'ouvre mon fichier pdf ensuite certaines parties sont coupées et mises sur d'autres pages.


Merci d'avance pour votre aide

[Menhir]

Soit tu modifies la taille de l'image,

Code :

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

1
2
3
R = Img.Height / Img.Width
Img.Width = 200
Img.Height = 200 * R

La variable R étant déclarée de type Double.

Soit tu modifies la mise en page pour imposer la mise à l'échelle "1 page en largeur, 1 page en hauteur".

Code :

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

1
2
3
4
5
With Worksheets("Sheet1").PageSetup 
    .Zoom = False 
    .FitToPagesTall = 1 
    .FitToPagesWide = 1 
End With

[patricktoulon]

Bonjour
de nos jour a vec W10 nous avons le Microsoft pdf printer qui imprime dans un fichier pdf n'importe quoi et pour W7 tu a son équivalent (7-PDF Printer)qui est exactement le meme

pour quoi veux tu t'ennuyer avec excel ??

a moins de vouloir ajouter des choses et faire une mise en page particulière tu n'a pas besoins d'exel

[MartySalade]

Merci Menhir ça fonctionne parfaitement !
Merci aussi Patrick