Code pour importer res. requete sur Ecxel
Bonsoir a tous,
J’ai un souci avec le code ci-dessous, cela me prend le chou depuis lgtps maintenant…
Voici un copier coller du code que j’ai inséré dans un module de classeur Excel.
Le but de ce code : automatiser une requête sur deux tables (DepositsInterest, Term Duration Groups ) incluses dans une base de données (Cost of fund)
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
|
Option Explicit
Private chemin As String
Public Sub Directory()
Dim vchemin As String
vchemin = ThisWorkbook.Path
ChDir vchemin
End Sub
Sub ImportQueryRetUSDTerms()
Dim vResultQuery As QueryTable
Dim vQuerySQL As String
Dim vConnexion
Directory
vQuerySQL = "Select DepositsInterest.Currency, Term_Duration_Groups.Group," _
& "sum(DepositsInterest.AmountEOP),sum(DepositsInterest.AmountAverage),sum(DepositsInterest.Interest)" _
& "From DepositsInterest, Term_Duration_Groups" _
& "Where DepositsInterest.Currency like 'USD'" _
& "AND DepositsInterest.AmountEOP <10000" _
& "AND DepositsInterest.AmountAverage <10000" _
& "AND DepositsInterest.Interest >=0" _
& "AND DepositsInterest.TypeCli like '37' or '41'"
vConnexion = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=Cost_of_fund.mdb"
With ActiveWorkbook.Sheets("Terms-QueryResults").QueryTables. _
Add(Connection:=vConnexion, Destination:=Range("A4"), Sql:=vQuerySQL)
.Refresh
End With
End Sub |
L’exécution de ce code provoque l’apparition d’une boite de dialogue, dont le titre est « Please enter MS JET OLE DB Initialisation Info », avec les lignes suivantes a compléter:
Data Source : [nom de ma base de donnees]
Username :
Password :
Provider String
Open Mode :[liste de choix avec read only, readwrite mode, etc…]
J’ai essaye 2 choses :
CAS 1 : je ne rentre aucune info et cliaue sur OK
En essayant cela, VBA me sort un message d’erreur :
“Run time ‘1004’ : Application-defined or object-defined error “
CAS2
-je décide de rentrer mon (username + password) dont je me sers pour me logger sur le réseau de ma boite
-pour le provider string je rentre texto : « Microsoft.JET.OLEDB.4.0 »
-Open mode : j’ai essayé tous les modes même en « read only »
En essayant cela, VBA me sort un autre message d’erreur
“ Run time ‘1004’ ; Cannot start your application. The workgroup info file is missing or opened exclusively by another user”
Voila je pense avoir donne toutes les infos en ma possession. Ca serait très sympa si je pouvais avoir une aide assez rapidement, car c’est pour un projet professionnel, ca fait déjà 1 semaine que je bloque la dessus.
Ca doit être un problème tout con pour un connaisseur, mais moi je débute seulement en VBA
Encore milles mercis d’avance
A.M
