Page 1 sur 1

Copier coller graphique dans autre classeur

Posté : 28 juin 2018, 12:03
par azkaet
Bonjour à tous,

Je me permets de créer ce sujet parce que je n'ai pas trouvé de cas précis correspondant à ce dont j'ai besoin.

Je souhaite copier un graphique d'un classeur1 (celui dont le nom commence par 00_) et le coller comme une image dans le classeur eSQDIP dans l'onglet Delivery.

J'ai écrit ce code, mais la ligne suivante me met en erreur :
Workbooks("eSQDIP.xlsm").Sheets("Delivery").Range("B134").Select
Workbooks.Open ("X:\Industrial Fluid Process\aeropower\Engineering\64 ) Engineering Excellence\Daily Visual Management\eSQDIP Development\SQDIP Delivery data\00_History 'Run' RATE Engineerng KPI late tasks.xlsx")
    Workbooks("00_History 'Run' RATE Engineerng KPI late tasks.xlsx").Sheets("Engineering Pareto").Shapes("Chart 1").CopyPictures
    Workbooks("eSQDIP.xlsm").Sheets("Delivery").Range("B134").Select
    ActiveSheet.Paste
    Workbooks("00_History 'Run' RATE Engineerng KPI late tasks.xlsx").Close
    
    Workbooks("eSQDIP.xlsm").Sheets("Delivery").Shapes("Picture 1").Select
        With Selection.ShapeRange
            .IncrementLeft 6163.2352755906
            .IncrementTop -97.0588188976
            .ScaleHeight 4.7935724485, msoFalse, msoScaleFromBotomRight
            .ScaleWidth 5.5607135718, msoFalse, msoScaleFromBottomRight
        End With
Quelqu'un peut peut-être m'aider ? :oops:

Merci par avance.