Discussion :

[benjisan]

Bonjour à tous,

J'ai encore un petit problème.
Je souhaite piloter (au niveau graphique) excel via access.

Voici mon code, il crée bien une deuxième sheet mais elle est vide.

Code :

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

1
2
3
4
5
6
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Set classeur = xlapp.Workbooks.Open(var)
Set xlSheet = classeur.Worksheets.Add
xlSheet.Name = "Graph"
xlapp.ActiveChart.SeriesCollection(1).Values = "=Trim_NbAp!R2C4:R5C4"

Je reçois le message d'erreur suivant : Variable objet ou variable de bloc With non définie

Pourriez-vous m'aider

D'avance merci

Benjisan

[benjisan]

Et voilà, j'ai finis par trouver une solution !

Je post le code source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Charts.Add
xlapp.ActiveChart.ChartType = xlColumnClustered
xlapp.ActiveChart.SetSourceData Source:=Sheets(var2).Range("D2:D5")
xlapp.ActiveChart.SeriesCollection(1).Name = "=""T"""
xlapp.ActiveChart.SeriesCollection(2).Name = "=""T - 1"""
xlapp.ActiveChart.SeriesCollection(3).Name = "=""T - 2"""
xlapp.ActiveChart.SeriesCollection(4).Name = "=""T - 3"""
xlapp.ActiveChart.HasTitle = True
xlapp.ActiveChart.Axes(xlCategory, xlPrimary).HasTitle = True
xlapp.ActiveChart.ChartTitle.Characters.Text = "Statistique des 4 derniers trimestres de " & cmbCategories
xlapp.ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Trimestres"
xlapp.ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
xlapp.ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'appels"

J'ai encore juste un petit problème, je souhaiterais faire apparaître la valeur au dessus de chaque histogramme.

Mais quel fonction utiliser ???

D'avance, je vous remercie de prendre le temps de lire mon post !!

Benjisan

[micniv]

Essaie :

Code :

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

1
2
3
4
5
 
...
        xlapp.ActiveChart.SeriesCollection(2).Points(N).HasDataLabel = True
        xlapp.ActiveChart.SeriesCollection(2).Points(N).DataLabel.Text = strTexte
...

N étant l'index du point de la série
( donc < xlapp.ActiveChart.SeriesCollection(2).Points.Count )

[benjisan]

Un seul mot à te dire micniv !! Fantastique

Mais j'ai une autre question ??

La première exportation se passe très bien.
Mais lorsque que j'essaie d'exporter une deuxième personne, il me donne le message d'erreur suivant :

"La méthode 'Sheets' de l'objet '_Global' a échoué"

Il bloque sur la ligne

Code :

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

xlapp.ActiveChart.SetSourceData Source:=Sheets(var2).Range("D2:D5")

Voyez-vous d'ou vient mon erreur ??

Encore merci

Et à bientôt

Benjisan

[benjisan]

Ne cherchez plus, j'ai trouvé la solution au problème.

Je devais juste rajouter

Code :

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

classeur.sheet

Et c'est OK

[benjisan]

Avec mon code, il ajoute automatiquement une sheet graph, ce qui est normal vu que je lui demande.

Le problème c'est qu'il crée une sheet avec mes données et une sheet Graph, hors est ce qu'il ne serait pas possible de placer le graphique sur la sheet avec les données ??

Car je dois faire 4 analyses graphiques différentes par user si on multiplie par 2sheets, ce qui me donne 8 sheets pour un user c'est un peu beaucoup !!

Auriez-vous une petite sugestion ??

D'avance merci

Benjisan