Numéro de transaction

Bonjour à tous,

Etant en plein développement d'un ERP de transition pour mon entreprise, je souhaite enregistrer toutes les transactions effectuées par un numéro "unique". Ce numéro est construit grâce à la valeur Excel de la date et de l'heure, qui est codé de la manière suivante :

Code:

---

1 2 3

x = TimeValue(Time) y = DateValue(Date) NoTrans = y & Mid(x, 3, 7)

---

Mon problème est que ce bout de code est au sein d'une boucle For, et lorsque les opérations s’enchainent, je me retrouve avec un numéro de transaction identique pour certaines lignes de la base de données.

Je ne pense pas que le problème vienne de la rapidité d’exécution du code car j'ai testé avec un "Sleep" à 300ms juste avant la définition du n° de transaction, et le problème survient tout de même.

J'ai tenté de passer par Do While ... de ce type, et ça à l'air de fonctionner, sauf que ça me ralenti de manière assez importante l'exécution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub NoTransaction()   Dim x As Double Dim y As Double   'TransA et TransB sont des variables publiques, déclarées comme "As Double", tandis que NoTrans est déclaré comme "As String"   Do While TransA = TransB   x = TimeValue(Time) y = DateValue(Date) TransA = y & Mid(x, 3, 7)   Loop   NoTrans = TransA   End Sub

---

Pensez-vous que le problème vienne de "Time" et "Date" ? Auriez-vous une idée sur le sujet ?

Je vous remercie par avance,

Vincent C.

Bonjour

Citation:

---

Envoyé par Vincent_Ca

Pensez-vous que le problème vienne de "Time" et "Date" ? Auriez-vous une idée sur le sujet ?

---

Comme tu ne prends que la moitié des chiffres de "Time", tu ne peux pas l'accuser d'être fautif et la vitesse d’exécution d'une macro fait que la partie gauche se retrouve obligatoirement égale sur 2 prises de temps successives.

Citation:

---

Envoyé par Vincent_Ca

Je ne pense pas que le problème vienne de la rapidité d’exécution du code car j'ai testé avec un "Sleep" à 300ms juste avant la définition du n° de transaction, et le problème survient tout de même.

---

300 ms, par nature, c'est inférieur à 1 s.
Ce n'est donc pas ça qui garantira ton numéro unique.
mets ton Slep à plus de 1 s si tu veux que le test soit probant.

Bonjour à tous les deux,

Tout d'abord je vous remercie pour vos réponses.

Citation:

---

Envoyé par anasecu

Bonjour


Comme tu ne prends que la moitié des chiffres de "Time", tu ne peux pas l'accuser d'être fautif et la vitesse d’exécution d'une macro fait que la partie gauche se retrouve obligatoirement égale sur 2 prises de temps successives.

---

En effet, ça tombe sous le sens, malheureusement j'avais également fait le test sans limite de caractères et je me suis retrouvé dans la même situation. Pour la partie gauche, il s'agit du jour, je pense que tu voulais parler de la partie droite.

Citation:

---

Envoyé par Menhir

300 ms, par nature, c'est inférieur à 1 s.
Ce n'est donc pas ça qui garantira ton numéro unique.
mets ton Slep à plus de 1 s si tu veux que le test soit probant.

---

En ayant fait le test, c'est bien plus probant, mais encore plus long que le Do While au final, surtout sur une grosse quantité d'itérations dans un For...Next.

Je vais rester sur la boucle, qui m'assure un numéro de transaction unique entre chaque ajout.

Merci encore à tous deux d'avoir pris le temps de me répondre.

Bonjour

Citation:

---

Envoyé par Vincent_Ca

Pour la partie gauche, il s'agit du jour, je pense que tu voulais parler de la partie droite.

---

Je parlais bien de la partie gauche de time celle qui ne varie que très lentement.