Discussion :

[Commandeur]

Bonjour


j'ai essaye de commencé mon planning au 01/05/15 07:00, effectivement sa le perturbe il me tien plus compte de mes jours ferries et week-end.

Sinon si je tape une date de début qui commence le vendredi, sa le fait le même bug voici la date 24/04/15 07:00,

Merci de tes lumières....

ordonnancement phase 03.rar

Je te fait repassé mon projet pour que tu es les mêmes données.


Bon weekend...

[Commandeur]

Bonjour,

J'ai trouve le soucis , si tu mais une date du vendredi sa bug exp: 24/04/15 07:00.
sa tien plus compte de jours ferries et les week-end

Je te renvoie mon fichier pour que tu est les mêmes données.

ordonnancement phase 03.rar

[Didier L]

Bonsoir,

L'erreur venait de l'appel de la fonction jourférié car nous lui donnions aussi l'heure et que cette fonction cherche l'égalité !
Donc le 01/05:2015 n'était jamais égal au 01/05/2015 07:00 par exemple ;-/

Voila don le code à changer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function JourChome(ByVal pdDate As Date) As Boolean
    Select Case Format(pdDate, "w", vbMonday)
        Case 6, 7 'Samedi et dimanche
            JourChome = True
        Case Else 'Autres jour de la semaine
            If EstFerie(DateSerial(Year(pdDate), Month(pdDate), Day(pdDate))) Then
                JourChome = True
            Else
                JourChome = False
            End If
    End Select
End Function

Et tout marche bien.

Je te retourne ta base aussi ou j'ai remplacé les macro par du code en guise d'exemple
ordonnancement phase 03.rar

Bonne continuation

[Commandeur]

Bonjour,

Je te remercie de aide sur ce sujet, sa fonctionne super bien.
Mon seul soucis qu je n'avais pas pensé au début, si il y a 1 ou 2 heures de pause le midi.
Dans ma table temps_travail, j'aurais du mettre: jours debut1 , fin1, debut2, fini2, temps par jour

, merci encore pour ton aide.

Bonne continuation.