importer les données d'une datagrid ou d'une requette access vers excel

Question

merci de m'aider 
j'ai prob c'est que je veux transf&#233;rer les donn&#233;es d'une requ&#234;tes ou d'une datagrid vers Excel et je sais pas comment
si vous poss&#233;dez un code ou une ptit app qui fait cette tache ,merci de me la communiquer

EddiePonpon · Answer

Salut, il faut que tu référence Excel dans ton projet (Projet/Référence/Microsoft Excel XXX Library Object)
Puis dans ton code tu appelles Excel comme ça

Dim AppliExcel as Excel.application
Set AppliExcel as New Excel.application
AppliExcel.workbooks.add

N'oublie pas à la fin de faire un AppliExcel.quit et un Set AppliExcel=Nothing 
afin de terminer le process Excel

EddiePonpon · Answer

Plus en détail ça donne ça ...

    Set MaTable = New ADODB.Recordset
    MaTable.Open TxtSql, db 'Ouvre le recordset
    
    Set SpaceExcel = New Excel.Application 'Définit l'instance Excel
    SpaceExcel.Workbooks.Add 'Création d'un nouveau Classeur
    Ligne=1
        Do Until MaTable.EOF
            For Colonne=0 To MaTable.Fields.count
               'Affecte les valeurs des champs aux cellules Excel
               .Cells(Ligne,Colonne+1).Value = MaTable.Fields(Colonne).value
            Next Colonne
            MaTable.MoveNext
           Ligne=Ligne+1
        Loop
    MaTable.Close
    'Sauvegarde Du classeur
    SpaceExcel.ActiveWorkbook.SaveAs NomFichierExcel
    SpaceExcel.ActiveWorkbook.Close
    SpaceExcel.Quit
    Set SpaceExcel=Nothing

Importer les données d'une datagrid ou d'une requette access vers excel

2 réponses

Discussions similaires