Copier coller graphique

[pierrof]

Bonjour forum
Après avoir chercher des posts sur ce sujet et essayer une multitude de code
je n'arrive toujours pas a copier un graphique par vba
Je désire copier un graphique d'une feuille "fab" sur une feuille "qualité"
voir fichier ci joint
merci d'avance pour vos explication

 

[mutzik]

Re : Copier coller graphique

Bonjour,

colle ce code dans un module, pas de prob chez moi

Sub CopierGraph()
Sheets("fab").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Sheets("Qualité").Select
Range("B4").Select
ActiveSheet.Paste
End Sub

 

[pierrof]

Re : Copier coller graphique

Bonjour mutzic
ça me donne une erreur d'execution '1004'
la méthode select de la classe range a échoué

Sheets("fab").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Sheets("Qualité").Select
Range("B4").Select
ActiveSheet.Paste

 

[mutzik]

Re : Copier coller graphique

re, elle serait pas protégée, ta feuille ...

 

[pierrof]

Re : Copier coller graphique

Non elle n'est pas protégée

 

[Catrice]

Re : Copier coller graphique

Bonjour,

Ou bien :

Sub test()
ActiveSheet.ChartObjects("Graphique 1").Copy
Sheets("Qualité").Select
ActiveSheet.Paste
End Sub