Construir un graph Excel à partir d'access

Version imprimable

27/01/2010, 14h41
Roms un

Construir un graph Excel à partir d'access
Bonjour,

Alors voila, je souhaite construire, à partir des données d'une requête Access un graphique sous Excel.
La création du dossier Excel qui va construire le graphique est automatisée par Access.
A l'heure actuelle je sais créer un graphique sous VBA Excel, je sais exporter les données Access vers Excel, mais je ne vois pas comment entrer dans VBA Excel à partir d'Access pour rédiger le programme qui me permettra de construire le graphique.
J'ai trouvé cette ligne de commande qui pourrait peut être m'aider mais je ne vois pas comment l'utiliser:
Code:

1 2 3 Sub OuvreVBA() Application.VBE.MainWindow.Visible = True End Sub
Merci d'avance!
27/01/2010, 14h59
Jean-Philippe André

salut,
si tu sais créer un graphique dans Excel, en nous donnant ton code VBA généré, on peut te proposer les éléments à ajouter pour que le pilotage se fasse depuis Access :)

un item à ce sujet est disponible dans la :faq:

Il sagit d'un graphique tous bête que j'ai construit à l'aide d'une macro:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Graphique()
'la variable dim est tiré de la base access
dim ligne as integer
'ajoute un graph
    Charts.Add
'Choix du type de graphique
    ActiveChart.ChartType = xlLineMarkers
'Récupération des données
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("F23")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R1C1:R" & lignes & "C1"
    ActiveChart.SeriesCollection(1).Values = "=Feuil1!R1C2:R8C2"
'Positionnement du graphique selon les postions de bases Excel
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
'construction de la legende
        .ChartTitle.Characters.Text = "Remonté reparateur"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "semaine"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "nombres de pannes"
'positionnement du graphique
    End With
    ActiveSheet.Shapes(1).IncrementLeft -192#
    ActiveSheet.Shapes(1).IncrementTop 6.75
'Couleur de la courbe
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 5
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 7
        .Shadow = False
    End With
 
    ActiveChart.PlotArea.Select
'couleur de fond
    With Selection.Interior
        .ColorIndex = 2
        .PatternColorIndex = 1
        .Pattern = xlSolid
    End With
'Supression de la legende trop moche et inutil
    ActiveChart.Legend.Select
    Selection.Delete
End Sub

Merci pour ton aide.:)
Par contre j'ai cherché dans la FAQ et je ne trouve rien sur le sujet :?

27/01/2010, 15h35
Jean-Philippe André

le lien dans la :faq:
http://access.developpez.com/faq/?page=Excel#PilotExcel

la notion d'activechart ne pourra pas s'appliquer dans Access, mais tu peux créer une variable de type Chart et "jouer" avec :ccool:
27/01/2010, 16h17
Roms un

J'ai remplacer activechart par Charts(1) mais j'obtient quand même un beug au niveau de cette ligne:

Code:

Charts(1).SeriesCollection(1).Select

Par contre en ce qui concerne le reste tous marche
27/01/2010, 17h51
Jean-Philippe André
la notion de select n'existe pas sous Access, essaie plutôt de remplacer
Code:

1 2 blabla.Select Selection.pioupiou
par

Code:

blabla.pioupiou

:)