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

 
Ca ca marche