Création
d'entreprise
Posez votre question Signaler

[VBA Access Excel] Creer une feuille Excel

zouzou - Dernière réponse le 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
Lire la suite 

[VBA Access Excel] Creer une feuille Excel »

1 réponses
Réponse
+0
moins plus
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

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [VBA Access Excel] Creer une feuille Excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?