Réaliser un graphique sous Excel [Sources]

[vdbadr]

<QUESTION>
Coment faire un graphique dans excel avec access
</QUESTION>
<REPONSE>
Il faut référencer la bibliothèque Excel au prélable (Outils/Références)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
‘Déclaration des Variables d’instanciation d’Excel
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim wsexcel As Excel.Worksheet
Dim srexcel As Excel.Range
Dim chexcel As Excel.Chart
 
‘Création des instances
Set appexcel = CreateObject("Excel.Application")
Set wbexcel = appexcel.Workbooks.Open(PathDuFicherExcel)
Set wsexcel = wbexcel.Sheets(NomDeLaFeuilleDeCalcul)
Set srexcel = wbexcel.Worksheets(1).Range("a1").CurrentRegion
Set chexcel = appexcel.Charts.Add
 
‘Création du graphique 
chexcel.ChartType = xlLineMarkers
chexcel.SeriesCollection.NewSeries
chexcel.SeriesCollection(1).XValues = "Plage des X pour la serie 1"
chexcel.SeriesCollection(1).Values = "Plage des Y pour la serie 1"
chexcel.SeriesCollection(1).Name = "Nom de la serie 1"
chexcel.Location Where:=xlLocationAsObject, Name:="NomDeLaFeuilleDeCalcul"
ActiveWindow.Visible = False
Windows(NomDuFichierExcel).Activate
 
‘Libération des instances
Set cellexcel = Nothing
Set chexcel = Nothing
Set srexcel = Nothing
Set wsexcel = Nothing
Set wbexcel = Nothing
Set appexcel = Nothing
 
End Sub

[/quote]

[Tofalu]

Il faudrait aller plus loin et proposer un exemple avec exportation des données