Macro qui incrémente un numéro de facture

Mon problème : je dois réaliser une facture, et le numéro de celle ci doit s'incrémenter automatiquement grâce à une macro. Cependant, ce numéro doit comporter le mois, l'année, et le numéro de la facture, soit par exemple pour la première facture du mois de janvier : N° 01-16-1 (mois-année-numéro)

J'ai une cellule ou je peux extraire le mois et l'année de la date, et j'ai tenté de le faire mais ça ne marche pas :

Sub NumeroFac()

Range("E3").Select

Dim Num As Integer

Dim VContenu As Date

Dim VLong As Integer

VLong = Len(VContenu)

VContenu = Range("E4").Value

Num = Mid(VContenu, VLong - 4, 2) & "" & Mid(VContenu, VLong + 1, 2) & "" & VNum + 1

Range("E3").Value = Num

End Sub

Quelqu'un pourrait m'aider ?

Merci.

Sub NumeroFac()

Range("E3") = Mid(Range("E4"), 7, 99) + 1

End Sub

ou

Sub NumeroFac()

Range("E3") = Left(Range("E4"), 6) & Mid(Range("E4"), 7, 99) + 1

End Sub

Bonsoir,

Tu ne fournis pas les éléments pour le résoudre !

Structure d'une macro...

Sub NumeroFac()
    'déclarations toujours en tête de procédure
    'et le numéro facture ne peut être un nombre
    'et il faut aussi déclarer VNum mais VLong ne sert à rien
    Dim Num As String, VNum As Integer, VContenu As Date
    VContenu = Range("E4").Value
    VNum '= ? ici savoir où on prélève numéro incrémentable
    'si VContenu est bien une date, sinon lui fournir une date
    Num = Format(Month(VContenu), "00") & "-" & Right(Year(VContenu), 2) _
     & "-" & Format(VNum + 1, "000") 'prévoir un format pour VNum
    Range("E3").Value = Num
End Sub

Une fois réglé les problèmes pour composer le numéro, tu ferais bien de le transformer en fonction renvoyant ce numéro...

Parfait merci