Discussion :

[cisco59]

bonjour
j'ai un problème sur une requête
si je filtre sur 2 condition cela fonctionne des que je veux passer a 3 la ça bloque

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
 With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=******;UID=Administrateur;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=DELL06;DATABASE=*****" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref, F_POINTAGE.Date_Saisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales" _
        & Chr(13) & "" & Chr(10) & "FROM *****.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') ")
        .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"
      .Refresh BackgroundQuery:=False
    End With
    Range("a1").Select

exemple si je choisi date et initiales c'st bon

[f-leb]

Bonsoir,

Code sql :

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

WHERE year(Date_Saisie)='2017'

J'aurais pas mis les guillemets autour de 2017...

[tee_grandbois]

bonsoir,
je ne sais pas si c'est une limitation de tableau mais essaie de supprimer Array() de la ligne .CommandText
Sinon tu peux aussi enlever le nom de la table devant les champs puisqu'il n'y a qu'une seule table ce n'est pas nécessaire et du coup le texte SQL sera moins long

[cisco59]

merci juste array et cela fonctionne