Bonjour,

j'ai dévelopé une requête Sql que je souhaite associer à une macro afin que les futurs utilisateurs n'aient qu'à "cliquer sur un bouton" !

J'ai déja réalisé plusieurs requêtes de ce genre et toutes fonctionnent.

Et la, alors que j'utilise le même mode opératoire ainsi que les mêmes protocoles de connexion, ça me sort une erreur -2147217900 (80040e14) !!

ci-joint mon code avec en rouge la partie ou ça bloque.

Merci d'avance pour votre aide


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
32
33
34
35
36
37
38
39
Option Explicit
Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command
Dim sSQL As String
Const cstTimeOut As Long = 120 * 60 'en secondes
Dim DestCell As Range

    'Chargement de la BASE SYNTHESE FACTURATION
    
Sub ChargeData3()
sSQL = ""
sSQL = sSQL + " SELECT   DD.PARC_CONTRACTUEL,"
sSQL = sSQL + "         SUM(CASE"
sSQL = sSQL + "                WHEN (MONTH(DD.DTE_FACT)-1) = 1 THEN (CAST(DD.KMS_PARCOURUS as NUMERIC))"
sSQL = sSQL + "                ELSE 0"
sSQL = sSQL + "             END) AS KMS_PARCOURUS_01,"

  [...]

sSQL = sSQL + "GROUP BY DD.PARC_CONTRACTUEL"
sSQL = sSQL + "ORDER BY DD.PARC_CONTRACTUEL"



    cmdCommand.CommandText = sSQL
    cmdCommand.CommandType = adCmdText
cmdCommand.Execute
  
  'Open the recordset.
    rstRecordset.Open cmdCommand
    
  'Populer la feuille
    DestCell.Select
    DestCell.CopyFromRecordset rstRecordset
 
  'Fermer the recordset.
    rstRecordset.Close