[XL-2003] Requette SQL basée sur la valeur d'une cellule [Résolu]

[Tsade9]

Bonjour,

J'ai besoin d'aide sur une macro, je voudrais faire un select dans une base Orale en me basant sur les valeurs présentes dans la colonne A de mon tableau, et récupérer le résultat dans la colonne B.

Voici le select tout bête :

Code sql :

SELECT count(*) FROM A2.value.Matable WHERE TYPE = '6';

Je ne suis pas un pro d'Oracle (ni d'Excel d'ailleurs même si je commence à me débrouiller un peu), je suis donc tombé sur ce code, mais je n'y arrive pas.

Un petit coup de main SVP?

[jfontaine]

Bonjour,

Si tu construis ta requete dans une variable

Code :

strSQL = "SELECT count(*) FROM " & Sheets("Feuil1").Range("A2").value & ".Matable WHERE TYPE = '6';"

[Tsade9]

Envoyé par jfontaine

Si tu construis ta requete dans une variable

J'y ai bien pensé, mais comment faire pour sortir chaque valeur en face de mon user oracle? Avec une boucle For?

[Jean-Pierre49]

Bonjour

Question :

ton user oracle est bien en colonne A, et le premier en

Code :

Sheets("Feuil1").Range("A2").value

?

[Tsade9]

C'est ca

[Jean-Pierre49]

Bonjour

Alors quelque chose comme

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim CompA As Long
 
For CompA = 2 To Range("A" & .Rows.Count).End(xlUp).Row
    .........................
    .........................
    strSQL = "SELECT count(*) FROM " & Sheets("Feuil1").Range("A" & CompA).Value & ".Matable WHERE TYPE = '6';"
    .........................
    .........................
    .........................
Next CompA
End Sub

Si j'ai bien compris

Tu dis

Bon courage

[Tsade9]

C'est bon j'ai trouvé.
Merci pour le coup de pousse, j'avais fait à peu près la même chose en me basant sur l'adresse des cellules.
Mon erreur était vraiment toute bête, en fait il ne faut pas mettre le ";" à la fin de la requête!