[VBA Access Excel] Creer une feuille Excel

zouzou -  
 tom572007 -
bonjour,
Je developpe en vba sous access.
J'execute une requete sql sous access qui me creee une table (SELECT TELEACTEUR INTO TABLE FROM TABLE ORIGINE WHERE....)

Je voudrai avec les données de la table les importer dans Excel mais en creant une feuille par TELEACTEUR.

Comment puis faire.
merci pour votre reponse.
Bye

1 réponse

  1. tom572007
     
    Set AppliExcel = CreateObject("Excel.Application")
Wbk = AppliExcel .Workbooks.Add
Sht = Wbk.ActiveSheet
With Sheet

  Set Rs=CurrentDB.OpenRecordSet("SELECT * FROM [ta_table]")
  Ligne=1

  Do While Not Rs.EOF
  
    .Range("A" & Ligne)=Rs(0)
    .Range("B" & Ligne)=Rs(1)
    .Range("C" & Ligne)=Rs(2)
    'ect...
    Ligne=Ligne + 1

  Loop

End With


    Voila en gros ce que tu peux faire...

    C'est une solution parmis tant d'autres
    0