{"id":7504,"date":"2018-08-10T02:15:33","date_gmt":"2018-08-10T00:15:33","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=7504"},"modified":"2018-08-10T02:15:33","modified_gmt":"2018-08-10T00:15:33","slug":"sgbdr-access-programmer-des-requetes-sql-dans-des-macros-vba","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=7504","title":{"rendered":"SGBDR ACCESS : Programmer des requ\u00eates SQL dans des macros VBA"},"content":{"rendered":"

Les requ\u00eates SQL remplissent de nombreuses t\u00e2ches concourant \u00e0 l’analyse de donn\u00e9es. Ces requ\u00eates peuvent \u00eatre utilement programm\u00e9es en VBA. Cette pratique permet \u00e0 la fois d’automatiser l’ex\u00e9cution successive de plusieurs requ\u00eates et de modifier les requ\u00eates \u00e0 la vol\u00e9e pour les adapter en fonction des circonstances pr\u00e9cises (dates, comptes, entit\u00e9s…).<\/p>\n

'Mouvements sur comptes cessions immo\r\nNomReq = \"MvtCessImmo\"\r\nTexteReq = \"SELECT * FROM \" & NomTableEcritures & \" WHERE LEFT(Compte,3)='675' OR LEFT(Compte,3)='775' ORDER BY Affaire, DateEcriture\"\r\nEx\u00e9Req<\/pre>\n
Dans le cadre d\u2019un projet d\u2019analyse d\u2019\u00e9critures comptables (mise en \u0153uvre d\u2019un programme de supervision des comptabilit\u00e9s d\u2019un groupe de soci\u00e9t\u00e9s), je suis en train de r\u00e9fl\u00e9chir \u00e0 la d\u00e9finition de traitements automatis\u00e9s \u00e0 l’aide d’ Access en remplacement d’Excel (ce projet reprend les grandes lignes du programme d’analyse d’\u00e9critures M\/ATAC<\/a> programm\u00e9 en VBA sur Excel). En effet, le volume d\u2019\u00e9critures comptables du groupe d\u00e9passe all\u00e8grement le million de lignes (limite actuelle d\u2019Excel) pour atteindre environ cinq millions de lignes annuelles. Access appara\u00eet donc comme une solution plus adapt\u00e9e pour traiter de tels volumes de donn\u00e9es (sa limite \u00e9tant pour sa part de 2 Gigaoctets par base de donn\u00e9es).<\/em><\/p>\n
A titre d’exemple, le programme ci-apr\u00e8s, lanc\u00e9 \u00e0 partir de la proc\u00e9dure Export_XL, ex\u00e9cute des requ\u00eates SQL<\/a> (proc\u00e9dure Ex\u00e9Req) sur des \u00e9critures comptables extraites du DMS DCSnet et envoie leur r\u00e9sultat dans des onglets d’un classeur Excel (Export_Req.xlsx).<\/p>\n
Ainsi, la requ\u00eate intitul\u00e9e “MvtCessImmo” s\u00e9lectionne (SELECT<\/em>) tous les champs (*) de la table Ecritures (FROM ” & NomTableEcritures<\/em>) pour lesquels les num\u00e9ros de compte commencent pas 675x (WHERE LEFT(Compte,3)=’675′<\/em>) ou 775x. Le r\u00e9sultat de cette requ\u00eate est tri\u00e9 par soci\u00e9t\u00e9 et par date d’\u00e9criture (ORDER BY Affaire, DateEcriture<\/em>).<\/p>\n
Option Compare Database\r\n\r\nOption Explicit\r\n\r\nDim NomClasseurXL As String\r\nDim NomReq As String\r\nDim TexteReq As String\r\n\r\nConst NomTableEcritures = \"EcrituresDCS\"\r\nConst Chemin = \"C:\\Users\\COLDIR01\\Desktop\\DOSSIERS BR\\COMPTES\\ANALYSE DES COMPTES\\ESSAI IMPORT EXPORT\\\"\r\nConst DossierSource = \"Source DCS EXPORT 2018 AU 20072018\\\"\r\n\r\nSub Ex\u00e9Req()\r\n    Dim qd As QueryDef\r\n    'Si la requ\u00eate existe d\u00e9j\u00e0, on l'efface\r\n    If ReqExiste(CurrentDb, NomReq) Then DoCmd.DeleteObject acQuery, NomReq\r\n    'Cr\u00e9ation de la requ\u00eate\r\n    Set qd = CurrentDb.CreateQueryDef(NomReq, TexteReq)\r\n    'Transfert du r\u00e9sultat de la requ\u00eate vers Excel\r\n    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, NomReq, Chemin & NomClasseurXL\r\n    'Suppression de la requ\u00eate\r\n    DoCmd.DeleteObject acQuery, NomReq\r\nEnd Sub\r\n\r\nSub Export_XL()\r\n    NomClasseurXL = \"Export_Req.xlsx\"\r\n\r\n    'Mouvements sur comptes 10x -> hors A_NOUVEAUX\r\n    NomReq = \"Mvt10x\"\r\n    TexteReq = \"SELECT * FROM \" & NomTableEcritures & \" WHERE LEFT(Compte,3)='106' AND [Type de compte]='GENERAUX' AND [Type de journal]<>'N'\"\r\n    Ex\u00e9Req\r\n\r\n    'Mouvements sur comptes p\u00e9nalit\u00e9s\r\n    NomReq = \"MvtP\u00e9nalit\u00e9s\"\r\n    TexteReq = \"SELECT * FROM \" & NomTableEcritures & \" WHERE LEFT(Compte,4)='6712'\"\r\n    Ex\u00e9Req\r\n\r\n    'Mouvements sur comptes cessions immo\r\n    NomReq = \"MvtCessImmo\"\r\n    TexteReq = \"SELECT * FROM \" & NomTableEcritures & \" WHERE LEFT(Compte,3)='675' OR LEFT(Compte,3)='775' ORDER BY Affaire, DateEcriture\"\r\n    Ex\u00e9Req\r\nEnd Sub<\/pre>\n
Explications sur le code-source :<\/p>\n