Erreur d'execution '5'

Bonjour,
Débutant en VBA, je bute sur un code que j'ai copié qqpart sur Internet pourtant à la virgule près, et moi il ne se passe absolument rien...
c'est un code de sauvegarde d'une feuille excel (avec Excel2007)en PDF, que je joint, si qqu'un
peut me venir en aide, je lui en serai absolument reconnaissant

Sub EnregistrerPDF()
'Enregistrement au format PDF

'Déclaration des variables

Dim CheminDossier As String

'Nom de dossier

CheminDossier = "C:\Users\Utilisateur\Documents\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "FacturesEssais" & "Facture_" & Range("I3").Value & Range("G6").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, OpenAfterPublish:=False

End Sub

Merci d'avance