Intégrer une variable dans une macro d'import Access (MS Query)
Bonsoir à tous ;)
J'essaye d'intégrer une variable dans une macro enregistrée qui récupérer des données dans un Access via MQuery.
Malheureusement la variable ne marche pas..
La variable est en fait le numéro du jour (donc de 01 à 30) qu'elle trouve dans un autre classeur.
Le code :
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
|
variable1 = Sheets("Mode Operatoire").Range("J1").Value
Sheets("FEUILLEMACRO").Select
' importaccess
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=IS_ODBC;UID=MONIDPERSO;;MODE=SHARE;DBALIAS=IS_ODBC;SYSSCHEMA=SYSCAE;ASYNCENABLE=0;" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT TEXPJO.NATFLUX, TEXPJO.IDMAG, TEXPJO.AAVMTP, TEXPJO.MMVMTP, TEXPJO.JJVMTP, TEXPJO.HHVMTP, TEXPJO.IMMAT, TEXPJO.OPCHGT, TEXPJO.IDTYCNT, TEXPJO.VOLCNT, TEXPJO.IDCNTRGT" & Chr(13) & "" & Chr(10) & "FROM W0MP" _
, _
"R.TEXPJO TEXPJO" & Chr(13) & "" & Chr(10) & "WHERE (TEXPJO.IDMAG='05') AND (TEXPJO.JJVMTP='variable1')" & Chr(13) & "" & Chr(10) & "ORDER BY TEXPJO.MMVMTP, TEXPJO.JJVMTP, TEXPJO.HHVMTP, TEXPJO.IDCNTRGT" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = False
.ListObject.DisplayName = "Tableau1"
.Refresh BackgroundQuery:=True
End With |
Vous auriez une idée svp ?
Merci
Bonne soirée :D
