Aide macro

[pango]

Bonjour

Je tente d'incrémenter un numéro de facture avec une macro. Le code ci-dessous fonctionne bien, si mon numéro de facture est de type : PP201801

Private Sub Workbook_Open()
Range("B5").Value = Left(Range("B5").Value, 2) & 1 + Mid(Range("B5").Value, 3, 6)
End Sub

Par contre, si j'ajoute des tirets (PP-2018-01), je suis largué. J'ai pourtant modifié la Value de mon Mid(Range

Pouvez-vous m'aider svp?

J’aimerais garder la macro avec la même simplicité que ci-haut.

Je vous remercie de votre attention,

 

[M12]

Bonjour,
A tester avec PP-2018-01 en B5

Private Sub Workbook_Open()
  Range("B5").Value = Left(Range("B5").Value, 3) & Year(Date) & "-" & Format(Mid(Range("B5"), 9, 2) + 1, "00")
End Sub

 

[pango]

Bonjour,
A tester avec PP-2018-01 en B5

C'est parfait, merci beaucoup!