Discussion :

[amalane]

Bonjour,

Je créé des statistiques sur Excel depuis une base Access.
Pour creer et parametrer des graphiques en vba, pas de pb, mais je n'arrive pas à positionner le graph obtenu sur l'onglet choisi. Tous mes graphiques se placent par défaut sur le premier onglet on dirait.

Quelqu'un connait-il la commande pour choisir l'onglet sur lequel on créé sn graphique ?

Voici pour exemple, mon code :

Code :

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

1
2
3
4
    xlapp.Charts.Add
    xlapp.activechart.ChartType = 5
    xlapp.activechart.SetSourceData Source:=fichier.Range(donnees), PlotBy:=1
    xlapp.activechart.Location WHERE:=2, Name:=fichier.Name

[Janny]

Salut,

tu pourrais mettre le code que tu as avant la création de ton graph,
celui où tu ouvres le fichier excel et où tu definies l'onglet où tu te situes

[Invité]

Bonjour

Qu'y a t'il dans "Fichier.name" ?

Starec

[amalane]

C'est vrai que j'ai pas du tout explicité mes variables, désolé...

Voici la façon dont j'accède au fichier Excel :

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
Set xlapp = CreateObject("Excel.Application")
xlapp.workbooks.Add
xlapp.Visible = True
Set classeur = xlapp.ActiveWorkbook
 
for i = 1 to 3
 
  Set fichier = classeur.sheets(i)
 
ici je crée une variable 'donnees' pour mon graph, mais je ne le détaille pas puisque le pb ne se situe pas là
 
  xlapp.Charts.Add
  xlapp.activechart.ChartType = 5
  xlapp.activechart.SetSourceData Source:=fichier.Range(donnees), PlotBy:=1
  xlapp.activechart.Location WHERE:=2, Name:=fichier.Name
 
next

Merci beaucoup

[amalane]

Petite précision :

J'ai eu l'occasion de tester ce même code sur Access 2003, et ça fonctionne en fait. Mes graph se positionnent bien sur chaque onglet respectifs.

Mais sur la version 2000 ça ne fonctionne pas, ils vont tous sur le premier onglet.
Et bien entendu, c'est sur la version 2000 que je voudrais que ça marche !

Merci d'avance pour vos suggestions !