Discussion :

[kemiolek]

Bonjour,

A l'aide du date and time picker, je recupere une date selectionnée. Je souhaite recuperer sa semaine afin de travailler avec le premier lundi de cette semaine.

Quand j'affiche ma variable, j'obtiens une date en 19/01/1900...

Comment puis-je obtenir 2/06/2008 dans le cas ou je selectionne le 4/06/2008 par exemple ?

J'ai effectué le code suivant :

Code :

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

1
2
3
4
   If Me.chkDate Then
        db = cmbDate.Value
        nDate = Format(db, "ww")    'Selectionne un jour dans le calendrier avec uniquement une date
        MsgBox (nDate)

Merci d'avance,

[Kloun]

Tu peux essayer quelque chose comme ça :

Code :

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

DateAdd("d", -1 * WeekDay(db) + 1, db)

[kemiolek]

Yes !
Merci, après quelques bidouillages, pour faire ce que j'avais besoin de faire ça donne le code suivant :

Code :

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

1
2
3
4
db = DateValue(cmbDate.Value)
nDate = Weekday(db, 2)
detail = DateAdd("w", -1 * nDate + 1, db)
MsgBox (detail)

Merci beaucoup pour ta réactivité et pour l'aide que tu m'as apporté !

[kemiolek]

Peux tu juste m'expliquer ta ligne de code stp ?
Ce serait cool de savoir pourquoi ca marche

[Kloun]

Code :

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

DateAdd("d", -1 * WeekDay(db) + 1, db)

Je soustrais, en jour, à la date sélectionnée le numéro du jour sélectionné+1 afin de tombé sur le lundi qui commence la semaine de la date sélectionnée.

[kemiolek]

oui mais dans ton code on tombait sur le dimanche, c'est pour ca que j'ai rajouté une ligne detail = DateAdd("d", -1 * nDate + 1, db)