Discussion :

[sardaucar]

Bonjour à tous,

J'utilise la fonction work days dans les calculs de mes jours ouvrés. Cependant, suivant les besoins, les jours correspondants à mon weekend peuvent être annulés. J'aurai donc besoin de passer l'argument firstdayofweek de la fonction datepart en variable. Actuellement il est comme ça pour les weekends samedi-dimanche :

Code :

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

DatePart("w", dt, 2)

Dans mon formulaire j'ai une liste déroulante qui me choisi mes weekends :
Vendredi - Samedi 1
Samedi - Dimanche 2
Dimanche - Lundi 3
Lundi - Mardi 4
Mardi - Mercredi 5
Mercredi - Jeudi 6
Jeudi - Vendredi 7

Je voudrais que le numéro de la fonction datepart prenne la valeur de mon choix dans la liste déroulante.
D'habitude je sais passer des variables en VBA, mais là mon code est contenu dans un module que j'appelle après. Comment lui faire comprendre que ceci :

Code :

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

DatePart("w", dt, form.MonControl)

Fait référence au contrôle du formulaire en cours ?

Merci d'avance !

Sardaucar

[Jeannot45]

L'argument FisDayOfWeek est une constante et de ce fait ne peut être remplacé par une variable. Par contre tu pourrais "détourner" le problème via un Select Case

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Select Case Form.NomControl
   Case is = 1
       DatePart("w", dt, 1)
   Case is = 2
       DatePart("w", dt, 2)
   Case is = 3
       DatePart("w", dt, 3)
   Case is = 4
       DatePart("w", dt, 4)
   Case is = 5
       DatePart("w", dt, 5)
   Case is = 6
       DatePart("w", dt, 6)
   Case is = 7
       DatePart("w", dt, 7)
End select

Bonne continuation

[sardaucar]

Tout simplement

Merci beaucoup !