Problème Extraction requête ACCESS lié à SQL server sous EXCEL
Bonjour,
Je vous présente mon problème.
J'ai une base access, dans cette base toute mes tables sont sont liées à SQL server.
J'ai une requête avec paramètre qui fonctionne. Le problème, je dois à chaque fois entrer un mot de passe pour pouvoir lancer ma requête pour qu'elle puisse se connecter au table SQL server.
Mon problème provient de se mot de passe, je monte un outil sous excel qui m'extrait cette requête automatiquement, le problème je ne sais pas en vba comment intégrer la prise en charge du mot de passe pour pouvoir l extraire automatiquement. Pour le moment je me retrouve avec une erreur " Erreur d execution 1004" Erreur générale ODBC"
Voici le code que j'utilise pour faire mon extraction ( ce code fonctionne car je l'utilise pour d'autre requête access qui ne sont pas lié à SQL server )
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
| 'Procédure qui permet d'extraire les données de la base Zotra via un Query
Private Sub extraction_dqy(flag, chemin_fichier_dqy, fichier_dqy, param1, param2, param3, param4, chemin_base_access, chemin_fichier_model, fichier_model, requete)
'On intègre dans les variables (xlodbc, num, base, res) les différentes informations à injecter dans le DQY par la suite
xlodbc = "XLODBC"
num = 1
base = "DSN=MS Access Database;DBQ=" & chemin_base_access & ";DefaultDir=" & chemin_fichier_model & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
If flag = 0 Then
res = "EXEC " & requete & " '" & param1 & "','" & param2 & "'"
ElseIf flag = 1 Then
res = "EXEC " & requete & " '" & param1 & "','" & param2 & "','" & param3 & "','" & param4 & "'"
End If
'On intègre les informations dans le fichier DQY
'For Output As permet, à l'ouverture du fichier DQY de supprimer sont contenus et d'intégrer les nouvelles informations
intFic = FreeFile
Open chemin_fichier_dqy & fichier_dqy For Output As intFic
Print #intFic, xlodbc
Print #intFic, num
Print #intFic, base
Print #intFic, res
Close intFic
If flag = 0 Then
'On lance l'éxécution du fichier DQY
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;" & chemin_fichier_dqy & fichier_dqy & "", _
Destination:=Range("A1"))
.Name = "saison"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
ElseIf flag = 1 Then
Sheets("feuil2").Select
'On lance l'éxécution du fichier DQY
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;" & chemin_fichier_dqy & fichier_dqy & "", _
Destination:=Range("A1"))
.Name = "saison_histo"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=True
End With
End If
End Sub |
Si quelqu’un peut m'éclairer pour résoudre se problème.
Cordialement
Shakapouet
