intégrer le contenu de cellules dans une requête dans microsoft query et tout ça dans une macro en VBA

Version imprimable

Bonjour,
Dans une macro, je veux automatiser l'appliquation d'une requête pour des valeurs qui existent dans la colonne B, c'est à dire de B2 à Bx avec x la dernière ligne d'un tableau donné et qui diffère selon le tableau biensur. En précisant 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

Peut être

Code:

1
2
3
4
5
6
7
8
9
10
Dim TABL As String
 
For i = 2 To 100
    If Range("B" & i).Value <> "" Then TABL = TABL & ",'" & Range("B" & i).Value & "'"
Next i
TABL = Mid(TABL, 2)
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 (" & TABL & ");")
'...

1 pièce(s) jointe(s)

salut,

J'ai eu un message d'erreur dans le code que tu m'a donné. et quand je clique sur débogage il m'entoure ce code en jaune:
Code:

1 2 3 .CommandText = Array( _ "select h.name,ifnull(a.tag,'NULL'), ifnull(h.userid,'NULL'), ifnull(u.nom,'NULL'), ifnull(u.prenom,'NULL') from accountinfo a inner join hardware h on a.hardware_id = h.id inner join utilisateur u " _ , "on u.compte = h.userid WHERE h.NAME IN (" & TABL & ");")
Le message qui m'affiche l'erreur est ci-joint.

cdt,
sKIP

Refais le test avec la variable cText dans le premier cas et dans le second cas. Tu mets en commentaire à tour de rôle les 2 lignes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
 
Dim TABL As String, cText As String
 
For i = 2 To 17
    If Range("B" & i).Value <> "" Then TABL = TABL & ",'" & Range("B" & i).Value & "'"
Next i
TABL = Mid(TABL, 2)
 
'1er CAS:
cText = "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');"
'2eme CAS:
'cText = "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  (" & TABL & ");"
 
MsgBox cText
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(cText)
    '....suite code
End Sub

21/10/2010, 19h30
skipeemed

1 pièce(s) jointe(s)

salut,

Pour chaque cas il m'affiche le message où il y'a la requête qui est écrite correctement mais quand je clique sur OK il y'a une erreur d'exécution:"incompatibilité de type" tu peux la voir ci-joint.
Sinon quand je clique sur débogage il y'a cette ligne de code qui est en jaune:

Code:

.CommandText = Array(cText)

Voilà. si tu sais d'où vient le problème.
Merçi bien
Cdt,
SKip
21/10/2010, 19h44
mercatog

Je n'ai aucune idée si ta macro initiale de ton premier post fonctionnait.
Mais au moins maintenant tu affirme que tu as erreur.
mets ton code qui fonctionnait proprement, on pourrait l'adapter

1 pièce(s) jointe(s)

Bonjour,

Voilà le code, et le message de MsgBox tu vas le trouver ci-joint.

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
26
27
28
Range("Y3").Select
    Dim TABL As String, cText As String
    For i = 2 To 17
    If Range("B" & i).Value <> "" Then TABL = TABL & ",'" & Range("B" & i).Value & "'"
    Next i
    TABL = Mid(TABL, 2)
    '1er CAS:
    cText = "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  ('M14','S27','S7','E41',....,'R34');"
    '2eme CAS:
    'cText = "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  (" & TABL & ");"
    MsgBox cText
    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("$Y$3")).QueryTable
        .CommandText = Array(cText)
        .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

Normalement elle m'entoure la dernière ligne de code c'est-à-dire celle-là

Code:

.Refresh BackgroundQuery:=False

. Mais juste parce que les données que j'ai entrées sont erronées mais bien sûr quand je fais rentrer les bonnes il y a toujours l'erreur que je t'avais dite et elle entoure cette ligne de code en jaune:

Code:

.CommandText = Array(cText)

J'ai essayé une chose, quand j'utilise deux valeurs, la requête fonctionne pour les 2 cas.

Tu as une idée d'où vient le problème??

Merci d'avance
Cdt,
SKIP

26/10/2010, 07h41
AlainTech

Bonjour,

Code:

.CommandText = Array(cText)

Pourquoi le Array?
Il me semble que CommandText attend un texte, donc un String, pas un tableau.
D'où l'incompatibilité de type.
26/10/2010, 16h05
skipeemed

Bonjour AlainTech,

Merçi, ça c'est réalisé. En fait il faut enlever le Array.

Merçi encore et à très bientôt.

Cdt,
SKIP