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

**skipeemed** · 20/10/2010, 16h17

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 :

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
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

**mercatog** · 20/10/2010, 20h15

Peut être

Code :

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

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 & ");")
'...

**skipeemed** · 21/10/2010, 14h36

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 :

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

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

**mercatog** · 21/10/2010, 14h53

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 :

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
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

**skipeemed** · 21/10/2010, 19h30

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 :

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

.CommandText = Array(cText)

Voilà. si tu sais d'où vient le problème.
Merçi bien
Cdt,
SKip

**mercatog** · 21/10/2010, 19h44

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

**skipeemed** · 22/10/2010, 11h32

Bonjour,

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

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
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 :

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

.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 :

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

 .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