'appel routines ci-dessus pour lancer le calendrier
Private Sub SelectDateCalendrier(DatTag As Date, Optional MsgCaption$)
DateSELECT = False
Load fmSTD_Calendrier 'charge calendrier
With fmSTD_Calendrier 'passe les val au calendrier pour se positionner
''''If Me.Top > 0 Then .ScrollHeight = Me.Top Else .ScrollHeight = 1 '1mini ''' Copie au cas où
''''If Me.Left + Me.Width > 0 Then .ScrollWidth = Me.Left + Me.Width Else .ScrollWidth = 1 '1mini ''' Copie au cas où
If Me.Top > 0 Then .ScrollHeight = Me.Top + 120 Else .ScrollHeight = 1 '1mini 'Changement ici
If Me.Left + 22 > 0 Then .ScrollWidth = Me.Left + 22 Else .ScrollWidth = 1 '1mini 'Changement ici
.Tag = DatTag 'place la date dans le Tag
.Caption = MsgCaption$ 'msg caption
End With
fmSTD_Calendrier.Show
'récupère la date passée par le .tag
If IsDate(fmSTD_Calendrier.Tag) Then DateSELECT = CDate(fmSTD_Calendrier.Tag)
Unload fmSTD_Calendrier 'décharge calendrier
End Sub