Bonjour le forume,
J'ai déjà posé ma question mais les réponses reçues affirmaient qu'il n'y avait pas de problème. Or le problème persiste, je vais le poser différemment.
Je cherche à calculer le nombre de jours travaillés entre deux dates et j'introduis le nombre de jours fériés par une inpubox.
Voici mon code :
Function NbJoursTravail(Début As Date, Fin As Date)
Dim Vdate As Date
Dim NbJours As Byte
Dim NbJoursWE As Byte
Dim NbJoursFeriés As Byte
NbJours = 0
NbJoursFeriés = 0
NbJoursWE = 0
If Début = 0 Or Fin = 0 Then
NbJoursTravail = 0
Else
NbJoursFeriés = InputBox('Combien de jours feriés dans la période considérée ?', _
'Jours fériés', 0)
For Vdate = Début To Fin
If Weekday(Vdate) = 1 Or Weekday(Vdate) = 7 Then
NbJoursWE = NbJoursWE + 1
End If
Next Vdate
NbJours = Fin - Début + 1
End If
NbJoursTravail = NbJours - NbJoursWE - NbJoursFeriés
End Function
[li]Quand j'insère la première fois[/li] ma fonction la boite de dialogue s'ouvre 5 fois.
Où est l'erreur?
Merci d'avance
Christian