Discussion :

[amka]

Bonjour:
J'ai un probléme et depuis qlq jours je cherche mais j'ai pas trouvé mon bonheur. J'espére trouver de l’aide.
Dans une feuille Excel j'ai un graphe qui prend ses valeur dans un tableau, cette feuille je la recopie dans un autre classeur et j'ai besoin de modifier les données source de mon graphe.

Code :

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

1
2
3
4
5
6
7
8
 
            Dim RangeG As Range
            Set Graph = xlsheetReport.ChartObjects(1)
            Set RangeG = Range("A13:A25", "E13:E25")
            Graph.Name = rs.Fields("Id").Value
            ActiveSheet.ChartObjects(Graph.Name).Activate
            RangeG.Select
            ActiveChart.SetSourceData Source = RangeG

J’espére que je me suis bien exprimer.
Merci de votre aide

[catoucat]

Comment manipules-tu les feuilles excel sous access? Je cherche a faire ca justement

Mais sinon en VBA il suffit d'utiliser .rowsource par exemple:

Code :

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

    Me.Chart_Week.RowSource = "TRANSFORM Sum([Quantity]) AS [SumOfQuantity] SELECT [DateProduction] FROM [T_Chart]   GROUP BY [DateProduction] PIVOT [Team];"

Et ne pas oublier un requery du graphe apres chaque changement de parametre

[amka]

Comment manipules-tu les feuilles excel sous access? Je cherche a faire ca justement

Mais sinon en VBA il suffit d'utiliser .rowsource par exemple:

Code :

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

    Me.Chart_Week.RowSource = "TRANSFORM Sum([Quantity]) AS [SumOfQuantity] SELECT [DateProduction] FROM [T_Chart]   GROUP BY [DateProduction] PIVOT [Team];"

Et ne pas oublier un requery du graphe apres chaque changement de parametre

C'est pas vraiment ce que je veux...

[léti07]

bonjour

vous voulez faire ca à partir d'access ou seulement d'excel??

[Muhad'hib]

Salut,

C'est pas vraiment ce que je veux...

Il va falloir expliquer davantage ce que tu veux faire alors ...

A+

[amka]

bonjour

vous voulez faire ca à partir d'access ou seulement d'excel??

c'est faire un code en vba qui me change directement les données source de mon graphe qui'est dans mon fichier Excel

[léti07]

c'est faire un code en vba qui me change directement les données source de mon graphe qui'est dans mon fichier Excel

donc si je comprend bien c du code vb dans excel
il faudrait donc que vous postiez votre message dans le forum VB il y aura certainement plus de chance pour que quelqu'un vous reponde

il faudrait aussi que vous soyez un peu plus precis dans ce que vous voulez faire sur le graphe

[amka]

J'ai posé la question dans le forum de vba aussi, mais j'ai pas eu encore de réponse mais si qlq un à une idée n'hésiter pas . je vous remercie

[léti07]

essayez de regarder sur ce site il vous aidera peut etre
http://ericrenaud.free.fr/

et si jamais tu trouve pas sur son site, n'hesite pas a lui laisser un message, il pourra peut etre d'aider à resoudre ton probleme

[Muhad'hib]

Re,

Tu peux toujours, pour connaitre le code a utiliser sur excel, faire une macro, faire à la main les actions que tu veux faire et regarder ce que donne le code de ta macro pour ensuite l'adapter sur Access.

Regarde ce post, je donne un exemple.

A+

[SilkyRoad]

bonsoir

est ce le meme sujet ?

http://www.developpez.net/forums/sho...d.php?t=201265

[amka]

Et voila le bon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function DonneesSource(Range1 As String, Range2 As String, xlsheetReport As Excel.Worksheet, xlApp As Excel.Application, NomGraph As String, index As Integer) As Integer
Dim Graph As Excel.ChartObject
Set Graph = xlsheetReport.ChartObjects(index)
xlsheetReport.Activate
xlApp.ActiveSheet.ChartObjects(Graph.Name).Activate
xlApp.ActiveChart.SetSourceData Source:=xlApp.Sheets(xlsheetReport.Name).Range(Range1)  ', PlotBy:=xlRows
xlApp.ActiveChart.SeriesCollection(1).Values = xlApp.Sheets(xlsheetReport.Name).Range(Range1)
xlApp.ActiveChart.SeriesCollection(1).XValues = xlApp.Sheets(xlsheetReport.Name).Range(Range2)
xlApp.ActiveWindow.Visible = False
End Function

Merci bcp à vous tous pour votre aide.