Planning. Détection jours ferie automatique

[artpic]

Encore moi. Dernière question pour aujourd'hui..

Sur mon planning, pourrait il y avoir automatiquement jours fériés

cf mon exemple pour 31/12/13

Merci à vous.


arptic

 

[ChTi160]

Re : Planning. Détection jours ferie automatique

Bonsoir artpic

Pourquoi dans ton fichier les semaines ont elles 8 jours ?
ex :

  Semaine 49  ---- du  02/12/2013 ---au --- 09/12/2013
puis on retrouve 
  Semaine 50  ---- du  09/12/2013 ---au --- 16/12/2013

Bonne fin de Journée
Amicalement
Jean Marie

 

[piga25]

Re : Planning. Détection jours ferie automatique

Bonjour,

Voir si cela convient pour les jours fériés

 

[Modeste geedee]

Re : Planning. Détection jours ferie automatique

Bonsour®
une fonction personnalisée qui dit si la date est fériée

Code VBA:
Function ferie(target As Date) As Boolean
Dim An As Integer
Dim Paq As Double
An = Year(target)
Paq = Evaluate("=TRunc(DATE(" & An & ",7,-CODE(MID(""NYdQ\JT_LWbOZeR]KU`"",MOD(" & An & ",19)+1,1)))/7)*7+8")
Select Case target
' -----------------------feriés fixes légaux
Case DateSerial(An, 1, 1), DateSerial(An, 5, 1), DateSerial(An, 5, 8), DateSerial(An, 7, 14), DateSerial(An, 11, 11)
ferie = True
' -----------------------feriés mobiles lithurgiques(dimanche)
Case Paq, Paq + 49
' -----------------------feriés mobiles legaux lithurgiques
Case (Paq + 1), DateSerial(An, 8, 15), (Paq + 39), (Paq + 50), DateSerial(An, 11, 1), DateSerial(An, 12, 25)
ferie = True
' ----------------------Jour non travaillé week-end samedi dimanche
' Case weekday(target,2)>5
' ferie = true
Case Else
ferie = False
End Select
End Function



pour les jours non travaillés (samedi et dimanche ou congés contractuels)
utiliser JourSEM et/ou liste personnalisée

 

[artpic]

Re : Planning. Détection jours ferie automatique. résolu

Bonjour,

Merci à vous tous c'est exactement ce que je voulais..

Encore merci pour l'entraide, je vais gagner un temps précieux.


Artpic

 

[ChTi160]

Re : Planning. Détection jours ferie automatique. résolu

Bonjour artpic
Bonjour le fil
Bonjour le Forum

Moi aussi je te dis Merci ,,,, ? Lol

Bonne Journée
Amicalement
Jean Marie