Microsoft 365 Imprimer en PDF sans note de bas page

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

J'imprime un fichier excel en pdf avec le code :
VB:
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) :

1627404903087.png


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

Merci pour vos conseils :)
 

Discussions similaires

Réponses
2
Affichages
252