Discussion :

[Lou17]

Bonjour,
Je voudrais que l'année scolaire se crée automatiquement à partir de l'entrée d'une date
mais ma solution doit avoir un vice de forme...

Code :

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

1
2
3
4
5
6
7
8
Dim Année As String
If Dates > DtAm(DateSerial(Dates, 9, 1)) And Dates < DtAm(DateSerial(Dates, 12, 31)) Then
Année = Year(Dates) + 1
[AnnéeScol] = Year(Dates) & "-" & Année
Else
Année = Year(Dates) - 1
[AnnéeScol] = Année & "-" & Year(Dates)
End If

[f-leb]

bonsoir,

je dirais,

Code :

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

DateSerial(year(Dates), 9, 1)

et

Code :

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

1
2
 
DateSerial(year(Dates), 12, 31)

non ?