Microsoft 365 Imprimer en PDF sans note de bas page

[VBA_dev_Anne_Marie]

Bonjour,

J'imprime un fichier excel en pdf avec le code :

Sub Fichier_pdf()

Dim LHeure As String
Dim LaDate As String

LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

' Création fichier PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\XXXXX\Création du fichier le " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

' Message de confirmation

MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")

End Sub

L'impression se passe bien mais je ne veux pas afficher les propriétés en bas à droite de mon document .pdf (surligné en jaune) :

J'ai essayé avec IncludeDocProperties:=False mais ça ne marche pas.

Merci pour vos conseils

 

[Sequoyah]

Bonjour MarieParis,
ajoute ces lignes de code avant de créer le PDF

With ActiveSheet.PageSetup
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
End With

Cordialement

 

[VBA_dev_Anne_Marie]

Bonjour MarieParis,
ajoute ces lignes de code avant de créer le PDF

With ActiveSheet.PageSetup
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
End With

Cordialement

Top ! Merci beaucoup, ça marche bien !

 

[kiki29]

Salut, à titre de curiosité l'inverse : en ajouter sur des PDFs dont ils sont absents.
PDFCreator 1.7.3 : Numérotation des Pages, En-Tête et Pied de Page
Acrobat : Numérotation des Pages, En-Tête et Pied de Page

 

[VBA_dev_Anne_Marie]

Salut, à titre de curiosité l'inverse : en ajouter sur des PDFs dont ils sont absents.
PDFCreator 1.7.3 : Numérotation des Pages, En-Tête et Pied de Page
Acrobat : Numérotation des Pages, En-Tête et Pied de Page

Merci beaucoup ! C'est top !