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