format dans une formule

Bonjour tout le monde

Une fois de plus, je fais encore appel à vous pour pouvoir avancer.J'ai une formule dans une cellule :
=ANNEE(maintenant())&MOIS(maintenant())&001
ce qui me donne à l'affichage :
200811

je voudrais avoir en réalité
200801001 ------ annéemois001
c'est à dire le mois sur 2 chiffres et mon premier numéro de facture concernant ce mois sur 3 chiffres.

Je me sers de cette cellule pour incrementer un numero de facture a chaque ouverture du modèle par une macro que j'ai trouvé sur mon site favori bien sur.

Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xls")
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXls = Application.TemplatesPath & "Fact.xls"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXls)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub


Avec tous mes remerciements.
Alain