export vers excel

Question

bonjour
j'ai fais un programme qui fait l'exportation d'une table Access vers un fichier Excel
voici le code :


Set Enreg = DBA.OpenRecordset("select * from décision_tab_in")
Ligne = 1


Appli.Visible = True
  
  'Création d'un nouveau classeur EXCEL
  Appli.Workbooks.Add
  
  'Feuille 1 du classeur EXCEL créé
  With Appli.ActiveWorkbook.Worksheets("feuil1")
  
  'Premier enregistrement de la table "Depart75"
  Enreg.MoveFirst
  
  Do While Enreg.EOF = False
  


    .Cells(Ligne, 1) = Enreg!Name
    .Cells(Ligne, 2) = Enreg!CI
    .Cells(Ligne, 3) = Enreg!décision
    .Cells(Ligne, 4) = Enreg!code
    .Cells(Ligne, 5) = Enreg![new X]
    .Cells(Ligne, 6) = Enreg![new Y]
  ' Ligne suivante
    Ligne = Ligne + 1
    
  ' Enregistrement suivante
    Enreg.MoveNext
    
    Loop
  
  End With 
ma question: c'est comment importer les entêtes des champs de ma table 
car cette méthode permet d'exporter vers excel le contenu seulement
merci pour votre aide  svp rajouter le code.

Molenn · Answer

Je pense que tu t'embêtes à créer une boucle pour exporter ta table, alors qu'ACCESS peut gérer l'export complet de la table dans un onglet d'un fichier Excel.
Il te suffit de créer une macro via l'assistant, ou alors, si tu veux le faire en VBA directement, utiliser une commande de type : 
DoCmd.TransferSpreadsheet acExport, , ...

Je te laisse chercher dans l'aide d'ACCESS au mot-clé TransferSpreadsheet, l'aide est très détaillée et tu devrais y trouver ton bonheur.

Molenn

fehmichebaane · Answer

merci 
mais je suis entrain de programmer avec VB6.0
et je connais que cela possible avec le VBA en une ligne 
mais avec le VB je ne trouve pas autre solution 
mais de m'aider pour importer les nom des champs
A+

fehmichebaane · Answer

merci 
mais je suis entrain de programmer avec VB6.0
et je connais que cela possible avec le VBA en une ligne 
mais avec le VB je ne trouve pas autre solution 
mais de m'aider pour importer les nom des champs
A+

Export vers excel

3 réponses

Votre réponse

Discussions similaires