Power Query Filtre sur jours ouvrés -1

job75

XLDnaute Barbatruc

• 22 Mai 2019

• #2

Bonjour Efgé,

Efgé à dit:

les productions qui ont eu lieues depuis le dernier jour ouvrés jusqu'à aujourd'hui.

Cliquez pour agrandir...

J'avoue ne pas comprendre.

A+

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 22 Mai 2019

• #3

Bonjour le Forum,
Bonjour Efgé, ,

Par power query, je ne sais pas , 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

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2019

• #4

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2019

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Mai 2019

• #6

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

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2019

• #7

Re
Merci Job
Mais par macro ou formules ça ne vas pas aller.
Il faut que je fasse des liaisons - requêtes. La table ne sera jamais réellement embarquée dans Excel.

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Mai 2019

• #8

Comment ça ne va pas ? Fais une exportation PDF de la feuille "Extract" et envoie-la par mail à qui tu veux...

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2019

• #9

Re
Je suis d'accord avec toi qu'on pourrais le faire comme ça, mais…. la demande n'est pas orientée comme ça.
Je n'y peux rien.
Cordialement

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 22 Mai 2019

• #10

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

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2019

• #11

Re
Bonjour Roblochon
Merci de t'être penché sur mon cas
Je regarde ça demain matin à tête reposée.

Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Mai 2019

• #12

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mai 2019

• #13

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

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Mai 2019

• #14

Re
Merci Job.
Mais comme dit plus haut, la base ne sera pas dans le classeur, il y aura juste une connexion par Power Query.

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mai 2019

• #15

Comment tu feras si un utilisateur est encore sur Excel 97- 2003 ? Il y en a beaucoup (même sur XLD).

 

Vote positif 0 Vote négatif