Copier coller graphique dans autre classeur
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 ?
Merci par avance.