Bonsoir,

En désespoir de cause, je viens chercher l'aide d'un Gourou de la Saint Macro Excel.

Je cherche a créer en VBA un graphique représentant le cours d'un valeur boursière au cours du temps (historique).
J'ai donc un fichier qui ressemble à ça :

Colonne A | Colonne B
03/06/2017 | 30.87
04/06/2017 | 31,23
05/06/2017 | 31,76
06/06/2017 | 29,87

J'ai fait le code suivant, les dates s'affichent bien mais les valeurs associées restent à Zéro.
Il y a quelque chose que j'ai pas du comprendre comment utiliser.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Create_graph(ByRef W As Worksheet, ByRef Wb As Workbook)
 
W.Activate
With ActiveSheet.ChartObjects.Add _
        (Left:=100, Width:=375, Top:=75, Height:=225)
    .Chart.ChartType = xlXYScatterLines
    .Chart.HasLegend = False
    Set oSerie = .Chart.SeriesCollection.NewSeries
        With oSerie
            .XValues = Wb.Worksheets(1).Range("A1:A514")
            .Values = Wb.Worksheets(1).Range("B1:B514")
        End With
    .Chart.Axes(xlCategory, xlPrimary).CategoryType = xlTimeScale
    .Chart.Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "dd/mm/yy"
End With
 
End Sub
Si quelqu'un à la solution à mon problème, il recevra ma bénédiction
Merci d'avance