Augmenter le nombre sur chaque sauvegarde du file dans excel

Je crée une application dans excel pour générer des factures et save des données dans une autre feuille dans le même file excel.

Maintenant, je dois augmenter la valeur du numéro de la facture dans la facture. Mon numéro de facture est 2016-17/12345 après l'logging de la facture et cette valeur devrait être celle 2016-17/12346 .

 Dim CustomerInvoice As Long Range("H10").Value = Range("H10") + 1 - - CustomerInvoice = Range("H10") - - ActiveCell.Value = CustomerInvoice ActiveCell.Offset(0, 1).Select 

Essaye ça

 Range("H10").Value = Split(Range("H10").Value, "/")(0) & _ "/" & _ Val(Split(Range("H10").Value, "/")(1)) + 1 

Mon hypothèse : la valeur actuelle de la Range("H10").Value est 2016-17/12345