Liaison VBA/SQL en erreur

**ridokou** · 29/12/2010, 10h14

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

**jfontaine** · 29/12/2010, 10h31

Bonjour,

a tester, mais la ligne en rouge ne sert a rien puisque tu charges ton recordset juste derriere.
Manquera la connexion a utiliser

NB dans ton cas le Command n'est pas utile, la ligne dessous suffit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part