Mise en forme lors d'un export Excel d'Access

Bonjour,

Je reviens vers vous car je n'arrive pas à mettre en forme directement un export Excel d'Access. Voici mon code requête :

Private Sub LIA_01_Click()
On Error GoTo Err_LIA_01_Click

Dim stDocname As String

stDocname = "* LIA01 INTERLOC > 23 J"
DoCmd.OutputTo acOutputQuery, stDocname, acFormatXLS, , True

Exit_LIA_01_Click:
Exit Sub

Err_LIA_01_Click:
MsgBox Err.Description
Resume Exit_LIA_01_Click

End Sub

Je souhaiterais que mon export est son nom en haut à gauche, la date au milieu et le numéro de page en bas à droite. J'ai essayé avec ActiveSheet. Page Setup + CenterHeader etc. mais il me demande toujours un objet (objet non requis).

Peut être que je place mal le code ? Je suis débutant...

Merci d'avance de votre aide !

Cordialement

Edy 360