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