Tableau structuré - Requête SQL - Réunir 2 tableaux

Version imprimable

Bonjour,

Dans une feuille de mon classeur, j'ai un tableau structuré issu d'une connexion SQL (Commandes mises en production)

Dans le même classeur, j'ai une deuxième feuille contenant un deuxième tableau structuré issu d'une autre connexion SQL (Nouvelles commandes)

Les 2 tableaux ont les mêmes entêtes de colonne avec plus ou moins de lignes

Comment copier-coller toutes les lignes de ces 2 tableaux dans un seul ?

Le but est de pouvoir effectuer une analyse dans le tableau structuré en utilisant les filtres ou via un tableau croisé dynamique

Bien sûr, la mise à jour doit se faire en un clic ou lors de l'actualisation de toutes les sources du classeur

Ci-dessous une macro vite faite qui fait le travail, mais il doit y avoir plus simple

Je vous remercie
Philippe
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Option Explicit Sub Fusion_TS() Application.ScreenUpdating = False Dim NB_Lignes_TS_Fusion As Long Boutons_Fonctions.Bouton_Tout_Afficher '!!!!!!! IMPORTANT pour que le rafraîchissement puisse se terminer avant que la macro continue '!!!!!!! Modifier les paramètres Excel '!!!!!!! Sélectionner une cellule dans le tableau des DATA '!!!!!!! Sur le ruban Excel sélectionner Données '!!!!!!! Propriétés à côté de Actualiser tout '!!!!!!! Au bout du nom de la requête cliquer sur le bouton Propriétés de la requête '!!!!!!! Enlever la coche dans : Activer l'actualisation en arrière plan '!!!!!!! https://www.mrexcel.com/board/threads/excel-vba-refresh-wait.607332/ ActiveWorkbook.RefreshAll 'Lancer le rafraichissement On Error GoTo Suite 'Si le tableau est vide [TS_Fusion].ListObject.DataBodyRange.Delete Suite: [TS_PG_Production].ListObject.DataBodyRange.Copy Sheets("Fusion").Activate If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData 'Enlever les filtres Sheets("Fusion").Range("C2").Select Sheets("Fusion").Paste NB_Lignes_TS_Fusion = Sheets("Fusion").Range("TS_Fusion").ListObject.ListRows.Count + 1 [TS_PG_Production_ETA].ListObject.DataBodyRange.Copy Sheets("Fusion").Range("TS_Fusion").Cells(NB_Lignes_TS_Fusion, 3).Select Sheets("Fusion").Paste Sheets("TCD").Select Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh MsgBox "Actualisation terminée", vbInformation, "Importation depuis LOOK" Application.ScreenUpdating = True End Sub

12/09/2022, 23h01
Pierre Dumas

Bonjour

Oui, à mon sens, il y a beaucoup plus simple je pense.

Puisqu'il s'agit de deux requêtes allant chercher les infos dans une base SQL, il suffit de demander à PowerQuery de les ajouter l'une en dessous de l'autre tout simplement.
Dans l'éditeur PowerQuery > Accueil > Ajouter des requêtes

En espérant que cela aide

Bonne nuit

Pierre Dumas
12/09/2022, 23h12
goninph

Je vais voir ça demain, je n'ai accès au serveur avec mon PC privé

Merci et bonne nuit
14/09/2022, 14h51
78chris

Bonjour

Pour compléter

Dans la mesure où PowerQuery accepte directement le SQL ont peut sans doute y faire une requête union en SQL...

Bonsoir

Suppression de tous les Select et suppression des filtres dans les 3 tableaux

Question comment supprimer les filtres de tous les tableaux avec une boucle ne contenant pas Activesheet ou Select ?

Meilleures salutations

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Sub Fusion_TS()
Application.ScreenUpdating = False
Dim NB_Lignes_TS_Fusion As Long
    'Enlever les filtres des 3 tableaux
    If Sheets("Fusion").ListObjects("TS_Fusion").ShowAutoFilter Then Sheets("Fusion").ListObjects("TS_Fusion").Range.AutoFilter
    If Sheets("Production").ListObjects("TS_Production").ShowAutoFilter Then Sheets("Production").ListObjects("TS_Production").Range.AutoFilter
    If Sheets("Sans_série").ListObjects("TS_Sans_serie").ShowAutoFilter Then Sheets("Sans_série").ListObjects("TS_Sans_serie").Range.AutoFilter
            '!!!!!!! IMPORTANT pour que le rafraîchissement puisse se terminer avant que la macro continue
            '!!!!!!! Modifier les paramètres Excel
            '!!!!!!! Sélectionner une cellule dans le tableau des DATA
            '!!!!!!! Sur le ruban Excel sélectionner Données
            '!!!!!!! Propriétés à côté de Actualiser tout
            '!!!!!!! Au bout du nom de la requête cliquer sur le bouton Propriétés de la requête
            '!!!!!!! Enlever la coche dans : Activer l'actualisation en arrière plan
            '!!!!!!! https://www.mrexcel.com/board/threads/excel-vba-refresh-wait.607332/
    ActiveWorkbook.RefreshAll 'Lancer le rafraichissement / srv-sql 3E_BEWEG / Pour_Data_RDV_LOOK / Nom utilisateur : look / Mot de passe : look
On Error GoTo Suite 'Si le tableau est vide
    [TS_Fusion].ListObject.DataBodyRange.Delete
Suite:
    [TS_Production].ListObject.DataBodyRange.Copy
    Sheets("Fusion").Range("K2").PasteSpecial Paste:=xlPasteValues
    NB_Lignes_TS_Fusion = Sheets("Fusion").Range("TS_Fusion").ListObject.ListRows.Count + 1
    [TS_Sans_serie].ListObject.DataBodyRange.Copy
    Sheets("Fusion").Range("TS_Fusion").Cells(NB_Lignes_TS_Fusion, 11).PasteSpecial Paste:=xlPasteValues
    Sheets("TCD").PivotTables("TCD_Production").PivotCache.MissingItemsLimit = xlMissingItemsNone 'Nettoyer les données fantôme des segments
    Sheets("TCD").PivotTables("TCD_Production").PivotCache.Refresh
    MsgBox "Actualisation terminée", vbInformation, "Importation depuis LOOK"
Application.ScreenUpdating = True
End Sub