Numérotation automatique facture

Bonjour ici

Pouvez vous m'indiquer comment je peux automatiser la numérotation de mes factures ?

Mon numéro de facture se trouve en D13, il est au format 001-2014 (année comptable, changement au 1er octobre).

Je possède office 2007.

Merci beaucoup pour vos réponses.

Anne-Lise

Bonjour

Etant dans la compta je comprend le problème Cependant à moins de générer une suite de chiffre aléatoire pour compléter cette facture, il ne peut pas y avoir de 1° facture au n°1, 2° facture avec le n°2 et ainsi de suite si celles-ci ne sont pas enregistrées sur le même fichier excel.

Pour cela il vous faudrait un modèle de facture vierge, vous la remplissez et par application sur un bouton ça lui donne un numéro, ça vous l'archive dans les onglets suivants et ça vous remet le modèle de facture vierge.

Il y a peut être une autre solution si c'est le cas je ne la connais pas et il faut demander aux pros excel.

Je ne sais pas si je suis assez clair prévenez moi si ce n'est pas le cas

Atro

Bonjour,

Bonjour Atro,

Une solution avec un fichier modèle de facture vierge (enregistré sous xltm) avec ces 2 codes dans ThisWorkbook:

Option Explicit
' http://frederic.sigonneau.free.fr/
' Classeurs, modèles, macros complémentaires, scripts
Private Sub Workbook_Open()
    If ActiveWorkbook.Path = "" Then
        [NumFact] = [NumFact] + 1
        ActiveWorkbook.Saved = True
        ActiveWorkbook.SaveCopyAs _
            Application.TemplatesPath & "NumAuto.xltm"
    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim chemXlt As String
    chemXlt = Application.TemplatesPath & "NumAuto.xltm"
    If ActiveWorkbook.Path = "" Then
        Workbooks.Open (chemXlt)
        [NumFact] = [NumFact] - 1
        ActiveWorkbook.Close True
    End If
End Sub

Tu ouvres le fichier et tu l'enregistres sous le format xltm.

A te relire.

C'est énorme je connaissais pas ce système j'en avais cherché un ya deux ans. Merci pour l'info