Discussion :

[n'anneso]

Bonjour à tous.

Je souhaite créer à partir d’une macro VB (qui est dans le classeur A) un graphique dans un classeur B qui pointe sur des données qui sont également dans le classeur B. (contacts.xls)

Grace à l’enregistreur, j’ai crée le code suivant :

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
 
'sélection des données du graphique
Range(Cells(4, 1), Cells(9, 3)).Select
'création du graphique
 Charts.Add
    ActiveChart.ChartType = xl3DBarClustered
    ActiveChart.SetSourceData source:=Workbooks("contacts.xls").Sheets("Feuil2").Range(Cells(4, 1), Cells(9, 3)), PlotBy:=xlColumns
 
    ActiveChart.Location Where:=xlLocationAsObject, name:="Feuil2"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = False
    End With

Mais lorsque je l’exécute, le graphique se positionne systématiquement dans le classeur A, celui qui contient la macro éxécutée (que je le crée comme objet incorporé ou comme feuille graph) .

Est il possible qu'il se mette directement dans le classeur B, qui contient les données, et comme un objet incorporé dans une feuille existante ?


N’y parvenant pas, j’ai alors essayé de copier le graphique vers le classeur B.( voir post [VBA-E] couper-coller graphique dans autre woorkbooks) Mais j'ai ici encore le même problème.

Merci par avance de bien vouloir m'aider à résoudre mon problème.

[SilkyRoad]

bonsoir


Tu dois spécifier le nom du classeur puis du graphique dans ta procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Wb As Workbook
Dim Ch As Chart
 
Set Wb = Workbooks("contacts.xls")
 
Set Ch = Wb.Charts.Add
Ch.ChartType = xl3DBarClustered
 
Ch.SetSourceData Source:= _
    Wb.Sheets("Feuil2").Range("A4:C9"), PlotBy:=xlColumns
 
Ch.Location Where:=xlLocationAsObject, Name:="Feuil2"

bonne soirée
michel

[n'anneso]

Merci beaucoup.

C'est en effet la solution a mon problème ! (quel soulagement!)

bravo pour votre site et le forum, tres utiles, complets et pour votre réactivité !