Power Query Copier étapes transformation tableau

Etoto

Etoto

XLDnaute Barbatruc
Bonjour,

Est-ce possible de copier les étapes appliquées sur un tableau dans PQ vers un autre tableau. Faire que le tableau fasse exactement les même étapes de transformation sur un autre tableau.

Est-ce possible ? Parce que j'ai un tableau sur chaque mois d'une année et je voudrais savoir si y'a un moyen d'éviter de faire de répétitions.

PS : J'essaie de mettre mon fichier en ordre avant de vous le joindre.
 
Solution
chris
RE
VB: 
let
    Source = Web.Page(Web.Contents("https://www.sfl.ch/fr/superleague/calendrier/saison/archiveseason/202122/sorting/date/")),
    #"Lignes filtrées" = Table.SelectRows(Source, each ([Source] = "Table")),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Lignes filtrées",{"Caption", "Data"}),
    Source2 = Table.ExpandTableColumn(#"Autres colonnes supprimées", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5"}, {"Column1", "Column2", "Column3", "Column4", "Column5"}),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(Source2, "Column1", Splitter.SplitTextByEachDelimiter({"#(tab)"}, QuoteStyle.Csv, true), {"Column1.1", "Date"}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Fractionner la colonne...
Trier par date Trier par votes
chris

chris

XLDnaute Barbatruc
Bonjour

Vous compliquez inutilement les choses il me semble

  • on peut copier une requête,
  • on peut passer un nom de fichier en paramètre à une requête
  • une requête peut s'appliquer à un ensemble de tableaux
  • on peut transformer une requête en fonction et l'appliquer à d'autres tableaux
  • ...
alors quel intérêt de passer par du VBA ?
 
Vote positif 0 Vote négatif
Wayki

Wayki

XLDnaute Impliqué
chris à dit:
Bonjour

Vous compliquez inutilement les choses il me semble

  • on peut copier une requête,
  • on peut passer un nom de fichier en paramètre à une requête
  • une requête peut s'appliquer à un ensemble de tableaux
  • on peut transformer une requête en fonction et l'appliquer à d'autres tableaux
  • ...
alors quel intérêt de passer par du VBA ?
Cliquez pour agrandir...
L'intérêt est que l'enregistreur de macro transpose les actions effectuées dans PQ.
Je ne connais pas le langage M et je ne suis pas super calé non plus avec cet outil, j'ai juste les bases.
Du coup j'amène une solution avec ce que je sais faire, et ce que j'ai pu déjà expérimenter :)
A +
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
RE

En plus les tables ne sont pas homogènes selon les mois
  • Novembre et Décembre pas d'info buts
  • Avril : la colonne contenant la date n'est pas au même format
  • Janvier, Février, Mars, Avril, Mai : même PB sur la date + pas d'infos buts
donc déjà il faut traiter autrement les colonnes où on récupère date et buts.
A part cela a requête actuelle peut aussi être nettement simplifiée...

Est-il utile d'avoir autant de tableaux que de mois, plutôt qu'un tableau unique après l'indication de la période (Caption sur la source) ?
 
Dernière édition:
Vote positif 0 Vote négatif
merinos

merinos

XLDnaute Accro
Salut le fofo,


Pourquoi faire simple quand on peut faire compliqué?

J'ai un fichier qui possède un certain nombre de tables IDENTIQUES AU NIVEAU DE LA STRUCTURE.

je crée un query qui se connecte a ce document.
j'alimine les étapes autres quela connection ce qui me montre le contenu du fichier (sheets, tables, named ranges,...)

Je filtre pour garder les tables.
je les ouvre et C'EST FINI...

PS: les tableaux de ton fichier ne sont pas semblables... et ne peuvent pas être mis ensembles.
 

Pièces jointes

  • compil 12 mois.xlsx
    16.7 KB · Affichages: 3
  • one year 12 tables.xlsx
    17.5 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
Etoto

Etoto

XLDnaute Barbatruc
Bonjour à tous,
Désolé, j'avais des cours hier.
chris à dit:
Est-il utile d'avoir autant de tableaux que de mois, plutôt qu'un tableau unique après l'indication de la période (Caption sur la source) ?
Cliquez pour agrandir...
Le problème est que sur le site source, les données sont séparées par mois. Et j'avais demandé sur un autre fil comment faire pour fusionner des requêtes et j'ai eu une solution par VBA venant de @Lolote83. Je sais pas s'il existe une solution depuis PQ directement. Parce que c'est mon objectif final de fusionner les tableaux et j'ai la macro de @Lolote83 qui le fait.
Wayki à dit:
Ci-joint ma proposition,
Il faut entrer un nom de requête qui n'existe pas déjà en premier lieu,
Puis rentrer le numéro de la table correspondante dans un second temps,
Le tableau vient se greffer à la suite du précédent.
Cliquez pour agrandir...
Super, je vais tester tout de suite.
merinos à dit:
je crée un query qui se connecte a ce document.
j'alimine les étapes autres quela connection ce qui me montre le contenu du fichier (sheets, tables, named ranges,...)

Je filtre pour garder les tables.
je les ouvre et C'EST FINI...
Cliquez pour agrandir...
Je vais aussi voir ta proposition. Merci
MP59 à dit:
#"Type modifié" = Table.TransformColumnTypes(Data10,{{"Column1", type text}, {"Column2", type time}, {"Column3", type text}, {"Column4", type time}, {"Column5", type text}}),
avec la virgule à la fin
et non
#"Type modifié" = Table.TransformColumnTypes(Data10,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}})
Cliquez pour agrandir...
Super. Merci
 
Vote positif 0 Vote négatif
Etoto

Etoto

XLDnaute Barbatruc
Re,

Je vous transmet mes résultats :

Pour le code de @MP59, j'ai une erreur "Expression.SyntaxError : Jeton Comma attendu."

Code: 
let
    Source = Web.Page(Web.Contents("https://www.sfl.ch/fr/superleague/calendrier/saison/archiveseason/202122/sorting/date/")),
    Data10 = Source{10}[Data],
    #"Type modifié" = Table.TransformColumnTypes(Data10,{{"Column1", type time}, {"Column2", type time}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}})
    #"Derniers caractères insérés" = Table.AddColumn(#"Type modifié", "Derniers caractères", each Text.End([Column1], 8), type text),
    #"Colonnes permutées" = Table.ReorderColumns(#"Derniers caractères insérés",{"Column1", "Derniers caractères", "Column2", "Column3", "Column4", "Column5"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Colonnes permutées",{"Column1"}),
    #"Type modifié1" = Table.TransformColumnTypes(#"Colonnes supprimées",{{"Derniers caractères", type date}}),
    #"Colonnes supprimées1" = Table.RemoveColumns(#"Type modifié1",{"Column2"}),
    #"Colonnes renommées" = Table.RenameColumns(#"Colonnes supprimées1",{{"Column3", "Equipe dom"}, {"Column5", "Equipe ext"}, {"Derniers caractères", "Date"}}),
    #"Colonnes permutées1" = Table.ReorderColumns(#"Colonnes renommées",{"Date", "Equipe dom", "Equipe ext", "Column4"}),
    #"Premiers caractères insérés" = Table.AddColumn(#"Colonnes permutées1", "Premiers caractères", each Text.Start(Text.From([Column4], "fr-CH"), 2), type text),
    #"Colonnes renommées1" = Table.RenameColumns(#"Premiers caractères insérés",{{"Premiers caractères", "But dom"}}),
    #"Derniers caractères insérés1" = Table.AddColumn(#"Colonnes renommées1", "Derniers caractères", each Text.End(Text.From([Column4], "fr-CH"), 2), type text),
    #"Colonnes renommées2" = Table.RenameColumns(#"Derniers caractères insérés1",{{"Derniers caractères", "But ext"}}),
    #"Type modifié2" = Table.TransformColumnTypes(#"Colonnes renommées2",{{"But dom", Int64.Type}, {"But ext", Int64.Type}}),
    #"Colonnes supprimées2" = Table.RemoveColumns(#"Type modifié2",{"Column4"})
in
    #"Colonnes supprimées2"

Pour le fichier de @Wayki, c'est parfait ! Tu saurais comment faire une macro pour après fusionner les tableaux ou pas ?

Merci à vous tous.
 
Vote positif 0 Vote négatif
Etoto

Etoto

XLDnaute Barbatruc
Encore re, (désolé)

J'ai remarqué qu'après 2022, les date savaient un "*" à la fin. J'i donc modifié les étapes, voici les nouvelles qui se trouvent sur la requête de la feuille "Après 2022". Encore merci à tous pour votre aide ! Si il existe pas de solution, je peux recréer les étapes manuellement, cela me dérange pas.
 

Pièces jointes

  • Pq XLD.xlsm
    53.1 KB · Affichages: 2
Vote positif 0 Vote négatif
Etoto

Etoto

XLDnaute Barbatruc
MP59 à dit:
Pour le code de @MP59, j'ai une erreur "Expression.SyntaxError : Jeton Comma attendu."

J'avais pourtant bien précisé : avec la virgule à la fin.
Cliquez pour agrandir...
Ha ! Cette virgule 🤣 🤣 J'avais pas compris que tu parlais de cette fin. Je pensais que tu parlais de la virgule à la fin du "type time". Désolé, j'ai été un peu stupide ! Et ça fonctionne nickel !! Faut juste que je l'adapte au post 23. C'est fonctionnel pour chaque mois du coup ?

EDIT : C'est bon, j'ai réussi. Je reviens ici si je rencontre d'autres problèmes. Merci à tous !
 
Vote positif 0 Vote négatif
Etoto

Etoto

XLDnaute Barbatruc
chris à dit:
Bonjour

Mais avec PowerQuery justement c'est beaucoup plus simple de récupérer d'un coup l'ensemble des mois que découper comme tu l'as fait.

Aucun besoin de VBA comme la plupart du temps avec PowerQuery à part une ligne si on veut actualiser automatiquement dans certains cas...
Cliquez pour agrandir...
Alors, j'aimerai bien connaître la méthode parce que j'ai eu que la version VBA moi, pas PQ.
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
RE
VB: 
let
    Source = Web.Page(Web.Contents("https://www.sfl.ch/fr/superleague/calendrier/saison/archiveseason/202122/sorting/date/")),
    #"Lignes filtrées" = Table.SelectRows(Source, each ([Source] = "Table")),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Lignes filtrées",{"Caption", "Data"}),
    Source2 = Table.ExpandTableColumn(#"Autres colonnes supprimées", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5"}, {"Column1", "Column2", "Column3", "Column4", "Column5"}),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(Source2, "Column1", Splitter.SplitTextByEachDelimiter({"#(tab)"}, QuoteStyle.Csv, true), {"Column1.1", "Date"}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Fractionner la colonne par délimiteur","*","",Replacer.ReplaceText,{"Date"}),
    #"Fractionner la colonne par délimiteur1" = Table.SplitColumn(#"Valeur remplacée", "Column4", Splitter.SplitTextByDelimiter(":", QuoteStyle.Csv), {"But Dom", "But Ext"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Fractionner la colonne par délimiteur1",{"Column1.1", "Column2"}),
    #"Valeur remplacée1" = Table.ReplaceValue(#"Colonnes supprimées","-","",Replacer.ReplaceText,{"But Dom", "But Ext"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Valeur remplacée1",{{"Column3", type text}, {"Column5", type text}, {"Date", type date}, {"But Dom", Int64.Type}, {"But Ext", Int64.Type}}),
    #"Colonnes renommées" = Table.RenameColumns(#"Type modifié",{{"Column3", "Equipe dom"}, {"Column5", "Equipe ext"}}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Colonnes renommées",{"Date", "Equipe dom", "Equipe ext", "But Dom", "But Ext"})
in
    #"Colonnes permutées"

c'est tout
 
Vote positif 0 Vote négatif
Solution
Etoto

Etoto

XLDnaute Barbatruc
chris à dit:
RE
VB: 
let
    Source = Web.Page(Web.Contents("https://www.sfl.ch/fr/superleague/calendrier/saison/archiveseason/202122/sorting/date/")),
    #"Lignes filtrées" = Table.SelectRows(Source, each ([Source] = "Table")),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Lignes filtrées",{"Caption", "Data"}),
    Source2 = Table.ExpandTableColumn(#"Autres colonnes supprimées", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5"}, {"Column1", "Column2", "Column3", "Column4", "Column5"}),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(Source2, "Column1", Splitter.SplitTextByEachDelimiter({"#(tab)"}, QuoteStyle.Csv, true), {"Column1.1", "Date"}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Fractionner la colonne par délimiteur","*","",Replacer.ReplaceText,{"Date"}),
    #"Fractionner la colonne par délimiteur1" = Table.SplitColumn(#"Valeur remplacée", "Column4", Splitter.SplitTextByDelimiter(":", QuoteStyle.Csv), {"But Dom", "But Ext"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Fractionner la colonne par délimiteur1",{"Column1.1", "Column2"}),
    #"Valeur remplacée1" = Table.ReplaceValue(#"Colonnes supprimées","-","",Replacer.ReplaceText,{"But Dom", "But Ext"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Valeur remplacée1",{{"Column3", type text}, {"Column5", type text}, {"Date", type date}, {"But Dom", Int64.Type}, {"But Ext", Int64.Type}}),
    #"Colonnes renommées" = Table.RenameColumns(#"Type modifié",{{"Column3", "Equipe dom"}, {"Column5", "Equipe ext"}}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Colonnes renommées",{"Date", "Equipe dom", "Equipe ext", "But Dom", "But Ext"})
in
    #"Colonnes permutées"

c'est tout
Cliquez pour agrandir...
Super ! Pour éviter de faire une bourde, je place ce code dans l'éditeur de quel tableau ?
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
251
DJunqueira
D
K
  • Question
Microsoft 365 Transformation de données
2 3
Réponses
30
Affichages
797
Cousinhub
Cousinhub
H
  • Résolu(e)
Autres copier des colonnes de tableau dans un autre onglet
Réponses
8
Affichages
370
hervoul
H
M
  • Question
Microsoft 365 Copier coller bizarre…
2
Réponses
15
Affichages
493
Phil69970
Phil69970
Saalut
  • Question
XL 2019 Pourriez vous SVP optimiser ce tableau
Réponses
1
Affichages
93
ChTi160
ChTi160
F
  • Question
Microsoft 365 Copier des données en décalant des cellules
Réponses
6
Affichages
184
Frank Bellaisch
F
H
  • Résolu(e)
Microsoft 365 Archivage automatique sous condition (Macro)
Réponses
2
Affichages
298
HugoLaChips
H
F
  • Question
Microsoft 365 Copie de couleur de cellules
Réponses
3
Affichages
177
gbinforme
G
A
  • Question
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
6
Affichages
238
Alexandrax971
A
F
  • Question
XL 2019 Extraire des lignes suivant somme des colonnes pour alimenter un autre tableau
Réponses
1
Affichages
222
fanfan38
fanfan38

Membres actuellement en ligne

10 membres et 238 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 198
Messages
2 086 145
Membres
103 130
dernier inscrit
FRCRUNGR