Discussion :

[Bisbis27]

Bonjour

Alors voila, j'essaye de copier un graphique d'un fichier a un autre
J'ai écris un code, cela fonctionne parfaitement jusqu'à la ligne " With Selection.Shape"


Je n'arrive pas à trouver mon erreur :/

Merci pour votre aide


N'hesitez pas à me dire aussi si des lignes peuvent etre améliorés

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
24
25
26
27
28
29
30
31
32
 
Sub Maj()
Dim Emplacement As Range
    Dim Grph As ChartObject
 
Fichier_LIBERATION_PF = "Libération PF.xlsm"
Chemin_LIBE = "T:\DIRECTIONCQ\PLANIF CQ\PLANNING CQ PHARMA 2019"
 
For Each Legraph In ActiveSheet.ChartObjects
    Legraph.Delete
Next
 
Application.Workbooks.Open Filename:=Chemin_LIBE & "\" & Fichier_LIBERATION_PF, ReadOnly:=True
 
    Workbooks(Fichier_LIBERATION_PF).Worksheets("Graphs").Activate
    ActiveSheet.ChartObjects("respectdesdelaisPF").Select
    Application.CutCopyMode = False
    Selection.Copy
 
    ThisWorkbook.Worksheets("Libe_PF_Libe_MP").Activate
    Range("A1").Select
    ActiveSheet.Paste
 
    Set Emplacement = Range("B20:CQ191")
 
    ActiveSheet.Paste
    With Selection.Shape
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With

[Bisbis27]

j'ai trouvé "With Selection" suffit pas besoin de shape

[MarcelG]

Bonjour Bisbis,

Bienvenu sur ce forum.

A cause de la gestion des données sources, à mon avis, mieux vaut copier ce graphique par la méthode

CopyPicture

Un exemple simple (les aides en ligne me semblent complexes).

Code :

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

1
2
3
4
5
6
Public Sub copy_graph()
ThisWorkbook.Worksheets("Synth").ChartObjects("Graph_évol").CopyPicture
With Workbooks("Classeur2").Worksheets("Feuil1")
                .Paste Destination:=.Range("A1")
End With
End Sub