VBA - Format d'impression du PDF identique aux fichiers Excel

Bonjour,

J'ai un code VBA qui fonctionne super bien grâce aux talents de ce site cependant je n'arrive pas à avoir les bons paramètres d'impression (orientation, marges, positionnement, etc..).

En effet lorsque je clique sur le bouton imprimer, j'aimerai que les paramètres d'impression de mon pdf soient identiques aux paramètres d'impression des fichiers excel.

Est-ce que c'est réalisable?

Voici le code en question:

Sub Imprimer()
Dim Fichier_traité As String, Chemin As String, DerLig As Integer

Application.ScreenUpdating = False

Sheets.Add after:=ActiveSheet
ActiveSheet.Name = "Provisoire"

Chemin = ThisWorkbook.Path & "\"
Fichier_traité = Dir(Chemin & "*.xls*")

Do While Fichier_traité <> ""
If Fichier_traité = ThisWorkbook.Name Then GoTo Etiquette
Workbooks.Open Chemin & Fichier_traité
ThisWorkbook.Activate

With Workbooks(Fichier_traité)
If Range("A1") = "" Then
.Sheets("Inspection machine").UsedRange.Copy Range("A1")
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & DerLig + 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
.Sheets("Résumé").UsedRange.Copy Range("A" & DerLig + 1)
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & DerLig + 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Else
DerLig = Range("A" & Rows.Count).End(xlUp).Row
.Sheets("Inspection machine").UsedRange.Copy Range("A" & DerLig + 1)
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & DerLig + 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
.Sheets("Résumé").UsedRange.Copy Range("A" & DerLig + 1)
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & DerLig + 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
End With

Workbooks(Fichier_traité).Close False
Etiquette:

Fichier_traité = Dir
Loop

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Format(Date, "YYYYMMDD") & " - " & "Rapport d'inspection.pdf"

Application.DisplayAlerts = False
Sheets("Provisoire").Delete
Application.DisplayAlerts = True

End Sub

Mes meilleures salutations,

Thierry

Salut,

Désolé, j'ai été un peu lent à te répondre sur ton autre fil. Mais je l'ai fait il y a quelques minutes.

Et là, en consultant les sujets sans réponse, je tombe sur ta nouvelle demande. Je te propose de continuer la discussion sur l'autre fil, à moins que quelqu'un te propose une solution ici. Mais sans fichier-modèle-source .............

Bonjour Thierry36, Yvouille

@Thierry36

1) merci de mettre le code entre balises avec le bouton prévu à cet effet, pour plus de lisibilité

2) lorsque vous joignez un fichier, mettez mettez le entier SVP, dans le fichier joint il manque des feuilles, il est donc inexploitable

3) pour finir, il aurait peut-être été bien de rester sur le même fil je pense
https://forum.excel-pratique.com/excel/bouton-imprimer-pdf-certaines-feuilles-de-plusieurs-fichiers-...

Merci d'y faire attention et merci de votre compréhension

Bonne journée