1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Select Case vMoisEnCours
Case Is = "JANVIER"
vMois(0) = "01" '& "/" & Year(Now)
Case Is = "FEVRIER"
vMois(0) = "02" '& "/" & Year(Now)
Case Is = "MARS"
vMois(0) = "03" '& "/" & Year(Now)
Case Is = "AVRIL"
vMois(0) = "04" '& "/" & Year(Now)
Case Is = "MAI"
vMois(0) = "05" '& "/" & Year(Now)
Case Is = "JUIN"
vMois(0) = "06" '& "/" & Year(Now)
Case Is = "JUILLET"
vMois(0) = "07" '& "/" & Year(Now)
Case Is = "AOUT"
vMois(0) = "08" '& "/" & Year(Now)
Case Is = "SEPTEMBRE"
vMois(0) = "09" '& "/" & Year(Now)
Case Is = "OCTOBRE"
vMois(0) = "10" '& "/" & Year(Now)
Case Is = "NOVEMBRE"
vMois(0) = "11" '& "/" & Year(Now)
Case Is = "DECEMBRE"
vMois(0) = "12" '& "/" & Year(Now)
End Select |