Power Query Filtre sur jours ouvrés -1

Efgé

XLDnaute Barbatruc
Bonjour à toutes et tous.
Je plante le décor:
Depuis hier je suis sous 360
J'ai une table Access (copiée pour l'exemple sur la feuille data) qui regroupe des productions par jour.
Je ne dois extraire -afficher - que les productions qui ont eu lieues depuis le dernier jour ouvrés jusqu'à aujourd'hui.
J'ai ajouté une colonne (W.E) dans la requête qui cible les samedis et dimanche et ajouté un tableau des fériés (feuille fériés).

La question : Comment mettre en place ce filtre
Si une bonne âme passe par ici avec une idée…..

Cordialement
 

Pièces jointes

  • Extract_Jours-ouvrés.xlsm
    66.2 KB · Affichages: 15

Jocelyn

XLDnaute Barbatruc
Bonjour le Forum,
Bonjour Efgé, :) ,

Par power query, je ne sais pas o_O, mais pour le fun et peut être donner une orientation un essai par formule matricielle ;)

Cordialement

EDIT Bonjour job75
 

Pièces jointes

  • Extract_Jours-ouvrés.xlsm
    65.7 KB · Affichages: 7

Efgé

XLDnaute Barbatruc
Bonjour job :)
A me relire, effectivement, j'ai été un peu rapide; Je m'explique :
L'utilisation de la requête est quotidienne.
Le mardi nous devons récupérer les productions du lundi, le mercredi les productions du mardi etc...
Mais le lundi et les lendemains de jours fériés nous devons remonter au jour ouvré précédent.
Le lundi, depuis le vendredi inclus, les lendemain de fériés, depuis le jour ouvré précédent inclus.

En espérant avoir été plus précis :)

Cordialement
 

Efgé

XLDnaute Barbatruc
Bonjour Jocelyn :)

Merci de la proposition.
Ce fichier est envoyé à l'extérieur et ne dois présenté que les lignes concernées.
La présence de la base n'est là que pour l'exemple.
En plus les utilisateurs ne doivent rien avoir à faire.

Par contre je garde ta formule pour l'étudier :)

Cordialement
 

job75

XLDnaute Barbatruc
Re, salut Jocelyn,

Ci-joint 2 solutions classiques, par formules et par VBA.

Formule en Extract!B1 ou Extract!B2 =SERIE.JOUR.OUVRE(AUJOURDHUI();-1;Fériés[Date])

La macro du 2ème fichier est assez simple :
VB:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Range("A4:B" & Rows.Count).Delete xlUp 'RAZ
Sheets("Data").[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [B1:B2], [A3:B3] 'filtre avancé
'---mise en forme---
With [A1].CurrentRegion
    If .Rows.Count < 4 Then Exit Sub
    With .Offset(3).Resize(.Rows.Count - 3)
        .Interior.ColorIndex = 6 'jaune
        .Borders.Weight = xlHairline
        .Borders.ColorIndex = xlAutomatic
    End With
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
A+
 

Pièces jointes

  • Extract par formules(1).xlsx
    46.2 KB · Affichages: 12
  • Extract par VBA(1).xlsm
    53 KB · Affichages: 4

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour @Efgé , le fil,

Je me suis bien amusé, j'apprends également, merci efgé.

En attendant mieux, dans le classeur joint deux proposition Pq:

1 - une qui exclue les dates fériées par fonction personnalisée et les samedis dimanches

2 - l'autre qui fait de même mais par jointure de deux tables (Table Fériés et Table Datas) pour exclure les fériés de Datas

A contrôler
Peut-être que @chris passera par là et que son expertise nous éclairera.

Bon après-midi
 

Pièces jointes

  • Efge.xlsm
    97.8 KB · Affichages: 16

Efgé

XLDnaute Barbatruc
Bonjour à toutes et tous.
@Roblochon
Merci de ta proposition que j'ai regardée. Il me reste à la comprendre (surtout au niveau de la fonction personnalisée )

Cela enlève les W.E et les Fériés.
Mon idée de base est de n'avoir que les lignes correspondant à toutes les journées depuis le jour ouvré précédent jusqu'à "aujourd'hui" (bornes comprises)

Cordialement
 

job75

XLDnaute Barbatruc
Bonjour Efgé, Jocelyn, Roblochon, le forum,

Puisque tu as dit "jusqu'à aujourdhui (bornes comprises" j'ai complété les formules et macro sur ces fichiers (2).

Bonne journée.
 

Pièces jointes

  • Extract par formules(2).xlsx
    47.4 KB · Affichages: 2
  • Extract par VBA(2).xlsm
    53.3 KB · Affichages: 5

Discussions similaires

  • Question
Power Query Power Query
Réponses
14
Affichages
983

Statistiques des forums

Discussions
315 134
Messages
2 116 610
Membres
112 807
dernier inscrit
g.udry