POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004

let fnGetParameters =
    (pTable as text, pName as any) =>
    let
        ParamSource = Excel.CurrentWorkbook(){[Name=pTable]}[Content],
        ParamRow = Table.SelectRows(ParamSource, each ([PARAMETRE] = pName)),
        Value=
        if Table.IsEmpty(ParamRow)=true
            then null
        else Record.Field(ParamRow{0},"VALEUR")
    in
        Value
in
    fnGetParameters

let fnGetCSV = (pFile as any) as table =>

    //---------------------------------------------------------------------------------
    // Imporatation d'un fichier à partir d'un dossier
    //---------------------------------------------------------------------------------

    let

        //---------------------------------------------------------------------------------
        // Lecture des paramètres
        //---------------------------------------------------------------------------------
        pFolder=fnGetParameter("TB_PARAMS","CHEMIN_CSV"),
        pNbCols=fnGetParameter("TB_PARAMS","NB_COLS"),
        pDelim=fnGetParameter("TB_PARAMS","DELIMITEUR"),
        pEncoding=fnGetParameter("TB_PARAMS","ENCODE"),

        //---------------------------------------------------------------------------------
        // Paramètres techniques d'importation d'un fichier .csv
        //---------------------------------------------------------------------------------
        pParamCSV=[Delimiter=pDelim, Columns=pNbCols, Encoding=pEncoding, QuoteStyle=QuoteStyle.None],

        //---------------------------------------------------------------------------------
        // Le combine nécessite une liste de table à combiner
        //---------------------------------------------------------------------------------
        pPath=pFolder & "\" & pFile,

        //---------------------------------------------------------------------------------
        // Importation du fichier
        //---------------------------------------------------------------------------------
        Source = Csv.Document(File.Contents(pPath),pParamCSV),

        //---------------------------------------------------------------------------------
        // Titre des colonnes
        //---------------------------------------------------------------------------------
        ToTable = Table.PromoteHeaders(Source, [PromoteAllScalars=true])

    in
        ToTable
in
    try fnGetCSV otherwise null

let
    //---------------------------------------------------------------------------------
    // Requête très simple permettant d'importer un fichier
    // via des paramètres
    //---------------------------------------------------------------------------------

    // On récupère l'option de mise en majuscule des noms de colonnes
    bColumnsToUpperCase=if Text.Trim(Text.Upper(fnGetParameter("TB_PARAMS","COLONNES_EN_MAJUSCULE"))) = "OUI" then true else false,
    bBuffer=if Text.Trim(Text.Upper(fnGetParameter("TB_PARAMS","MISE_EN_BUFFER"))) = "OUI" then true else false,
    ColumnsToKeep=Text.Trim(Text.Upper(fnGetParameter("TB_PARAMS","COLONNES_A_CONSERVER"))),
    bListColumnsToKeep=if ColumnsToKeep is null then false else true,
 
    // On importe le fichier source fourni en paramètre table table TB_PARAMS (Excel)
    Source = if bBuffer
             then Table.Buffer(fnGetCSV(fnGetParameter("TB_PARAMS","FICHIER_CSV_TXT")))
             else fnGetCSV(fnGetParameter("TB_PARAMS","FICHIER_CSV_TXT")),
 
    // Si demandé on renome les noms des colonnes en majuscule
    Source2=if bColumnsToUpperCase
            then  let
                      // Noms d'origine mis dans une liste
                      ListColumnsOrigin=Table.ColumnNames(Source),
                      // Les noms sont mis en majuscule dans autre liste
                      ListColumnsUpper=List.Transform(
                                       ListColumnsOrigin, each Text.Upper(_)
                                       ),
                      // On procède au renommage des noms de colonnes en majuscule
                      TableColumnsToUpper=Table.RenameColumns(Source,List.Zip({ListColumnsOrigin,ListColumnsUpper}))
                  in
                      // et on transmet le résultat
                      TableColumnsToUpper
            else
                  // Si pas de mise en majuscule on renvoie le tableau initial
                  Source,

    // Au final la table à traiter
    ToTable= if bListColumnsToKeep
             then let
                      // On construit la liste des colonnes à conserver
                      ListColumnsToKeep=Text.Split(ColumnsToKeep,";"),
                      // Et on retient cette liste
                      Tb=Table.SelectColumns(Source2,ListColumnsToKeep)
                  in
                      Tb
             else Source2
 
in
    ToTable

let
    // Cette requête récupère automatiquement les noms des colonnes de la table des données
 
    SourceRQ = fnGetParameter("TB_PARAMS","NOM_REQUETE"),

    //*****************************************************************************************
    // Expression.Evaluate cest le pendant de la fonction INDIRECT sous Excel
    // On récupère ainsi le nom dynamique de la requête source
    // Si celle-ci vient à être modifiée dans les paramètres ça fonctionnera toujours
    //*****************************************************************************************

    EvalSource=Expression.Evaluate(SourceRQ,#shared),
   // Source = RQ_GET_CSV_TXT,
 
    ListColumns=Table.ColumnNames(EvalSource)
in
    ListColumns

Private Sub GetDataConnexion()
    Dim wbActive As Workbook
    Dim sWbActive As String
    Dim sCnxRQName As String
    Dim sRQName As String
  
    Set wbActive = ActiveWorkbook
    sWbActive = wbActive.Name
    sRQName = Range("NOM_REQUETE").Value
    sCnxRQName = "Requête - " & sRQName
  
    If isConnectionExists(sCnxRQName) Then
        ActiveWorkbook.Connections(sCnxRQName).Delete
        Workbooks(sWbActive).Connections.Add2 _
            sCnxRQName, _
            "Connexion à la requête « " & sRQName & " » dans le classeur.", _
            "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & sRQName & ";Extended Properties=" _
            , "" & sRQName & "", 6, True, False
    End If
  
    MsgBox "Terminé"
  
End Sub

Private Function isConnectionExists(hRQ As String) As Boolean
  
    Dim vCnx As WorkbookConnection
    Dim v As Connections
  
    isConnectionExists = False
    For Each vCnx In ActiveWorkbook.Connections
        If vCnx.Name = hRQ Then
            isConnectionExists = True
            Exit For
        End If
    Next
  
End Function

Private Sub ActualizeConnection()

    Dim wbActive As Workbook
    Dim sWbActive As String
    Dim sCnxRQName As String
    Dim sRQName As String
  
    Set wbActive = ActiveWorkbook
    sWbActive = wbActive.Name
    sRQName = Range("NOM_REQUETE").Value
    sCnxRQName = "Requête - " & sRQName

    ActiveWorkbook.Connections(sCnxRQName).Refresh
  
    MsgBox "Terminé"
End Sub

Private Sub ActualizeColumnsName()

    Dim wbActive As Workbook
    Dim sWbActive As String
    Dim sCnxRQName As String
    Dim sRQName As String
  
    Set wbActive = ActiveWorkbook
    sWbActive = wbActive.Name
    sRQName = Range("NOM_REQUETE_COLONNES").Value
    sCnxRQName = "Requête - " & sRQName

    ActiveWorkbook.Connections(sCnxRQName).Refresh
    MsgBox "Terminé"
End Sub