Bonjour à tous,
j'essaie de créer un grpahique à partir de données que j'ai exporté sur Excel.
Cela me met une erreur 1004 sur le hastitle.
Je suis dessus depuis hier soir.
Merci pour votre aide
voici mon code
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72 Dim xlApp As Excel.Application Dim xlWrkbk As Excel.Workbook Dim xlChartObj As Excel.Chart Dim xlSourceRange As Excel.Range Dim xlColPoint As Excel.Point On Error GoTo Err_CreateChart DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _ "dossierParFisc_AC", CurrentProject.Path & "\test1.xls", False Set xlApp = CreateObject("Excel.Application") Set xlWrkbk = xlApp.Workbooks.Open(CurrentProject.Path & "\test1.xls") Set xlSourceRange = _ xlWrkbk.Worksheets(1).Range("a1").CurrentRegion Set xlChartObj = xlApp.Charts.Add With xlChartObj .ChartType = xl3DColumn .SetSourceData Source:=xlSourceRange, _ PlotBy:=xlColumns .Location Where:=xlLocationAsNewSheet ActiveChart.HasTitle = True With .ChartTitle .Characters.Text = _ "ANNEE" .Font.Size = 18 End With .Axes(xlCategory).TickLabels.Orientation = 45 .Axes(xlSeries).Delete .HasLegend = False ' with no decimals. With .SeriesCollection(1) .ApplyDataLabels Type:=xlDataLabelsShowValue .DataLabels.NumberFormat = "$#,##0" End With End With ' Position the points further from the tops ' of the columns. For Each xlColPoint In _ xlChartObj.SeriesCollection(1).Points xlColPoint.DataLabel.Top = _ xlColPoint.DataLabel.Top - 11 Next xlColPoint With xlWrkbk .Save .Close End With xlApp.Quit Exit_CreateChart: Set xlSourceRange = Nothing Set xlColPoint = Nothing Set xlChartObj = Nothing Set xlWrkbk = Nothing Set xlApp = Nothing Exit Function Err_CreateChart: MsgBox CStr(Err) & " " & Err.Description Resume Exit_CreateChart End Function
Partager