Discussion :

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

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

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 :

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

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

[Tsade9]

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 :

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

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

?

[Tsade9]

C'est ca

[Jean-Pierre49]

Bonjour

Alors quelque chose comme

Code :

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

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