incrémentation facture

bonsoir j'ai réalisé une facture avec une incrémentation de la numérotation a l'aide du pgm ci joint
Private Sub workbook_beforeclose(cancel As Boolean)
chemxlt = Application.TemplatesPath & NumAuto.xlt
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemxlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Save
wbk.Close
End If
End Sub

Private Sub workbook_open()
If ActiveWorkbook.Path = "" Then
[NumFact] = [NumFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs (Application.TemplatesPath & "NumAuto.xlt")
End If

. tout ce passe bien mais a la fermeture il y a un message "erreur d'execution 424 objet requis"
ceci concerne la ligne :
chemxlt = Application.TemplatesPath & NumAuto.xlt
pourquoi?
deuxième question:
serait il possible qu'au moment de l'enregistrement d'une facture le numéro de cette facture soit ausisi modifié a coté du nom de la facture
car pour l'instant à haque fois que je veux enregistrer une nouvelle facture excel me propose toujours "facture1"

merci de votre réponse