Discussion :

[NEC14]

Bonjour à tous,

Dans UF nommé FrmChoix, j'ai un TextBox (TxtOpé) dans lequel je souhaite mettre une suite de données qui me donnera un numéro.

Je dois y retrouver l'année en cours, le mois, la semaine et un numéro qui correspondera au numéro de la fiche.

Par exemple : 2013 09 39 001

Voici le code que j'ai commencé, mais je n'arrive pas à indiquer la semaine en cours. Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
MaDate = Date
vAn = Format(MaDate, "yyyy")
vNumero = Format(MaDate, "mm")
vNum = Format(MaDate, "W", vbMonday)
vResult = Format(vOperationNum, "000")
 
    Load FrmSaisie
 
            With FrmSaisie     'année             'mois         'semaine
            .TxtOpé = "Bât" & Str(vAn) & " " & (vNumero) & " " & (vNum) & " " & (vResult)
            .TxtInter = vResult
            .TxtDate1 = MaDate
            End With

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date,"w")

[NEC14]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date,"w")

Cela fonctionne en mettant "ww"

Voici le code corrigé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
MaDate = Date
vAn = Format(MaDate, "yyyy")
vNumero = Format(MaDate, "mm")
vNum = Format(MaDate, "ww")
vResult = Format(vOperationNum, "000")
 
    Load FrmSaisie
 
            With FrmSaisie
            .TxtOpé = "Bât" & Str(vAn) & " " & (vNumero) & " " & (vNum) & " " & (vResult)
            .TxtInter = vResult
            .TxtDate1 = MaDate
            End With

Je ne connais pas la fonction Datepart()

Merci pour votre aide
Amicalement

René

[EngueEngue]

Tu connais Datepart ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
numsemaine = DatePart( _
interval:="ww", _
Date:=date, _
firstdayofweek:=vbUseSystemDayOfWeek, _
firstweekofyear:=vbFirstFourDays)

[illight]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DatePart("ww", datedujour)

Devrait fonctionner