Discussion :

[dsolheid]

Bonjour,

J'ai un script VBS qui construit un graphe sous Excel.
J'essaye que ce graphe soit placé sur la même page que les données, malheureusement, à chaque fois Excel (v 2007) crée une page suplémentaire avec ce graphique.

Avez vous une idée ?

Ex :

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
18
19
20
21
22
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
 
' Make it visible
objExcel.Visible = true
 
' Add a new workbook
Dim wb
'set wb = app.workbooks.add
Set wb = objExcel.Workbooks.Open("C:\tmp\perf.csv") 
objExcel.Cells(1, 1).Value = "Time"
objExcel.Cells(1, 2).Value = "Memory / Available Bytes"
objExcel.Cells(1, 3).Value = "CPU %"
 
 
 
dim rng
set rng = wb.Activesheet.Range("A1").Resize(20,2)
 
wb.Charts.Add
wb.ActiveChart.ChartType = 2
wb.ActiveChart.SetSourceData rng, 2 ' xlColumns

[SfJ5Rpw8]

ton problème est surtout un problème excel .. tu devrai regarder l'aide en ligne de celui-ci et peu-être la commande :

Code :

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

wb.Charts.Add

ou tu ne précise pas la feuille ou créer ton graphique....

[dsolheid]

ton problème est surtout un problème excel .. tu devrai regarder l'aide en ligne de celui-ci et peu-être la commande :

Code :

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

wb.Charts.Add

ou tu ne précise pas la feuille ou créer ton graphique....

Merci pour l'aide ..

effectivement, en VB.NET, je spécifie d'autres paramètres ...
mais en VBS, j'ai du mal à savoir comment les passer ...,

Et les constantes ne sont pas définie (ex; pour un type de graphique).

En VB.NET j'utilise :

Code :

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

1
2
// position
oChart.Location(XlChartLocation.xlLocationAsObject, xlSheet.Name);

Pour modifier la position ..

mais en VBS, XlChartLocation.xlLocationAsObject, je le sors d'où ?


Où puis-je trouver toutes ces infos ?

Encore merci

[SfJ5Rpw8]

dans la fenêtre exécution de l'éditeur VBE d'Excel.

ALT+F11 puis CTLR+G

Code :

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

? XlChartLocation.xlLocationAsObject

[dsolheid]

dans la fenêtre exécution de l'éditeur VBE d'Excel.

ALT+F11 puis CTLR+G

Code :

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

? XlChartLocation.xlLocationAsObject

C'est vrai que c'est super pour obtenir des infos sur les paramètres des fonctions et sur la valeur des constantes ..

J'ai pourtant du mal à placer le "Chart" sur la feuille courante, où les données sources se trouvent ....

[SfJ5Rpw8]

....
J'ai pourtant du mal à placer le "Chart" sur la feuille courante, où les données sources se trouvent ....

tu as écris cela comment ?

[dsolheid]

tu as écris cela comment ?

Pour l'instant wb.Charts.Add

Justement .. je vois dans la doc ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Syntaxe
 
expression.Add(Avant, Après, Nombre, Type)
 
expression   Variable qui représente un objet Charts.
 
Paramètres
 
Nom Obligatoire/Facultatif Type de données Description 
Avant Facultatif Variante Objet qui spécifie la feuille avant laquelle la nouvelle feuille est ajoutée. 
Après Facultatif Variante Objet qui spécifie la feuille après laquelle la nouvelle feuille est ajoutée. 
Nombre Facultatif Variante Nombre de feuilles à ajouter (une par défaut). 
Nombre Facultatif Variante Constante XlChartType qui représente le type de graphique à ajouter.

Comment lui dire, place le "Chart" sur la feuille courante ...

Je fais =>

Code :

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

1
2
3
4
5
6
7
8
' Declare a range object to hold our data
dim rng
set rng = wb.Activesheet.Range("A1").Resize(20,2)
 
wb.Charts.Add
wb.ActiveChart.ChartType 2 '70 'xl3dPieExploded
wb.ActiveChart.SetSourceData rng, 2 ' xlColumns
wb.ActiveChart.Location 2, "perf" 'xlLocationAsObject

Je fais un ActiveChart.Location 2, "perf", car cet appel doit normalement me placer le chart fraichement comme objet sur la feuille "perf".
Le 2 = xlLocationAsObject

Mais je n'arrive pas au résultat attendu ...

[SfJ5Rpw8]

et si tu essai un truc du genre :

Code :

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

1
2
3
4
5
6
 
set oSheet = wb.sheets(1)
set oChart  = wb.Charts.Add
oChart.ChartType 2 '70 'xl3dPieExploded
oChart.SetSourceData rng, 2 ' xlColumns
oChart.Location 2, oSheet.Name 'xlLoc

[dsolheid]

et si tu essai un truc du genre :

Code :

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

1
2
3
4
5
6
 
set oSheet = wb.sheets(1)
set oChart  = wb.Charts.Add
oChart.ChartType 2 '70 'xl3dPieExploded
oChart.SetSourceData rng, 2 ' xlColumns
oChart.Location 2, oSheet.Name 'xlLoc

Alors là ...

je suis une bille ...

Non seulement votre solution marche ... mais la mienne marchait aussi ...

le soucis, c'est que je ne voyais pas passer une erreur en arrière plan ...

Code :

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

Erreur d'exécution Microsoft VBScript: Cet objet ne gère pas cette propriété ou cette méthode: 'oChart.ChartType'

Pourtant =>
ChartType Renvoie ou définit le type de graphique. Type de données XlChartType en lecture-écriture.

Je pense que je vais trouver pour la suite ..

Encore merci !