n° facture

JNP à dit:

Bonsoir 🙂,
Dixit : C'est fort possible que tu ai raison, sur ce point précis de la législation, je n'ai aucune info, mais ça doit être vérifiable sur le net.
Ronibo : T'est gentil, mais si tu déposes un fichier antérieur, ça va pas le faire... En repartant de mon fichier, pour la nouvelle feuille qui change pas de n° (petit oubli de ma part), il faut changer le Case 4 (code en rouge à rajouter)

Code:

    Case 4
        Chemin = ThisWorkbook.Path
        Chemin = Chemin & "/" & Range("F12") & " " & Range("B15")
        ThisWorkbook.SaveAs (Chemin & ".xlsm")
        Range("B15:E16").ClearContents
        Range("B17").ClearContents
        Range("D17:E17").ClearContents
        Range("A22:F42").ClearContents
        Range("D50") = 0
[COLOR=red]       If Range("H1") = Month(Now) And Range("H2") = CInt(Right(Year(Now), 2)) Then[/COLOR]
[COLOR=red]           Range("H3") = Range("H3") + 1[/COLOR]
[COLOR=red]       Else[/COLOR]
[COLOR=red]           Range("H1") = Month(Now)[/COLOR]
[COLOR=red]           Range("H2") = Right(Year(Now), 2)[/COLOR]
[COLOR=red]           Range("H3") = 1[/COLOR]
[COLOR=red]       End If[/COLOR]

sachant que le mode de paiement ne sera pas remis à zéro (il y a une validation sur des cases fusionnées, ça passe pas...).
Si en plus tu veux intervertir le mois et l'année, il faut échanger les Month et les Year (avec le Right dans le cas de Year) dans toutes les procédures.
Bon courage 😎

Cliquez pour agrandir...