Pied de page PDF

Bonjour chers Compagnons du forum

Je voudrais par macro enregistrer une plage de cellules au format PDF et je voudrais mentionner en pied de page sur mon PDF un texte "soldé"

Ci joint un fichier exemple .Merci

Bonjour KTM,

à tester,

Sub EnregistrePDF()
fichier = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0)
    With ActiveSheet
    .PageSetup.RightFooter = "soldé"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

SUPER MERCI

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton

merci!