Re : Question VBA/Graphique/Base ACCESS
Merci,
je ne sais pas ce qu'est un enregistreur de macro (c'est peut être juste le terme qui m'échape
) !
Voici déjà le code de ma vba dans access qui me permet de créer le fichier Excel :
--------------------------------------------------------
Sub ExportationversExcel_DAO2()
Dim xl As Excel.Application
Dim wbk As Excel.workbook
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Dim intColonne As Integer
Dim intLigne As Integer
Set db = CurrentDb()
Set rst = db.OpenRecordset("statindic")
Set xl = New Excel.Application
xl.Visible = True
With xl
Set wbk = .workbooks.Add
wbk.Sheets("Feuil1").Name = "test"
With wbk.Sheets("test")
intColonne = 1
For Each fld In rst.Fields
.cells(1, intColonne) = fld.Name
intColonne = intColonne + 1
Next
intLigne = 2
While Not rst.EOF
intColonne = 1
For Each fld In rst.Fields
.cells(intLigne, intColonne) = fld.Value
intColonne = intColonne + 1
Next
rst.MoveNext
intLigne = intLigne + 1
Wend
End With
wbk.SaveAs "p:test.xlsx"
wbk.Close
End With
xl.Quit
Set xl = Nothing
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
----------------------------------------------
J'ai donc mes deux colonnes avec mes données, et je veux juste faire le schéma correspondant pour le moment.
Je suis sur 2007 mais j'ai mis les deux formats.