bonjour,
Je lance une requete du style (je vous épargne tt la requete...je suis gentil ! lol !) sous vb6.
select * from (
select distinct c.name,
round((sum(distinct (a.panel_site_id*power(10,6)+a.member_id)*POWER(10,7)+(a.pm_weight*d.projection_number))
- sum(distinct (a.panel_site_id*power(10,6)+a.member_id)*POWER(10,7))),0) audience_commune,
round(e.aud_voyages_sncf*d.projection_number) aud_voyages_sncf,
round(f.audience*projection_number) aud_conc,
...
from...
Pour exporter vers excel mes résultats je fais :
While Not rec.EOF
X = X + 1
Cells(X + 1, 1) = rec.Fields("c.name" )
Cells(X + 1, 2) = rec.Fields("audience_commune" )
...
rec.MoveNext
wend
Je voudrais que ce qui va après rec.fields("..." ) ce remplisse automatiquement. Je ne veux pas saisir le c.name de
rec.fields("c.name" ).
Suis je obliger de trouver la place de ce mot avec des instr, mid...? ex : en algo ca donnerai :
entre le 2ème select et le 2ème From je prend chaque mot qui se trouve devant une virgule et je met ce mot dans rec.fields... y a t'il pas plus simple. S'il ya pas plus simple je coderai ca...merci
gspr avoir été un peu pré clair mais j'en doute...lol
