Générer un n° de facture

Résolu
picsou5 Messages postés 28 Statut Membre -  
amarcoux_89 Messages postés 7 Statut Membre -
Bonjour !

J'aimerai générer un n° de facture aléatoire compris entre 0001 et 9999 mais lorsque je ferme mon fichier et que je l'ouvre à nouveau, mon n° ne doit pas changer ! Après serait-il possible de copier mon fichier et lorsque j'ouvre la copie un autre n° se génère ?

Si quelqu'un pourrait m'aider ça serait génial.

Merci d'avance.

1 réponse

  1. amarcoux_89 Messages postés 7 Statut Membre 3
     
    J'espère que cela va t'aider un peu :

    Private Sub Workbook_Open()
        If IsEmpty(Range("A1")) Then
            Randomize
            Range("A1").Value = Int((10000 * Rnd) + 1)
        End If
    End Sub
    


    Tu mets ce code dans "ThisWorkbook" dans l'éditeur VBA et tu auras un numéro de facture aléatoire (dans la case A1) lorsque tu ouvres le fichier, sauf s'il y en avait déjà un.
    0