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