Discussion :

[marouavba]

Bon après midi tout le monde,
J'ai créé une application Access en utilisant les formulaires et bien évidement le fameux VBA. Tout s'est bien passé.
Mais je rencontre un problème dans la création de graphe sous VBA Access en utilisant un fichier Excel à deux colonnes.
Ci-joint vous trouverez mon fichier Excel ( fichier pas encore rempli en totalité , ne contient que 3 lignes et 2 colonnes ) et également vous trouverez une image de graphe que je voudrais avoir ( image exemple).

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
On Error Resume Next
    Set xls = CreateObject("Excel.Application")
    Set wk = xls.Workbooks.Open("D:\ISRA\WKSHEETS\ICS.xlsx")
    Set ws = wk.Sheets(1)
    wsN.Activate
 
    objChart.SetSourceData Source:=ws.Range(ws.Cells(2, 1), ws.Cells(4, 2)), PlotBy:=xlColumns
   objChart.ChartType = xlColumnClustered
   objChart.HasTitle = True
   objChart.ChartTitle.Text = "ICS per Year"
   objChart.Axes(xlCategory, xlPrimary).HasTitle = True
   objChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ICS"
   objChart.Axes(xlValue, xlPrimary).HasTitle = True
   objChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Date"
   objChart.HasLegend = False
 
 
 
    ' export the graph in a form zone
    DoCmd.OpenForm ("Risk_SheetF9")
    Forms![Risk_SheetF9].[OLE1].OLETypeAllowed = acOLELinked
    Forms![Risk_SheetF9].[OLE1].SourceDoc = "D:\ISRA\WKSHEETS\ICS.xlsx"
    Forms![Risk_SheetF9].[OLE1].SourceItem = "Graph1"
    Forms![Risk_SheetF9].[OLE1].Action = acOLECreateLink
    Forms![Risk_SheetF9].[OLE1].SizeMode = acOLESizeZoom
 
Ret = Shell("Taskkill /im EXCEL.EXE /f", 0)

Ci-dessus la fonction que j'utilise et qu'elle ne marche pas.
Merci pour votre aide.


ICS.xlsx

[Jeannot45]

Peut-être que ces tutos peuvent t'ouvrir quelques pistes : Les graphiques

Bonne lecture