Création N° dossier

bonjour le forum!!

j'ai un code qui crée un nouveau N° dossier généré par un bouton; son format est "09 - 2012 - 002", comment faire pour qu'en 2013 les trois dernier chiffre reparte à 001. je joint un fichier exemple.

je vous remercie d'avance de l'aide que vous pourrez m'apporter

Bonjour slijack, forum,

En retouchant légèrement la macro:

Sub Incrémenter_Facture()

Dim num As String, an As String

Dim i As Integer

num = Right(Range("C8").Value, 3) + 1

an = Mid(Range("C8"), 6, 4)

If an = Year(Range("B2")) Then

For i = 1 To 3 - Len(num)

num = "0" & num

Next i

Range("C8").Value = Range("B4") & num

Else

Range("C8").Value = Range("B4") & "001"

End If

End Sub

Amicalement

bonjour haonv !!

merci pour ton aide, cela fonction parfaitement, je lancer un nouveau sujet avec le même fichier pour un autre problème, encore merci pour tout