Discussion :

[hugodu13]

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 :

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

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!

[kelanim]

Bonjour,
essaie le code ci dessous voir. je l'ai utilisé en vbscript

Code :

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

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

[ProgElecT]

Salut kelanim, bienvenue sur DVP

Dernière activité de hugodu13: 22/06/2012 12h56, j'ai des doutes sur son passage prochainement.
De plus ton code n'est pas tout à fait correcte, objWS n'est pas initialisé puisque tu l'as mis en commentaire.