Discussion :

[YVES3333]

Bonjour à tous,

Question : j'ai réussi à déterminer un numéro de semaine.

Par contre j"aimerais pouvoir en déterminer les dates du lundi au dimanche , de la dite semaine

Pas de VBA mais une expression à mettre dans un champ de ma requête et cela pour chaque jour.

Exemple : semaine 45 , je veux déterminer que le premier jour de cette semaine ( lundi) est le ...... , le mardi est le .... etc jusqu'au dimanche

Big merci et très bonne soirée.

[tee_grandbois]

bonsoir,
dans SQL :

Code :

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

Format([ladate],"dddd")

ou dans l'interface de création de requêtes :

Code :

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

Format([ladate];"jjjj")

[YVES3333]

Merci pour la répônse mais ce n'est pas ce que je souhaite.

Donc avec un n° de semaine , entre 1 et 52 et avec l'année choisie , je souhaite obtenir la date du lundi de cette semaine.
J'ai trouvé cette formule excel sur la toile mais je ne parviens pas à la mettre sauce access. Ceci afin de mettre la dire formule comme fonction dans une requête

=DATE($B1;1;3)-JOURSEM(DATE($B1;1;3))-5+7*$A1 avec B1 année choisie et AI , n° de la semaine choisie.

Merci d'avance pour votre aide

Yves

[tee_grandbois]

voici l'équivalent en VBA :

Code :

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

1
2
3
4
5
6
Function fLundiSemaine(pNumSem As Byte, pAnnee As Integer) As Date
' =DATE($B1;1;3)-JOURSEM(DATE($B1;1;3))-5+7*$A1
' Trouver le premier lundi d'une semaine
fLundiSemaine = DateSerial(pAnnee, 1, 3) - Weekday(DateSerial(pAnnee, 1, 3)) - 5 + 7 * pNumSem
 
End Function

utilisation :

Code :

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

1
2
?fLundiSemaine(45,2017)
06/11/2017

[tee_grandbois]

ah oui, j'ai oublié : pas de VBA, mais en SQL, c'est pareil :

Code :

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

DateSerial([champAnnee], 1, 3) - Weekday(DateSerial([champAnnee], 1, 3)) - 5 + 7 * [champNumSem]

[YVES3333]

ben un énorme big merci , suis suvé , enfin pour l'instant.
Très bonne soirée

Yves