[VBA Access Excel] Creer une feuille Excel

Fermé

zouzou - 5 déc. 2006 à 16:19
tom572007 - 26 sept. 2007 à 15:08

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:

[VBA Access Excel] Creer une feuille Excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Déplacer une colonne excel - Guide
Feuille de pointage excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

tom572007
26 sept. 2007 à 15:08

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

Newsletters