Dec 01 2021 03:03 AM
Bonjour,
Je travaille avec Excel Office 365, version 2102, sur PC.
Je crée un tableau de bord en copiant (via VBA) des graphiques de différents fichiers sources.
Mon problème est que le format des graphiques (et données sous-jacentes) copiés n'est pas conservé après copie : autre set de couleur (accessoire) mais surtout formats de l'axe et de la table de données perdus!! (voir code et illustrations ci-dessous)
D'avance merci pour votre aide
Voici le code VBA utilisé :
ActiveSheet.ChartObjects("Evol_taux").Activate
ActiveChart.Parent.Delete
Workbooks.Open Filename:= _
ActiveSheet.ChartObjects("Evol_taux").Activate ActiveChart.ChartArea.Copy
Windows("Tableau de Bord Polices.xlsm").Activate
Range("N3").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Evol_taux").Activate
With ActiveSheet.ChartObjects("Evol_taux")
.Left = Range("N3:x21").Left
.Top = Range("N3:x21").Top
.Width = Range("N3:x21").Width
.Height = Range("N3:x21").Height
End With
ActiveChart.DataTable.Select
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "jj-mm-aaaa"
Windows("stats_affil_Evol_31dec.xlsx").Activate
ActiveWindow.Close
Voici une image du graphe d'origine :
Et le résultat après copie et fermeture du fichier source :