Discussion :

[Nounours1]

Bonjour,

Dans un module qui commence par

Code :

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

Public Function

Est-il possible d'utiliser ce code dans une requête ?
Si oui comment inscrire ceci dans un nouveau champ ?

Par exemple :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 Public Function NbOpenDay(dtDeb As Date, dtFin As Date) As Integer
    ' Calculer le nombre de jours ouvrables entre deux dates
    ' Utilise la fonction JourFérié(dtDate As Date)
 
        Dim dblDateDeb As Double
        Dim dblDateFin As Double
        Dim DateCourante As Date
        Dim resultat As Integer
 
        If IsNull(dtDeb) Or IsNull(dtFin) _
            Or IsEmpty(dtDeb) Or IsEmpty(dtFin) Then
                NbOpenDay = 0
                Exit Function
        ElseIf Not IsDate(dtDeb) Or Not IsDate(dtFin) Then
                NbOpenDay = 0
                Exit Function
        ElseIf dtDeb > dtFin Then
                Dim dhTemp As Date
                dhTemp = dtDeb
                dtDeb = dtFin
                dtFin = dhTemp
        End If
 
        dblDateDeb = CDbl(dtDeb)
        dblDateFin = CDbl(dtFin)
 
        Do Until dblDateDeb > dblDateFin
            DateCourante = CDate(dblDateDeb)
            If WeekDay(DateCourante) <> 1 And _
                WeekDay(DateCourante) <> 7 And _
                JourFérié(DateCourante) = False Then
                    resultat = resultat + 1
            End If
            dblDateDeb = dblDateDeb + 1
        Loop
 
        NbOpenDay = resultat
 
    End Function

Merci d'avance
Cordialement

[Nounours1]

Ce n'est pas

Code :

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

NbOpenDay(dtDeb , dtFin)

dans le champ de la requête ?

Merci

[marot_r]

Bonjour.

Une fonction public VBA peut être utilisée partout où tu utilises une fonction intégrée d'Access et de la même façon.

Quelque chose comme :

Code :

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

TonChamp:=NbOpenDay(P1, p2)

À adapter à ta réalité

Note que l'appel de fonction VBA ralenti Access mais que personnellement vu l'avantage que cela procure en maintenabilité je ne m'en passe pas tant que ma vitesse d'exécution est acceptable.

A+

[Nounours1]

Merci, je vais tester.

@+

[Nounours1]

J'ai fais plusieurs essais dans un champ de requête, mais je n'y arrive pas.

Tu as un exemple ?

Merci.

[Thumb down]

bonjour,

Code sql :

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

select NbOpenDay([dtDeb],[dtFin]) as MyChamp from MyTable

Code VBA :

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

SQL="select NbOpenDay([dtDeb],[dtFin]) as MyChamp from MyTable"

[Nounours1]

Je n'y arrive pas, dans ma requête j'ai deux champs "DtDeb et DtFin" TableDesDates
Je dois rajouter un autre champ ?

J'ai plusieurs dates début et fin.

Merci pour votre aide, je ne connais pas suffisamment ACCESS le meilleurs moyen est l'exemple concret.

@+

[marot_r]

Bonjour.

oui tu dois ajouter ce qu'on appelle un champ calculé qui "récupére" le résultat de ta fonction.
Donc tu te mets dans une colonne vierge de ta requête et tu tapes un truc du genre :

Code :

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

NbJourOuvrable : NbOpenDay([NomTaTable].[dtDeb]; [NomTaTable].[dtFin])

Cela va te faire une nouvelle colonne appelée NbJourOuvrable où tu auras le résultat.
Remplacer NomTaTable par le nom que tu as donné à ta table.

A+

[Nounours1]

Merci beaucoup,

Maintenant ça fonctionne.

@+

[marot_r]

Bonjour.

Si tu considères le sujet clos, merci d'appuyer sur le bouton en bas de discussion.

A+