Bonjour,
j'ai un doc excel avec une petite image. Quand j'exporte en pdf l'image est en pixel. Savez-vous pourquoi? Merci par avance.
Voici mon code t l'image en capture.
Sub ExporterPageEnPDF()
Dim ws As Worksheet
Dim plage As Range
Dim cheminFichier As String
Dim derniereligne As Long
On Error GoTo ErrorHandler
' Définir la feuille de calcul
Set ws = ActiveWorkbook.ActiveSheet
' Trouver la dernière ligne non vide dans la colonne A
derniereligne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Définir la plage à exporter
Set plage = ws.Range("A1:H" & derniereligne)
' Exporter la plage en PDF sans marges
With ws.PageSetup
.PrintArea = plage.Address
.Orientation = xlLandscape ' xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.TopMargin = Application.InchesToPoints(0.03)
.BottomMargin = Application.InchesToPoints(0.03)
.LeftMargin = Application.InchesToPoints(0.03)
.RightMargin = Application.InchesToPoints(0.03)
.CenterHorizontally = True
.CenterVertically = False
End With
' Définir le chemin et le nom du fichier PDF
cheminFichier = ThisWorkbook.Path & "\" & Range("B1") & ".pdf" ' Vous pouvez modifier le nom et le chemin du fichier
' Exporter la plage en PDF (Quality:=xlQualityStandard)
plage.ExportAsFixedFormat Type:=xlTypePDF, Filename:=cheminFichier, Quality:=xlQualityMaximum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbLf & Err.Description
End Sub