Enregistrement PDF + Centrer

Bonjour,

J'ai récupéré un fichier d'un collègue et je souhaiterais revoir la mise en forme lors de l'enregistrement automatique en PDF .

Ci-dessous le code actuel :

Sub Sauvegarde()
ThisWorkbook.SaveAs _
Filename:="Planning 2023" & [c2].Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Planning 2023 " & [c2] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Je souhaiterais lors de l'enregistrement PDF, que mon tableau soit centrer en haut... actuellement il est centré verticalement et horizontalement :/

Je souhaiterais également qu'il m'enregistre juste la version PDF directement sans qu'il me recrée un fichier .xlsm en plus...

Savez-vous m'aiguiller svp

Bonjour,

Essayez ceci:

Sub Sauvegarde()
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "Planning 2023 " & [c2] & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Cdlt

Négatif... il reste toujours centré

Bonjour,

J'avais mal compris, dans ce cas, à la ligne suivante, remplacez TRUE par FALSE

        .CenterVertically = True

Cdlt