Discussion :

[getea85]

Bonjour,

A partir de VB6, je crée l'ouverture d'excel, je renomme la deuxième feuille que j'appelle "2", je mets dans cette feuille des données et je crée à partir de ces données un graphique Excel.

Seul problème, le graphe vient se mettre dans la première feuille du classeur excel et non dans le feuille "2" où sont positionnées les données ??

J'ai mis ce code là pour positionner les graphes dans la feuille 2 mais ça ne marche pas :

Code :

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

ActiveChart.Location Where:=xlLocationAsObject, Name:="2"

Quelques idées ?

[zazaraignée]

Salut

Sans l'avoir fait moi-même, mais pour avoir vu plusieurs messages sur le sujet, je crois que tu dois d'abord appeler la variable que tu as utilisé pour ouvrir ton fichier puisque ActiveChart n'est pas natif de VB mais de Excel.

Ça donnerais quelque chose comme:

Code :

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

1
2
maVarFichierExcel.ActiveChart.Location _
                 Where:=xlLocationAsObject, Name:="2"

Évidemment, je n'ai pas vérifié...

Si ça ne marche pas, fais nous signe...

[getea85]

Non, ca ne marche pas mieux...

Par contre, j'ai essayé une autre méthode beaucoup moins élégante mais qui marche : je coupe tous mes graphes créés en "feuil1" pour les remettre dans la feuille "2" :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim mesgraphes As ChartObject
   Worksheets("Feuil1").Select
   For Each mesgraphes In ActiveSheet.ChartObjects
       mesgraphes.Cut
       Worksheets("2").Select
       Range("J17").Select
       ActiveSheet.Paste
   Next

Merci à ouskel'n'or pour ce petit bout de code que j'ai trouvé dans un de ses messages !

[leroissejp]

Bonjour,
Tu place sur ta Form un contrôle MSChart (Projet / Composants Microsoft Chart Control 6.0 (OLEDB)). et un CommandButton.

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
23
 
 
Private Sub Command1_Click()
Dim wkbObj As Object
Set wkbObj = GetObject _
("C:\Mes documents\Classeur1.xls")
 
Dim arrData(1 To 7, 1 To 2)
Dim i As Integer
For i = 1 To 7
   ' Les valeurs de la colonne A remplissent la première
   ' série du tableau. Si ces valeurs sont des chaînes,
   ' elles deviennent des étiquettes de lignes.
   Dim arrValues(1 To 5, 1 To 3)
    arrData(i, 1) = wkbObj.Worksheets(1) _
   .Range("A" & i + 1).Value
 
   ' Les valeurs de la colonne B remplissent ensuite la seconde série.
   arrData(i, 2) = wkbObj.Worksheets(1) _
   .Range("B" & i + 1).Value
Next i
MSChart1.ChartData = arrData
End Sub

jpleroisse