{"id":12567,"date":"2024-10-02T06:38:42","date_gmt":"2024-10-02T04:38:42","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=12567"},"modified":"2024-09-28T20:11:48","modified_gmt":"2024-09-28T18:11:48","slug":"dans-certains-cas-power-query-noffre-pas-de-reponse-a-nos-besoins-en-tous-cas-je-ne-suis-pas-parvenu-dans-le-cas-present-a-trouver-une-solution-a-mon-probleme-obtenir-une-balance-comparative-s","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=12567","title":{"rendered":"VBA\/SQL vs Power Query : deux solutions compl\u00e9mentaires"},"content":{"rendered":"

Power Query<\/strong>, module int\u00e9gr\u00e9 \u00e0 Excel, pr\u00e9pare les donn\u00e9es brutes (extraction, la transformation et le chargement ou ETL<\/strong>) en vue d’une analyse plus approfondie des donn\u00e9es dans Excel. Power Query a beaucoup d’adeptes (dont moi), notamment ceux qui pr\u00e9conisent le no-code<\/em>. En effet, cet outil ne n\u00e9cessite pas de connaissance en programmation<\/strong> pour retraiter les donn\u00e9es.<\/p>\n

\"BG_4ex\"<\/p>\n

Toutefois, dans certains cas Power Query n’offre pas de r\u00e9ponse \u00e0 nos besoins… En tous cas, je ne suis pas parvenu dans le cas pr\u00e9sent \u00e0 trouver une solution \u00e0 mon probl\u00e8me : obtenir une balance comparative sur quatre exercices… La difficult\u00e9<\/strong> r\u00e9side dans le fait de lier le plan de comptes (calcul\u00e9 \u00e0 partir des quatre balances) \u00e0 l’aide de jointures aux quatre balances.<\/p>\n

Heureusement, j’ai trouv\u00e9 une solution avec un peu de VBA et de SQL<\/strong> :<\/p>\n

Requete_SQL = \"SELECT [PLAN_COMPTES].CodeEntit\u00e9, [PLAN_COMPTES].CompteNum, [PLAN_COMPTES].CompteLib, [_BG_N].Solde As SoldeN, [_BG_N1].Solde As SoldeN1, SoldeN-SoldeN1 As VarAbs, IIf(SoldeN1<>0,VarAbs\/SoldeN1,0) As VarRel, [_BG_N2].Solde As SoldeN2, [_BG_N3].Solde As SoldeN3, \"\r\nRequete_SQL = Requete_SQL & \"[_BG_N].SoldeSup90j As SoldeSup90j_N, [_BG_N].EF_Libell\u00e9EF As Libell\u00e9EF_N, [_BG_N].RubEF As RubEF_N, [_BG_N1].RubEF As RubEF_N1, [_BG_N].Anomalies As Anomalies_N, CycleCode, \"\r\nRequete_SQL = Requete_SQL & \"IIf([_BG_N].Cpte3 Is Not Null,[_BG_N].Cpte3, IIf([_BG_N1].Cpte3 Is Not Null,[_BG_N1].Cpte3, IIf([_BG_N2].Cpte3 Is Not Null,[_BG_N2].Cpte3,[_BG_N3].Cpte3))) As Cpte3, \"\r\nRequete_SQL = Requete_SQL & \"IIf([_BG_N].Cpte2 Is Not Null,[_BG_N].Cpte2, IIf([_BG_N1].Cpte2 Is Not Null,[_BG_N1].Cpte2, IIf([_BG_N2].Cpte2 Is Not Null,[_BG_N2].Cpte2,[_BG_N3].Cpte2))) As Cpte2, \"\r\nRequete_SQL = Requete_SQL & \"IIf([_BG_N].Cpte1 Is Not Null,[_BG_N].Cpte1, IIf([_BG_N1].Cpte1 Is Not Null,[_BG_N1].Cpte1, IIf([_BG_N2].Cpte1 Is Not Null,[_BG_N2].Cpte1,[_BG_N3].Cpte1))) As Cpte1, \"\r\nRequete_SQL = Requete_SQL & \"[_BG_N].Secteur, [_BG_N].P\u00e9rim\u00e8tre \"\r\nRequete_SQL = Requete_SQL & \"FROM (((((\"\r\n'--- PLAN DE COMPTES AVEC LIBELLE DE COMPTE\r\nRequete_SQL = Requete_SQL & \"SELECT [PLAN_COMPTES_COMPTES].CodeEntit\u00e9, [PLAN_COMPTES_COMPTES].CompteNum, [PLAN_COMPTES_COMPTES].Cpte3, \"\r\n'--- CompteLib\r\nRequete_SQL = Requete_SQL & \"IIf([_BG_N].CompteLib Is Not Null,[_BG_N].CompteLib, \"\r\nRequete_SQL = Requete_SQL & \"IIf([_BG_N1].CompteLib Is Not Null,[_BG_N1].CompteLib, \"\r\nRequete_SQL = Requete_SQL & \"IIf([_BG_N2].CompteLib Is Not Null,[_BG_N2].CompteLib, \"\r\nRequete_SQL = Requete_SQL & \"[_BG_N3].CompteLib))) AS CompteLib \"\r\n'--- PLAN_DE_COMPTES_COMPTES (CompteNum sans CompteLib)\r\nRequete_SQL = Requete_SQL & \"FROM (((\"\r\n'---\r\nRequete_SQL = Requete_SQL & \"(SELECT CodeEntit\u00e9, CompteNum, Cpte3 FROM (\"\r\nRequete_SQL = Requete_SQL & \"SELECT CodeEntit\u00e9, CompteNum, Cpte3, Cpte1 FROM [\" & CheminBDD & BDD_N & \"].[_BG] \"\r\nRequete_SQL = Requete_SQL & \"UNION ALL \"\r\nRequete_SQL = Requete_SQL & \"SELECT CodeEntit\u00e9, CompteNum, Cpte3, Cpte1 FROM [\" & CheminBDD & BDD_N1 & \"].[_BG] \"\r\nRequete_SQL = Requete_SQL & \"UNION ALL \"\r\nRequete_SQL = Requete_SQL & \"SELECT CodeEntit\u00e9, CompteNum, Cpte3, Cpte1 FROM [\" & CheminBDD & BDD_N2 & \"].[_BG] \"\r\nRequete_SQL = Requete_SQL & \"UNION ALL \"\r\nRequete_SQL = Requete_SQL & \"SELECT CodeEntit\u00e9, CompteNum, Cpte3, Cpte1 FROM [\" & CheminBDD & BDD_N3 & \"].[_BG]) \"\r\n'--- CRITERES Cpte1 <>8 et 9\r\nRequete_SQL = Requete_SQL & \"WHERE Cpte1<>\"\"9\"\" AND Cpte1<>\"\"8\"\" \"\r\n'--- REGROUPEMENT\r\nRequete_SQL = Requete_SQL & \"GROUP BY CodeEntit\u00e9, CompteNum, Cpte3) As PLAN_COMPTES_COMPTES \"\r\n'------ LEFT JOIN\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N & \"].[_BG] As [_BG_N] ON ([_BG_N].CompteNum = [PLAN_COMPTES_COMPTES].CompteNum) AND ([_BG_N].CodeEntit\u00e9 = [PLAN_COMPTES_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N1 & \"].[_BG] As [_BG_N1] ON ([_BG_N1].CompteNum = [PLAN_COMPTES_COMPTES].CompteNum) AND ([_BG_N1].CodeEntit\u00e9 = [PLAN_COMPTES_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N2 & \"].[_BG] As [_BG_N2] ON ([_BG_N2].CompteNum = [PLAN_COMPTES_COMPTES].CompteNum) AND ([_BG_N2].CodeEntit\u00e9 = [PLAN_COMPTES_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N3 & \"].[_BG] As [_BG_N3] ON ([_BG_N3].CompteNum = [PLAN_COMPTES_COMPTES].CompteNum) AND ([_BG_N3].CodeEntit\u00e9 = [PLAN_COMPTES_COMPTES].CodeEntit\u00e9) \"\r\nRequete_SQL = Requete_SQL & \") As PLAN_COMPTES \"\r\n'--- LEFT JOIN\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N & \"].[_BG] As [_BG_N] ON ([_BG_N].CompteNum = [PLAN_COMPTES].CompteNum) AND ([_BG_N].CodeEntit\u00e9 = [PLAN_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N1 & \"].[_BG] As [_BG_N1] ON ([_BG_N1].CompteNum = [PLAN_COMPTES].CompteNum) AND ([_BG_N1].CodeEntit\u00e9 = [PLAN_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N2 & \"].[_BG] As [_BG_N2] ON ([_BG_N2].CompteNum = [PLAN_COMPTES].CompteNum) AND ([_BG_N2].CodeEntit\u00e9 = [PLAN_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminBDD & BDD_N3 & \"].[_BG] As [_BG_N3] ON ([_BG_N3].CompteNum = [PLAN_COMPTES].CompteNum) AND ([_BG_N3].CodeEntit\u00e9 = [PLAN_COMPTES].CodeEntit\u00e9)) \"\r\nRequete_SQL = Requete_SQL & \"LEFT JOIN [\" & CheminPAD & BDD_PAD & \"].[BG_Cycles] ON ([BG_Cycles].Cpte3 = [PLAN_COMPTES].Cpte3) \"\r\n'--- TRI DES BALANCES\r\nRequete_SQL = Requete_SQL & \"ORDER BY [PLAN_COMPTES].CodeEntit\u00e9, [PLAN_COMPTES].CompteNum;\"<\/pre>\n
Comme quoi, il ne faut pas opposer les outils informatiques mais bien en tirer le meilleur de chacun en toute circonstance ;-).<\/p>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
\"Share<\/a>