Piloter Graph Excel via Access

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:

---

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

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

Je post le code source

Code:

---

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

Essaie :

Code:

---

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 )

:)

Un seul mot à te dire micniv !! Fantastique :hola: :hola: :hola:

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:

---

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

---

Voyez-vous d'ou vient mon erreur ??

Encore merci

Et à bientôt

Benjisan

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

Je devais juste rajouter

Code:

---

classeur.sheet

---

Et c'est OK

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

au lieu decréer une nelle feuille à chaque graphe :

Code:

---

1 2 3

... Set xlSheet = classeur.Worksheets.Add ...

---

reprend la sheet qui contient tes données !

:)

Impec, ça marche nikel comme d'habitude :king:

J'ai encore une petite question concernant le graphique, est ce que tu peux le positionner ou tu veux sur la page excel ??

Encore merci pour ta réponse

Benjisan