Discussion :

[tedparker]

Bonjour,
quelq'un a-t-il un exemple de source d'un code VBA Access créant un fichier Excel et gérant un graphique ds ce même fichier (tjs sous Access) ??
Merci

[catoucat]

Je ne sais pas comment creer un graphique sous Excel via Access mais au pire tu peux toujours faire un fichier excel "de base" dans lequel tu auras ta plage de donnees et le graphique deja definis comme tu le souhaites, et avec Access tu changes les donnees donc il actualise le graphique...

[Muhad'hib]

Salut,

J'ai un exemple, mais c'est un peu long. Je mets ici le principal et si tu veux tout, fais moi signe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
 
 
Dim ExcelDoc As Object
Dim Graph As Object
 
...
 
Set ExcelDoc = fExportExcel("", Rs, True, 5, 1)
 
...
With ExcelDoc.worksheets(1)
...
    Set Graph = ExcelDoc.charts.Add
    Graph.ChartType = xlPie
    Graph.SetSourceData Source:=.Range("F19")
    Graph.SeriesCollection.NewSeries
    Graph.SeriesCollection(1).XValues = "=Feuil1!R1C33:R4C33"
    Graph.SeriesCollection(1).Values = "=Feuil1!R1C32:R4C32"
    Graph.Location Where:=xlLocationAsObject, Name:="Feuil1"
 
    ExcelDoc.ActiveChart.HasTitle = True
    ExcelDoc.ActiveChart.ChartTitle.Characters.Text = "Status des PPAP"
    ExcelDoc.ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
        HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=True, _
        ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
 
    ExcelDoc.ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
        HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=True, _
        ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
 
    .Shapes(1).Left = 10
    .Shapes(1).Top = ExcelDoc.worksheets(1).cells(Ligne + 2, 1).Top
    ExcelDoc.ActiveChart.PlotArea.Border.LineStyle = xlNone
    ExcelDoc.ActiveChart.PlotArea.Interior.ColorIndex = 2
...
End With
...

La fonction fExportExcel est dispo ici.

A+

[tedparker]

Merci beaucoup jvais voir ce que jpeux faire avec ça.
Jte tiens au courant.
Encore merci et bonne continuation