Liaison VBA/SQL en erreur
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:
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 |
