Est-il possible de connaître les valeurs exactes ayant servi à construire un graphique qu'on a récupéré de quelqu'un d'autre ?

sub GetChartData()
 Dim s As Series
 Dim x As Variant, y As Variant
 Dim Col as Integer
 
 Col = 1
 For Each s In ActiveChart.SeriesCollection
  x = s.XValues
  y = s.Values
  With ActiveSheet
   .Range(.Cells(1, Col), .Cells(UBound(x), Col)) = _
     Application.Transpose(x)
   .Range(.Cells(1, Col + 1), .Cells(UBound(x), Col + 1)) = _
     Application.Transpose(y)
   End With
   Col = Col + 2
  Next s
 end sub

Sélectionne le graphique et lance la macro. Elle écrit les données en commençant à la cellule A1 et écrit deux colonnes pour chaque série du graphique (les x et les y). Fais par conséquent attention à ce que cette région de la feuille soit vide.