Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 035 fois - Téléchargée 20 fois
Function export_excel_avec_entetes(ByVal nomrequete As String) ''ajouter les references Microsoft 12.0 Object Library ''ajouter les references Microsoft DAO 3.6 Object Library Dim db As DAO.Database Dim rs As DAO.Recordset Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Dim objFeuille As Excel.Worksheet nomrequete = "paper" Dim i, j As Integer Set objWorkBook = Workbooks.Add 'supprimer les feuilles 2 et 3 objWorkBook.Sheets(3).Delete objWorkBook.Sheets(2).Delete Set objFeuille = objWorkBook.Sheets(1) 'nommer la feuille de l'export cible objFeuille.Name = "Export" Set db = CurrentDb Set rs = db.OpenRecordset("select * from " & nomrequete, dbOpenDynaset) i = 1 'renseigner les entêtes de colonnes For j = 0 To rs.Fields.Count - 1 objFeuille.Cells(1, i) = rs.Fields(j).Name i = i + 1 Next j 'renseigner les données objFeuille.Cells(2, 1).CopyFromRecordset rs objWorkBook.Application.Visible = True objWorkBook.Activate ''libération de la mémoire Set objWorkBook = Nothing Set objFeuille = Nothing Set db = Nothing Set rs = Nothing End Function Function export_excel_sans_entetes(ByVal nomrequete As String) ''ajouter les references Microsoft 12.0 Object Library ''ajouter les references Microsoft DAO 3.6 Object Library Dim db As DAO.Database Dim rs As DAO.Recordset Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Dim objFeuille As Excel.Worksheet Set objWorkBook = Workbooks.Add 'supprimer les feuilles 2 et 3 objWorkBook.Sheets(3).Delete objWorkBook.Sheets(2).Delete Set objFeuille = objWorkBook.Sheets(1) 'nommer la feuille de l'export cible objFeuille.Name = "Export" Set db = CurrentDb Set rs = db.OpenRecordset("select * from " & nomrequete, dbOpenDynaset) 'renseigner les données objFeuille.Cells(1, 1).CopyFromRecordset rs objWorkBook.Application.Visible = True objWorkBook.Activate ''libération de la mémoire Set objWorkBook = Nothing Set objFeuille = Nothing Set db = Nothing Set rs = Nothing End Function
25 mai 2010 à 15:32
Comment appeller cette function ,de plus si on utilise ado et non le dao
25 mai 2010 à 10:31
25 mai 2010 à 04:52
24 mai 2010 à 09:16
Function export_excel(ByVal nomrequete As String,entete as boolean)
if entete then
# 'renseigner les entêtes de colonnes
# For j = 0 To rs.Fields.Count - 1
# objFeuille.Cells(1, i) = rs.Fields(j).Name
# i = i + 1
# Next j
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.