Discussion :

[tioch]

Bonjour à tous,

Je voudrais copier d'un classeur à un autre un graphique.
Le graphique se nomme "Graphique 10" et voici le code que j'utilise (code adapté d'un enregistrement de macro).

Code :

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

1
2
3
4
5
6
7
8
With newclasseur
With .Sheets("Feuil1")
    Application.EnableEvents = True
    ceclasseur.Worksheets("DT CC").ChartObjects("Graphique 10").Copy
    .Cells.Find(What:="Test").Offset(1, 0).PasteSpecial
    Application.EnableEvents = False
End With
End With

Mais à la fin il n'apparait pas sur le nouveau classeur et il ne me met pas d'erreur non plus !
Je ne comprends pas.
Par contre si quelqu'un comprend je suis preneur de ses solutions.

Merci d'avance

Tioch

[jfontaine]

Bonjour,

Des with imbriqués ...
Cela ne doit pas arranger les choses

[tioch]

Merci de ta réponse mais,
Tout le reste du code fonctionne avec les With imbriqué.
Et meme si j'enleve ce code des with imbriqué, le copier coller de graphique ne fonctionne toujours pas !

[jfontaine]

Code a tester

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
 
Dim rg As Range
 
With newclasseur
With .Sheets("Feuil1")
    Application.EnableEvents = True
    ceclasseur.Worksheets("DT CC").ChartObjects("Graphique 10").Activate
    ActiveChart.ChartArea.Copy
    set rg = .Cells.Find(What:="Test")
    newclasseur.Sheets("Feuil1").Select
 
    If Not rg Is Nothing Then 
        newclasseur.Sheets("Feuil1").Range(rg.Address).Select
        ActiveSheet.Paste
    end if
    Application.EnableEvents = False
End With
End With