Numero de jour

[Gexk5]

Bonjour le forum,
Y a t il une solution pour recupérer le numéro du jour de l'année en VB,
je vous explique, j'ai une application partagée et protégée par un mot de passe à l'ouverture du fichier, mot de passe par une textbox, actuellement, mon mot de passe est : mdp- et la date du jour, voici mon code

Option Explicit
Private Sub CommandButton1_Click()
If TextBox1.Text = UF3.DateJour.Value Then
Unload Me
Else
MsgBox "Erreur de mot de passe"
TextBox1 = ""
Exit Sub
End If
If Month(Now()) = 1 Then
BonneAnnee.Show
End If
On Error Resume Next
UF1.Show
End Sub
Private Sub UserForm_Initialize()
DateJour.Value = "mdp" & "-" & Date
End Sub

Je voudrai pouvoir saisir maintenant, mdp-numéro de jour-date du jour

J'entends par numéro de jour, exemple, 1er janvier =001
15janvier = 015 et ainsi de suite jusqu'au 31 decembre = 365

Merci de reponses

 

[Pierrot93]

Re : Numero de jour

Bonsoir Gexk

essaye avec le code ci-dessous :

Dim d As Integer
d = DatePart("y", Date, vbMonday, vbFirstFourDays)

bonne soirée
@+

 

[CBernardT]

Re : Numero de jour

Bonjour Gexk5 et Pierrot93,

Je te propose le code suivant

Private Sub UserForm_Initialize()
Dim NumeroJour As Long
NumeroJour = CLng(Date - DateSerial(Year(Date) - 1, 12, 31))
DateJour = "mdp" & "-" & NumeroJour & "-" & Date
End Sub

Cordialement

Bernard

 

[Gexk5]

Re : Numero de jour

Re le forum, Pierrot93, CBernardT
Merci de vos reponses, la soluce de pierrot ne fonctionne pas, mais celle de bernard est OK.

Merci encore

 

[Pierrot93]

Re : Numero de jour

Bonjour Gexk, Bernard

qu'est ce qui ne fonctionne pas dans mon code, chez moi (Excel2003) exécuté ce jour, renvoie 127 dans la variable d... ou alors quelque chose a dû m'échapper... fort possible...

Dim d As Integer
d = DatePart("y", Date, vbMonday, vbFirstFourDays)

bonne journée
@+

 

[Gexk5]

Re : Numero de jour

Re le forum, Pierrot ,Bernard
Désolé pierrot, vu juste maintenant que tu avais posté, en ton code doit fonctionner si tu l'as testé, j'ai sans doute mal integré ton code dans ma macro, et vu que le code de Bernard a fonctionné du premier coup, je ne suis pas aller plus loin.

Autre question, est il possible dans mon code de formater la date en aaaa/mm/jj, actuellement elle est au format jj/mm/aaaa par defaut

Merci d'avance

 

[Pierrot93]

Re : Numero de jour

Re Gexk

merci de ta réponse, pour ton problème de format de date, regarde le code ci-dessous, je pense qu'il peut y répondre :

MsgBox Format(Date, "yyyy-mm-dd")

bonne soirée
@+