Générer un numéro de Commande en VBA

Fermé
InfoSu - 9 févr. 2012 à 20:27
 wiidle - 13 févr. 2012 à 18:04
Bonjour,

Je suis actuellement bloqué, je doit réalisé un numéro de commande qui se génère automatique en VBA sur access.

Il doit etre composer : de l'année, d'un numéro aléatoire, et du numéro du jour de l'année.




A voir également:

1 réponse

Bonjour,

Combien de nombre veut tu en aléatoire.

Je te propose la solution suivante :
ton numéro de commande sera composé de : Année / Heure, Minutes / Jour

ex:
Sub Test()

Dim sJourActuel As String
Dim sAnnee As String
Dim sHeure As Integer
Dim sJour As Integer
Dim iNumReference As String

sJourActuel = Now()
sAnnee = Mid(sJourActuel, 7, 4) 'on récupère l'année
sHeure = Mid(sJourActuel, 12, 2) & Mid(sJourActuel, 15, 2) 'on récupère l'heure
sJour = Mid(sJourActuel, 1, 2) 'on récupère le jour

iNumReference = sAnnee & sHeure & sJour 'on concatène le tout dans une variable


End Sub
0