XL 2016 PowerQuery nom des fichiers

S

steph_29120

XLDnaute Junior

• 14 Juin 2023

• #16

ci-joint

 

Pièces jointes

• table_1.xlsx

  8.9 KB · Affichages: 3

Vote positif 0 Vote négatif

S

steph_29120

XLDnaute Junior

• 14 Juin 2023

• #17

je ne comprends pas pourquoi on ne peut pas ajouter une colonne qui indique le nom de la table ?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 14 Juin 2023

• #18

Re-,
Je pense avoir trouvé...
Une fois que tu as tes 3 requêtes chargées (comme dans l'image ci-dessous), tu fais un clic droit dans la zone "Requête", "Nouvelle requête", "Autres sources", "Requête vide"



Tu la renommes "Comb" (par exemple), et tu cliques sur "Éditeur avancé"
Tu mets ce code à la place du code d'origine :

PowerQuery:

let
    Source = Record.ToTable(#sections[Section1]),
    Filtr = Table.SelectRows(Source, each ([Name] <> "Comb")),
    Expand = Table.ExpandTableColumn(Filtr, "Value", {"nom", "prénom"}, {"nom", "prénom"})
in
    Expand

Et normalement, tu obtiens ce que tu veux (regarde le tableau ci-dessus, j'ai rajouté tg pour ti_glazik...
Bon courage

PS, merci à @Amilo pour son code

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 14 Juin 2023

• #19

Re-,
Afin de s'affranchir des noms de colonnes à développer, mets plutôt ce code dans l'éditeur avancé de la requête "Comb" :

PowerQuery:

let
    Source = Record.ToTable(#sections[Section1]),
    Filtr = Table.SelectRows(Source, each ([Name] <> "Comb")),
    Expand = Table.ExpandTableColumn(Filtr, "Value", Table.ColumnNames(Filtr[Value]{0}), Table.ColumnNames(Filtr[Value]{0}))
in
    Expand

Comme cela, si tu as plus de colonnes, elles seront toutes développées...
Bonne soirée

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 14 Juin 2023

• #20

Bonjour le forum, steph_29120, Cousinhub ,

VB:

Expand = Table.ExpandTableColumn(Filtr, "Value", Table.ColumnNames(Filtr[Value]{0}), Table.ColumnNames(Filtr[Value]{0}))

@Cousinhub , si je peux me permettre, cette ligne de code permet d'avoir uniquement toutes les colonnes de la 1ère Table mais pas celles des autres tables de la colonne [Value].
Si une colonne est ajoutée par exemple dans la table [Value]{1}, celle-ci ne sera pas reprise si le nouveau nom de la colonne n'apparait pas dans la 1ère table [Value]{0}.

J'aurais plutôt utilisé mais sans avoir testé :

Code:

=Table.ExpandTableColumn(Filtr, "Value", List.Distinct(List.Combine(List.Transform(Filtr[Value], each Table.ColumnNames(_)))))

@steph_29120 , Cousinhub a posé les bonnes questions dans ses différentes réponses et il n'est pas facile de proposer une méthode parmi d'autres sans connaître le contenu des dossiers, des fichiers et si les tables ou colonnes risquent d'être ajoutées....etc

Mais la dernière proposition de Cousinhub conviendra très certainement à votre situation.

Cordialement

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 15 Juin 2023

• #21

Bonjour,

Amilo à dit:

J'aurais plutôt utilisé mais sans avoir testé :

Code:

=Table.ExpandTableColumn(Filtr, "Value", List.Distinct(List.Combine(List.Transform(Filtr[Value], each Table.ColumnNames(_)))))

Cliquez pour agrandir...

Testé, validé...
Merci pour cette modification. Ce code permet de rajouter toutes les colonnes de chaque fichier source.
Bonne journée

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 15 Juin 2023

• #22

Merci Cousinhub,
Bonne journée

 

Vote positif 0 Vote négatif

S

steph_29120

XLDnaute Junior

• 16 Juin 2023

• #23

Bonjour
Merci à tous les deux. Mais je dois mal m'y prendre car voilà ce que cela donne :



et rien ne se charge : je vous ai prévenu : je suis un grand débutant !

 

Pièces jointes

• 1686901073243.png

  66.1 KB · Affichages: 7

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Juin 2023

• #24

Bonjour,
Il ne faut pas mettre cela dans la barre de formules, mais dans l'éditeur avancé (qui est en quelque sorte le pendant d'un Module, si tu connais un peu le VBA)
Pour ce faire, tu sélectionnes (comme tu l'as fait) la nouvelle requête (que tu as bien renommée "Comb")
Et dans le ruban Accueil, tu cliques sur "Éditeur avancé"

Tu arrives donc dans l'éditeur, et c'est là que tu colles le code :

Comme tu peux le voir, ici, j'utilise le code fourni par Amilo

 

Vote positif 0 Vote négatif

S

steph_29120

XLDnaute Junior

• 16 Juin 2023

• #25

merci @Cousinhub et @Amilo pour votre aide cela fonctionne parfaitement !

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 16 Juin 2023

• #26

Re,
Depuis Excel, ALT+F12 permet d'ouvrir directement l'éditeur Power Query, ALT+F11 pour l'éditeur VBA

Edit : ALT + F12 ouvre l'éditeur PQ mais pour l'éditeur avancé, il faut effectivement passer par le ruban de l'éditeur PQ

Cordialement

 

Dernière édition: 16 Juin 2023

Vote positif 0 Vote négatif

S

steph_29120

XLDnaute Junior

• 16 Juin 2023

• #27

Amilo à dit:

Re,
Depuis Excel, ALT+F12 permet d'ouvrir directement l'éditeur Power Query, ALT+F11 pour 'éditeur VBA

Cordialement

Cliquez pour agrandir...

merci ! bon weekend

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 16 Juin 2023

• #28

Bonjour à tous

On peut faire un tableau listant les chemins et noms des fichiers puis charger ce tableau dans PowerQuery. On récupère ensuite les contenus : la colonne initiale reste.

Exemple :
Tableau nommé ListeXLS

On a une fonction nommée TraitementXLS qui charge les tableau du 1er onglet de chaque classeur, récupère une en-tête, et met les 2 colonnes en nompropre (c'est juste une ligne pour montrer qu'on peut agir sur chaque tableau)

VB:

(Fichier as text)=>
let
    Source = Excel.Workbook(File.Contents(Fichier)),
    Onglet=Source{0}[Data],
    #"En-têtes promus" = Table.PromoteHeaders(Onglet, [PromoteAllScalars=true]),
    NomPropre=Table.TransformColumns(#"En-têtes promus",{{"nom", Text.Proper, type text}, {"prénom", Text.Proper, type text}})
in
NomPropre

Et on a juste à appeler la fonction :
Ajouter une colonne, Appeler une fonction personnalisée, Sélectionner TraitementXLS comme Requête de fonction, valider.
Il n'y a plus qu'à cliquer sur la double flèche en haute de la colonne TraitementXLS

 

Dernière édition: 16 Juin 2023

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Juin 2023

• #29

Hi,
Chris, je lui avais proposé ce principe, mais..
Par contre, moi, je mets ta fonction dans mon coffre-fort.
Merci, et bonne fin d'apm et bon W-E

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 16 Juin 2023

• #30

RE
Il me semblait avoir vu une liste fermée mais j'ai parcouru en diagonale...

 

Vote positif 0 Vote négatif