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)
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:
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 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
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
Partager