utiliser la date et l'heure pour faire une numéro

Gwendoline

XLDnaute Junior
Bonsoir,

Je lutte, je lutte en vain, mais je sais que ça existe.

Je veux utiliser la date et l'heure pour en faire un numéro. Je m'explique.
Avec l'année, le mois, le jour, l'heure, la minute et la seconde, j'obtiendrais un numéro.

Exemple :
Il est 00:05:49 et nous sommes le 06 mai 2013.
J'obtiendrai alors en cellule A1 : 20130506_000549.

J'ai essayé ceci mais ça ne fonctionne pas :
Code:
heure = hour(today)
minut = minute(today)
seconde = second(today)
jour = day(today)
mois = month(today)
annee = year(today)

nbdc = annee & mois & jour & heure & minut & seconde

ça se trouve je me plante complètement :)

Merci par avance en tout cas.
 

Modeste geedee

XLDnaute Barbatruc
Re : utiliser la date et l'heure pour faire une numéro

Bonsour®
Bonsoir,

Je veux utiliser la date et l'heure pour en faire un numéro. Je m'explique.
Avec l'année, le mois, le jour, l'heure, la minute et la seconde, j'obtiendrais un numéro.

Exemple :
Il est 00:05:49 et nous sommes le 06 mai 2013.
J'obtiendrai alors en cellule A1 : 20130506_000549.

J'ai essayé ceci mais ça ne fonctionne pas :
nbdc = annee & mois & jour & heure & minut & seconde
[/CODE]

ça se trouve je me plante complètement :)

:rolleyes:

nbdc=Format(Now, "yyyymmdd""_""hhmmss")
 

ROGER2327

XLDnaute Barbatruc
Re : utiliser la date et l'heure pour faire une numéro

Bonjour à tous.


Je n'ai pas de meilleure solution, mais je l'écrirais comme ceci :​
VB:
Function nbdc$()
Dim d As Date
    d = Now
    nbdc = Format(d, "yyyymmdd""_""hhmmss")
    Application.Wait d + TimeValue("0:00:01")
End Function
pour ne pas risquer de créer deux fois le même numéro.

(Sans cette précaution,​
VB:
Sub testa()
Dim i&
    For i = 1 To 5000
        Cells(i, 1) = nbdc
    Next
End Sub
crée des milliers de numéros identiques.)​


Bonne nuit.


ROGER2327
#6629


Mardi 17 Palotin 140 (Saint Macrotatoure, caudataire - fête Suprême Quarte)
17 Floréal An CCXXI, 0,6430h - pimprenelle
2013-W19-1T01:32:36Z
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou