Ma macro n'imprime pas

Question

Bonjour,

J'ai créé cette macro sous Excel mais quand je l'exécute je n'ai aucun code d'erreur mais aucun fichier n'est imprimé, pouvez-vous m'aider ?

Objectif : imprimer le calque ouvert en PDF avec dans le nom du fichier le contenu de la cellule K11 suivi du contenu de la cellule L11 et suivi du contenu de la cellule N11/

MACRO

Sub ImprimerCalquePDF()

'Activer la feuille et le calque

Sheets("ACT Boite à outils9_macro").Activate

activeSheet.DrawingObjects.Visible = True

activeSheet.Layers("Facture").Activate

'Créer le nom du fichier

Dim nomFichier As String

nomFichier = Range("K11").Value & "-" & Range("L11").Value & "-" & Range("N11").Value

'Exporter le calque en PDF

activeSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _

"C:\Users\mathc\OneDrive\Formation\Psychologie\Exercer en libéral\Patients\A_FacTuration" & nomFichier & ".pdf"

End Sub