Bonjour,

Je ne sais pas si je poste dans le bon forum, au quel cas redirigez-moi.
Voilà mon problème :
Sur la miniature jointe, j'ai 2 zones de texte indépendantes dans lesquelles se trouvent des dates (période de consultation). Mon souci est que j'aimerais que les dates par défaut soient celle de l'exercice en cours 12 mois (du 01 aout au 31/juillet) :
- si date d'aujourd'hui est > au 01/08 de l'année en cours N, alors affichage date 1 = 01/08/N à date 2=aujourd'hui
- si date d'aujourd'hui est < au 01/08 de l'année en cours N, alors affichage date 1 = 01/08/N-1 et date 2 = aujourd'hui.

Ces zones de texte qui abritent les dates ont un évènement sur perte focus du type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Date1_LostFocus()
Me.camensuel2_sous_formulaire.Requery
Me.essai_sous_formulaire.Requery
Me.essaimoymens_sous_formulaire.Requery
 
End Sub
Cela est-il possible sans supprimer le code déjà présent ?

Merci par avance