Problème requete sql

[walter_man]

Bonjour et merci pour votre forum,

Je veux que mes utilisateurs puissent extraire des données de mon as400 via excel en définissant des variables (case à remplir dans excel)
Tout se passe bien quand j'utilise un seul critère de sélection. Mais impossible de réussir avec deux critères de sélection sauf en dur.

Voici mon code :

Worksheets("Donnees").Select
    code_stk = Range("A2").Value
    code_art = Range("B2").Value
    

    Worksheets("result").Select
    Range("A1").Select
    With Worksheets("result").ListObjects.Add(SourceType:=0, Source:= _
           "ODBC;DSN=DB2_STOKVIS;", Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT PRODUIP.prcart, PRODUIP.prlpro, PRODUIP.prcstk" & Chr(13) & "" & Chr(10) & "FROM STOKVIS.ADELFIC.PRODUIP PRODUIP WHERE PRODUIP.prcstk='" & code_stk & "' AND PRODUIP.prcart='" & code_art & "'" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "Tableau_Lancer_la_requête_à_partir_de_DB2_STOKVIS"
         .Refresh BackgroundQuery:=False
    End With

Je précise qu'avec une variable ça fonctionne...

merci de votre aide.

 

[walter_man]

Re : Problème requete sql

Apres test je viens de m'apercevoir que le problème viens du numéro d'article : 029455. Ma variable ne prend pas le 0 devant...