Discussion :

[skipeemed]

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]

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]

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]

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]

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]

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]

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

[AlainTech]

Bonjour,

Code :

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

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

[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