OVH Cloud OVH Cloud

Excel et Project : graphique excel

4 réponses
Avatar
Anne
Bonjour,

A partir d'une macro Project, j'appelle une instance Excel, qui me
permet de construire un tableau sp=E9cifique sur l'utilisation de mes
ressources.
Toujours =E0 partir du VBA sous Project, je voudrais cr=E9er des
graphiques sous Excel =E0 partir du tableau que j'ai construit.
J'utilise par exemple les lignes de code suivantes (qui fonctionnent
sous Excel) :

Charts.Add
ActiveChart.ChartType =3D xlColumnClustered
ActiveChart.SetSourceData
Source:=3DxlShDonnees.Range("A4:F4,A6:F6"), _
PlotBy:=3DxlRows
ActiveChart.Location Where:=3DxlLocationAsObject, Name:=3D"Feuil2"
...

Mais un erreur de compliation survient. Les variables
xlColumnClustered, xlLocationAsObject,... ne sont pas d=E9finies.

J'ai bien la r=E9f=E9rence =E0 Excel (Microsoft Excel 5.0 Object Library),
mais il doit sans doute me manquer quelque chose.

Quelqu'un aurait-il une id=E9e?

Merci d'avance.

Anne

4 réponses

Avatar
Gérard Ducouret
Anne,

As tu essayé de remplacer les constantes xlColumnClustered et
xlLocationAsObject par leur valeur integer qui correspond probablement à
leur rang dans la liste des options.

Gérard Ducouret


"Anne" a écrit dans le message de
news:
Bonjour,

A partir d'une macro Project, j'appelle une instance Excel, qui me
permet de construire un tableau spécifique sur l'utilisation de mes
ressources.
Toujours à partir du VBA sous Project, je voudrais créer des
graphiques sous Excel à partir du tableau que j'ai construit.
J'utilise par exemple les lignes de code suivantes (qui fonctionnent
sous Excel) :

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData
Source:=xlShDonnees.Range("A4:F4,A6:F6"), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
...

Mais un erreur de compliation survient. Les variables
xlColumnClustered, xlLocationAsObject,... ne sont pas définies.

J'ai bien la référence à Excel (Microsoft Excel 5.0 Object Library),
mais il doit sans doute me manquer quelque chose.

Quelqu'un aurait-il une idée?

Merci d'avance.

Anne
Avatar
Anne
Bonjour Gérard,

Je viens d'essayer (j'ai eu du mal à trouver les valeurs correspondant
aux constantes excel). Il n'y a plus d'erreur sur ces variables.
En revanche, le problème ne doit pas être vraiment réglé puisque
j'ai maintenant une erreur sur la ligne :
ActiveChart.SetSourceData
Source:=Sheets("Feuil1").Range("A4:F4,A6:F6"), _
PlotBy:=xlRows

Si vous avez une autre idée!
Merci.

Anne
Avatar
Gérard Ducouret
Bonjour Anne,

Il va faloir faire la même chose pour la constante xlRows...

Gérard Ducouret

"Anne" a écrit dans le message de
news:
Bonjour Gérard,

Je viens d'essayer (j'ai eu du mal à trouver les valeurs correspondant
aux constantes excel). Il n'y a plus d'erreur sur ces variables.
En revanche, le problème ne doit pas être vraiment réglé puisque
j'ai maintenant une erreur sur la ligne :
ActiveChart.SetSourceData
Source:=Sheets("Feuil1").Range("A4:F4,A6:F6"), _
PlotBy:=xlRows

Si vous avez une autre idée!
Merci.

Anne
Avatar
Anne
Malheureusement, maintenant ce n'est plus une erreur liée à la
déclaration de la variable, comme précédemment. J'ai une erreur
d'exécution 1004 (erreur définie par l'application ou par l'objet).
J'ai essayé en changeant "xlRows", ça ne marche toujours pas.