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.
A voir également:

1 réponse

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