Copier-coller un graphique dans un classeur différent
B
Bonjour, j'aurais besoin d'aide afin de copier-coller un graphique, en tant qu'image simplement, dans un classeur différent.
J'ai essayé le code suivant qui ne fonctionne pas :
Workbooks("Fichier test.xlsm").Sheets("Feuil1").ChartObjects("Gr4").CopyPicture Workbooks(ListBox1.Value & ".xls").Sheets("Feuil1")Workbooks("Fichier test.xlsm").Sheets("Feuil1").ChartObjects(1).CopyPicture Workbooks(ListBox1.Value & ".xls").Sheets("Feuil1")ListBoxValue donne une valeur au format string pour correspondre à un nom de classeur en xls crée avant dans le programme.
Merci !
E
Bonjour,
Si je ne dis pas de bêtises il faut normalement selectionner le graphique (car objet) avant de le coller. En tout cas d'après l'aide Microsoft sur cette méthode "Cette méthode copie l'objet sélectionné dans le Presse-papiers en tant qu'image." Donc :
Sub COPIE()
ThisWorkbook.Sheets("Feuil1").ChartObjects(1).Select
Selection.CopyPicture
Workbooks(ListBox1.Value & ".xls").Sheets("Feuil1").Paste
End SubDe plus, je pense, qu'on ne peut pas faire de copypicture en une seule ligne.
Cdlt,