automatiser la selection de cellules spécifiques et les intégrer dans une requête sous microsoft query

Version imprimable

Voilà 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
Range("B2:B7").Select
    Range("B7").Activate
    Selection.Copy
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=C:\Documents and Settings\G502249\Bureau\Liste des collaborateurs et leurs caractéristiques.accdb;De" _
        ), Array( _
        "faultDir=C:\Documents and Settings\Bureau;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("$S$19")).QueryTable
        .CommandText = Array( _
        "SELECT C.Nom,C.Prénom  FROM Collaborateur C   where C.ID in   ('S23'," & Chr(13) & "" & Chr(10) & "'S5'," & Chr(13) & "" & Chr(10) & "'S8'," & Chr(13) & "" & Chr(10) & "'S1'," & Chr(13) & "" & Chr(10) & "'S60'," & Chr(13) & "" & Chr(10) & "'SE0'" & Chr(13) & "" & Chr(10) & ");" _
        )
        .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_Requête_n°3"
        .Refresh BackgroundQuery:=False
    End With

Je veux juste que la requête soit appliquée à des ID qui différent, pas toujours les mêmes. Normalement elles se trouvent dans la colonne B.

Moi dans mon exemple c'est de B2 à B7. et les ID sont ceux là:
S23, S5, S8, S1, S60, SE0.

Donc si c'es possible répondez moi.

Cdt,
SKIP

18/10/2010, 20h43
fring

Bonjour,

Je ne manipule pas les requêtes mais à priori ça devrait donner un truc de ce genre

Code:

"SELECT C.Nom,C.Prénom FROM Collaborateur C where C.ID in (" & Cells(2, 2) & "," & Chr(13) & "" & Chr(10) & Cells(3, 2) & "," & Chr(13) & "" & Chr(10) & Cells(4, 2) & "," & Chr(13) & "" & Chr(10) & Cells(5, 2) & "," & Chr(13) & "" & Chr(10) & Cells(6, 2) & "," & Chr(13) & "" & Chr(10) & Cells(7, 2) & Chr(13) & "" & Chr(10) & ");"
19/10/2010, 12h16
skipeemed

Bonjour,

Il y 'a une erreur qui s'affiche c'est l'erreur d'exécution "1004": Erreur de syntaxe SQL et quand je clique sur déboguage, c'est cette ligne de code qui est en jaune :

Code:

.Refresh BackgroundQuery:=False

Tu ne sais pas quel est la cause de l'erreur?

cdt,
SKIP

Bonjour,
Si le code est comme ceci,et on veut appliquer la requête pour des valeurs qui existent dans la colonne B, c'est à dire de B2 à Bx avec x la dernière ligne qu'il y'a dans le tableau. En précisant bien sûr que B2 correspond à S2 dans la requête et B3 à S42 etc...
Avec S2 et S42 les noms dont on veut appliquer la requête.
Comme vous le voyez ci-dessous:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DRIVER={MySQL ODBC 5.1 Driver};UID=user;PASSWORD=****;SERVER=host;DATABASE=db1;PORT=3306;" _
        , Destination:=Range("$S$14")).QueryTable
        .CommandText = Array( _
        "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  (  'S2','S42','P15','E41','ER01" _
        , _
        "41','M98','SE31','SE31','SE59','S02','SR76','S995','SP95','S32');" _
        )
        .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_Requête_n°2"
        .Refresh BackgroundQuery:=False
    End With

Merçi d'avance d'une réponse
cdt,
SKIP