Discussion :

[mm12345]

Bonjour,

Je souhaiterais remplacer le bout de code entre guillemets en fin de programme (Table.Combine ({Tab1,Tab2,Tab3,Tab4,Tab5.......}) afin d'automatiser le process.
Je dispose de plusieurs fichiers quelconques dont le nombre de tableaux n'est pas le même.
Je souhaiterais que pour chacun de ces fichiers je puisse combiner leur table de façon automatique.
Par exemple: Fichier 1 ; 10 tableaux séparés
Fichier 2 ; 25 tableaux séparés
fichier 3 ; 100 tableaux séparés

J'obtiens par la suite de l'exécution de mon programme : Fichier 1 ; 10 tableaux combinés
Fichier 2 ; 25 tableaux combinés
Fichier 3 ; 100 tableaux combinés

Voici le code que j'ai commencé à faire mais le problème est que je rentre une valeur de type string à la place d'une valeur de type liste de table.

[78chris]

Bonjour

Si ces sont des tableaux structurés issus de requêtes, une requête powerquery peut traiter les classeurs d'un dossier assez simplement.

[Raccourcix]

Bonjour
je compléterai en écrivant qu'il vaut bien mieux gérer dans Power Query votre liste de tableaux que dans VBA.
Les possibilités des fonctions "List" en langage M sont infinies ou presque et généralement assez simple à mettre en œuvre.
D'où vient l'information de votre liste de 10, 20 ou 100 tableaux à agréger ?
Stéphane

[mm12345]

Bonjour,

Je souhaiterais déjà vous remercier pour avoir répondu.
Mes tableaux sont effectivement des tableaux structurés issus de requêtes. C'est avec la requête Table.Combine de Power Query que je gère l'ajout des différentes tables; c'est pourquoi j'obtiens ce code sous VBA Table.Combine ({Tab1,Tab2,Tab3,Tab4,Tab5.......}).
Mes listes je les obtiens à partir d'un fichier PDF comportant un certain nombre de tableaux (Valeur non fixe d'un fichier PDF à l'autre) et que je souhaiterais combiner tous les tableaux d'un même fichier à chaque fois.
Les informations entre fichier PDF ne pouvant être mélangé, il me faudrait un tableau combiné par PDF.

PS: Il peut arriver d'avoir plus d'une trentaines de fichiers PDF pour lesquels il me faut refaire la même opération; d'où ma volonté d'automatiser le process.

[Raccourcix]

Mais pourquoi vouloir passer par VBA ?
Vous pouvez récupérer tous les tableaux d'un PDF en même temps avec Power Query et la fonction Pdf.Tables
Ajoutez une pièce jointe si vous avez un exemple de fichier non confidentiel
Stéphane

[jurassic pork]

Hello,
voici un exemple de requête en Power Query M pour récupérer une liste de tableaux de même type d'une source et les combiner en un seul tableau avec Power Query M
Ma source est un classeur (sniff ! je n'ai qu'Excel 2016 donc pas de connecteur PDF) mais je pense que cela devrait fonctionner pareil avec un connecteur PDF. Ce classeur contient 6 tableaux de même type :



Dans mon exemple, j'effectue des étapes supplémentaires qui ne sont pas forcément nécessaires :
1 - Tri de la liste des tables suivant un critère personnalisé ( tri sur la partie numérique du nom des tableaux). Et Pourquoi ne pas utiliser un tri classique (ex : Order.Ascending) me direz-vous ? Parce que le tri par défaut est alphabétique donc par exemple Tab1, Tab2, Tab10 sera trié Tab1, Tab10, Tab2. Avec le tri personnalisé on aura bien Tab1, Tab2, Tab10.
2 - Filtre de la liste des tables suivant deux critères (on ne veut que les tableaux et dont le nom contient Tableau).

Voici le code Power Query M :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
let
    Source = Excel.Workbook(File.Contents("D:\Dev\Office\Excel\Tableaux.xlsx"), null, true),
    #"Lignes triées" = Table.Sort(Source,{{each Number.FromText(Text.Select([Name],{"0".."9"})), Order.Ascending}}),
    #"Liste Tables" = Table.SelectRows(#"Lignes triées", each ([Kind] = "Table" and Text.Contains([Name], "Tableau"))),
    #"Tables combinées" = Table.Combine(#"Liste Tables"[Data])
in
    #"Tables combinées

A noter que dans le cas d'un fichier PDF comme source la première ligne devrait ressembler à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Source = Pdf.Tables(File.Contents("c:\sample.pdf"))

Voici la visualisation des différentes étapes de la requête Power Query M:



Résultat Dans une feuille de classeur :



Ami calmant, J.P

[mm12345]

Mais pourquoi vouloir passer par VBA ?
Vous pouvez récupérer tous les tableaux d'un PDF en même temps avec Power Query et la fonction Pdf.Tables
Ajoutez une pièce jointe si vous avez un exemple de fichier non confidentiel
Stéphane

Je souhaite passer par vba car j'ai plusieurs fichier PDF à traiter séparément.
Le fichier est confidentiel mais je peux vous faire un exemple de à quoi il ressemble. N'ayant pas les accès pour modifier le fichier PDF j'ai importé le tableau sur Excel pour que vous voyez à quoi cela ressemble.



Chaque page du PDF contient un tableau comme l'image extraite jointe (avec un nombre de lignes variables en fonction des infos qui y sont rentrés).

Dans mon programme, j'importe tous les tableaux, je les renomme, je crée la connexion aux requêtes et je les transpose.



Ensuite je souhaite les combiner tous ensemble pour n'en faire qu'un seule grand tableau :



Le code reste du Power Query M car c'est d'ailleurs sur celui-ci que je fais la combinaison de tableaux mais l'utilisation du Table.combine ({liste de tables}) requiert en paramètres une liste de tableaux et je n'arrive pas à récupérer chacun de mes tableaux sans avoir à les écrire un par un.

En espérant avoir mieux décrit le problème.

[jurassic pork]

Le code reste du Power Query M car c'est d'ailleurs sur celui-ci que je fais la combinaison de tableaux mais l'utilisation du Table.combine ({liste de tables}) requiert en paramètres une liste de tableaux et je n'arrive pas à récupérer chacun de mes tableaux sans avoir à les écrire un par un.

As-tu lu mon message précédent ?

[mm12345]

Salut,
Oui j'ai lu ton message précédent.
j'ai aussi vu que tous tes tableaux sont appelés par un seul nom "Liste Tables": #"Tables combinées" = Table.Combine(#"Liste Tables"[Data])
in
#"Tables combinées
Comment les récupères-tu toutes ? Est-ce que "Liste Tables" est une variable de type string ou c'est autre chose ?

[mm12345]

Ca y est, je viens de comprendre. C'est une étape. ( On ne sait plus lire de nos jours )

[mm12345]

As-tu lu mon message précédent ?

Salut,
J'ai écrit les premières lignes comme tu me l'a décrit et j'obtiens cela mais il semblerait que je ne suis pas autorisé à combiner les fichiers. Peut être que je me trompe d'onglet. Dans l'attente de ton aide.

[jurassic pork]

A quoi correspondent les 3 requêtes Table001, Table002, Table003 ? A 3 fichiers PDF différents ?
Ce que tu nous montres correspond aux tables qu'il y a dans un fichier PDF ?
Peux-tu nous montrer ce qu'il y a dans source (sans mettre de données confidentielles)
Tu veux faire une fusion de toutes les tables de tous les fichiers ?

[mm12345]

Oui c'est bien cela, je veux faire une fusion de toutes mes tables qui se trouvent dans Table001
Table002, Table003 sont à supprimées, j'ai fait la capture avant de les supprimer.

Alors j'ai tout d'abord essayé celui-là :



Comme ça ne passait pas j'ai mis çà :

[jurassic pork]

Dans Etapes Appliquées tu cliques droit sur ta dernière étape (Lignes filtrées) et tu cliques sur insérer l'étape après.
Dans cette nouvelle étape tu tapes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= Table.Combine(#"Lignes filtrées"[Data])

Tu renommes la nouvelle étape avec un nom explicite (clic droit Renommer)
Normalement tu devrais avoir une table avec le contenu de toutes les autres

[mm12345]

C'est tout bon, merci beaucoup beaucoup pour ton aide et ta patience.
C'est vraiment trop puissant ce code !!!!!