Sub GénérerRapport(DateDebut As String, DateFin As String)
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stSQL As String
    Dim qtData As QueryTable
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnStart As Range

    Const stADO As String = "Provider=OraOLEDB.Oracle;" & _
                            "Data Source=IMAGETIK_ORAWF.world;" & _
                            "User ID=wkfl;Password=wkfl;"

    Set wbBook = ActiveWorkbook
    Set wsSheet = wbBook.Worksheets("Données sources")

    wsSheet.Range("A:X").Delete

    With wsSheet
        Set rnStart = .Range("A1")
    End With

    stSQL = "SELECT LOG.QUEUE, LOG.STRVAR3, QVARS.VAR_VALUE, COUNT(*)" & Chr(13) & "" & Chr(10) & _
            "FROM WKFL.LOG LOG, WKFL.QVARS QVARS" & Chr(13) & "" & Chr(10) & _
            "WHERE LOG.O_RESOURCE = QVARS.O_RESOURCE " & Chr(13) & "" & Chr(10) & _
            "AND ((QVARS.VAR_ID=5023) " & Chr(13) & "" & Chr(10) & _
            "AND (to_date(substr(time_stamp,1,10),'yyyy-mm-dd') Between to_date('" & DateDebut & "','yyyymmdd') And to_date('" & DateFin & "','yyyymmdd')) " & Chr(13) & "" & Chr(10) & _
            "AND (LOG.QUEUE<>new_queue " & Chr(13) & "" & Chr(10) & _
            "AND LOG.QUEUE Not In ('Domain: VDMWFP','ROUTE SWITCH','Work Introduction')) " & Chr(13) & "" & Chr(10) & _
            "AND (LOG.TYPE=11))" & Chr(13) & "" & Chr(10) & _
            "GROUP BY (LOG.QUEUE, LOG.STRVAR3, QVARS.VAR_VALUE)"

    Set cnt = New ADODB.Connection

    With cnt
        .CursorLocation = adUseClient
        .Open stADO
        .CommandTimeout = 0
        Set rst = .Execute(stSQL)
    End With

    'Here we add the Recordset to the created QueryTable.
    Set qtData = wsSheet.QueryTables.Add(rst, rnStart)

    'In order to view any data the QueryTable need to be refreshed.
    qtData.Refresh

    'Cleaning up.
    rst.Close
    cnt.Close
    Set rst = Nothing
    Set cnt = Nothing

    'ActiveWorkbook.RefreshAll
    Worksheets("Corbeille-Catégorie-Usager").PivotTables(1).PivotCache.Refresh
    Worksheets("Corbeille-Usager").PivotTables(1).PivotCache.Refresh
    Worksheets("Corbeille").PivotTables(1).PivotCache.Refresh
    Worksheets("Usager-Corbeille-Catégorie").PivotTables(1).PivotCache.Refresh

    Worksheets("Corbeille-Catégorie-Usager").Activate

End Sub

Sub GénérerRapportATraiter()

    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stSQL As String
    Dim qtData As QueryTable
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnStart As Range

    Const stADO As String = "Provider=OraOLEDB.Oracle;" & _
                            "Data Source=IMAGETIK_ORAWF.world;" & _
                            "User ID=wkfl;Password=wkfl;"

    Set wbBook = ActiveWorkbook
    Set wsSheet = wbBook.Worksheets("Source à traiter")

    wsSheet.Range("A:X").Delete

    With wsSheet
        Set rnStart = .Range("A1")
    End With

    stSQL = "SELECT QUEUES.QUEUE ""Corbeille"", QUEUES.STRVAR3 ""Catégorie"", COUNT(*)" & Chr(13) & "" & Chr(10) & _
            "FROM WKFL.QUEUES QUEUES" & Chr(13) & "" & Chr(10) & _
            "WHERE (QUEUES.O_RESOURCE Is Null) AND (QUEUES.ERROR_CODE=0) AND (QUEUES.STRVAR1='GENERAL')" & Chr(13) & "" & Chr(10) & _
            "GROUP BY (QUEUES.QUEUE, QUEUES.STRVAR3)"

    Set cnt = New ADODB.Connection

    With cnt
        .CursorLocation = adUseClient
        .Open stADO
        .CommandTimeout = 0
        Set rst = .Execute(stSQL)
    End With

    'Here we add the Recordset to the created QueryTable.
    Set qtData = wsSheet.QueryTables.Add(rst, rnStart)

    'In order to view any data the QueryTable need to be refreshed.
    qtData.Refresh

    'Cleaning up.
    rst.Close
    cnt.Close
    Set rst = Nothing
    Set cnt = Nothing

    Worksheets("Corbeille (à traiter)").PivotTables(1).PivotCache.Refresh

    Worksheets("Corbeille (à traiter)").Activate

End Sub

Sub GénérerRapportRéserve()

    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stSQL As String
    Dim qtData As QueryTable
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnStart As Range

    Const stADO As String = "Provider=OraOLEDB.Oracle;" & _
                            "Data Source=IMAGETIK_PROD.world;" & _
                            "User ID=test3;Password=test3;"

    Set wbBook = ActiveWorkbook
    Set wsSheet = wbBook.Worksheets("Source en réserve")

    wsSheet.Range("A:X").Delete

    With wsSheet
        Set rnStart = .Range("A1")
    End With

    stSQL = "SELECT PROCTYPE ""Corbeille"", CATEGORY ""Catégorie"", COUNT(*)" & Chr(13) & "" & Chr(10) & _
            "FROM CASETABLE" & Chr(13) & "" & Chr(10) & _
            "WHERE STATUT = 0" & Chr(13) & "" & Chr(10) & _
            "GROUP BY (PROCTYPE, CATEGORY)"

    Set cnt = New ADODB.Connection

    With cnt
        .CursorLocation = adUseClient
        .Open stADO
        .CommandTimeout = 0
        Set rst = .Execute(stSQL)
    End With

    'Here we add the Recordset to the created QueryTable.
    Set qtData = wsSheet.QueryTables.Add(rst, rnStart)

    'In order to view any data the QueryTable need to be refreshed.
    qtData.Refresh

    'Cleaning up.
    rst.Close
    cnt.Close
    Set rst = Nothing
    Set cnt = Nothing

   Worksheets("Réserve").PivotTables(1).PivotCache.Refresh

   Worksheets("Réserve").Activate

End Sub

Sub GénérerRapportCourrier(DateDebut As String, DateFin As String)

   Dim cnt As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim stSQL As String
   Dim qtData As QueryTable
   Dim wbBook As Workbook
   Dim wsSheet As Worksheet
   Dim rnStart As Range

   Const stADO As String = "Provider=OraOLEDB.Oracle;" & _
                           "Data Source=IMAGETIK_PROD.world;" & _
                           "User ID=test3;Password=test3;"

   Set wbBook = ActiveWorkbook
   Set wsSheet = wbBook.Worksheets("Données sources courrier")

   wsSheet.Range("A:X").Delete

   With wsSheet
       Set rnStart = .Range("A1")
   End With

   stSQL = "SELECT motif, count(*)" & Chr(13) & "" & Chr(10) & _
            "FROM motiflog_view" & Chr(13) & "" & Chr(10) & _
            "WHERE logstamp BETWEEN TO_DATE('" & DateDebut & " 00:00:00','YYYYMMDD HH24:MI:SS') AND TO_DATE('" & DateFin & " 23:59:59','YYYYMMDD HH24:MI:SS') " & Chr(13) & "" & Chr(10) & _
            "GROUP BY (motif)"

   Set cnt = New ADODB.Connection

   With cnt
       .CursorLocation = adUseClient
       .Open stADO
       .CommandTimeout = 0
       Set rst = .Execute(stSQL)
   End With

   'Here we add the Recordset to the created QueryTable.
   Set qtData = wsSheet.QueryTables.Add(rst, rnStart)

   'In order to view any data the QueryTable need to be refreshed.
   qtData.Refresh

   'Cleaning up.
   rst.Close
   cnt.Close
   Set rst = Nothing
   Set cnt = Nothing

   Worksheets("Courrier").PivotTables(1).PivotCache.Refresh

   Worksheets("Courrier").Activate

End Sub