Discussion :

[Stefane1969]

Une question qui semble si simple, mais qui me hante depuis plusieurs jours.

J’ai un USERFORM avec 3 Textbox.

Textbox1 = 2015-04-02 10 :34 :01
Textbox2 = 2015-04-07 16 :34 :32
Textbox3 = (Nombre d’heures)

Comment puis-je calculer le nombre d’heures entre ces dates en excluant les weekends et les jours fériés?
Sachant que le 2015-04-03 est un jour férié et que les 4 et 5 avril est un jour de weekend.

J’ai un tableau [CONGÉ] contenant les journées fériées.
J’ai tenté la fonction suivante, mais elle me retourne que le nombre de jours.

Code :

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

Textbox3 = Application.WorksheetFunction.NetworkDays(Textbox1, Textbox2, [CONGER])

Merci de votre aide.

[Theze]

Bonjour,

Pour totaliser le nombre d'heures au delà de 24, tu peux essayer ce qui suit, pour les jours fériés je n'ai pas regardé mais je pense qu'il te faut les déduire de la seconde date comme dans mon 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
 
Sub Test()
 
    Dim Date1 As Date
    Dim Date2 As Date
 
    Date1 = #4/2/2015 10:34:01 AM#
    Date2 = #4/7/2015 4:34:32 PM#
 
    'un jour férié est déduit !
    Date2 = Date2 - 1
 
    MsgBox Application.WorksheetFunction.Text(Date2 - Date1, "[h]:mm:ss")
 
End Sub

Hervé.