Public Sub CalendrierDTPDateDebut(fmME As Object)
M$ = "Début? " & CalendrierDateDebutSELECT & "-" & CalendrierDateFinSELECT
CalendrierLoadInitShow fmME, M$, CalendrierDateDebutSELECT
If CalendrierDateSELECT Then
fmME.DTPDateDebut = CalendrierDateSELECT
Dim DatFin As Date: DatFin = fmME.DTPDateFin
If CalendrierDateSELECT > DatFin Then DatFin = CalendrierDateSELECT
CalendrierDateDebutSELECT = CalendrierDateSELECT
CalendrierDateFinSELECT = DatFin: fmME.DTPDateFin = DatFin
End If
End Sub