[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
A voir également:

1 réponse

Réponse 1 / 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