Utiliser du SetSourceData dans un script
Bonjour,
J'ai une nouvelle fois besoin de vos conseils.
Je n'arrive pas à trouver comment modifier l'étendu des valeurs affichées dans un graphique en vbs.
Je fait tourner un script vbs qui fait un tas de chose, puis me renvoie des valeurs dans un fichier excel.
J'ai créé un inséré un graphique dans ce fichier avec ces valeurs en source.
Chaque semaine une colonne de valeurs supplémentaire est ajoutée dans ce fichier.
J'ai une variable "week" qui me donne la colonne avec les dernières valeurs de la semaine.
Code:
1
2
|
objExcel.Sheets("Feuil2").ChartObjects("Graphique 1").SetSourceData Source:=Range(cells(1,1),cells(week,9)) |
(j'ai utilisé l'enregistreur de macro d'excel pour trouver comment étendre la zone)
Je voudrait simplement étendre la zone de source graphique chaque fois que je fait tourner le script.
Le problème c'est l'espace entre .SetSourceData et Source:
en vbs, ca me plante sur cet espace.
Quelq'un aurait une solution pour modifier la zone de source du graphique en vbs ?
Merci de votre aide!
SetSourceData and union range
Bonjour,
essaie le code ci dessous voir. je l'ai utilisé en vbscript
Code:
1
2
3
4
5
6
7
8
9
10
11
| 'objWS = Objet worksheet ("Name"). objExcel = object Excel =>CreateObject("Excel.Application")
'Use this to select your specific range
With objWS
Set xlRange = objExcel.Union(.Range("B1:B5"), .Range("D1:D5"))
End With
With GetObject(, "Excel.Application")
'This code is using to SetSourceData with a specific range
objExcel.ActiveChart.SetSourceData xlRange
End With |
