Discussion :

[Repi17]

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

[Marc-L]

Bonsoir !

‼ (cf règles du forum !)

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour

La variable est en fait le numéro du jour (donc de 01 à 30) qu'elle trouve dans un autre classeur.

S'il s'agit de la variable Variable1 ET que le classeur où elle se trouve est ouvert, ce classeur est à préciser dans ta ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

variable1 = Sheets("Mode Operatoire").Range("J1").Value

(préciser la feuille ne suffit pas).

[parmi]

Et pour la requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

..."WHERE (TEXPJO.IDMAG='05') AND (TEXPJO.JJVMTP='" & variable1 & "')" & Chr(13)...

[Repi17]

Merci à vous deux !!! C'est le top