Bonjour,

je récupère des données boursières et financières sur des pagez de zonebourse ou autre
habituellement le code source est sous forme xx.xx mais pour cette donnée c'est du xx,xx

du coup ma requête me renvoie une val par exemple pour danone 79 300 au lieu de 79.3
comment faire ?

en général je m'en sors en utilisant Replace ou Trim pour supprimer des espaces genant ou encore Val mais là je suis sec


voici ma requête
avec url =view-source:https://www.zonebourse.com/DANONE-4634/fondamentaux/

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub devisevaleurref()
 
Dim i%, k%, URL$
Set WS = ThisWorkbook.Worksheets("COT_ACT")
'compte le nb de lignes et les met dans K
k = WS.Cells(Rows.Count, [REF].Column).End(xlUp).Row
           'num col         ici!v! pour effacer avant copie des nouvelles valeurs
WS.Range(WS.Cells(3, 15), WS.Cells(k, 15)).Clear
 
 
        '<td style="text-align: right; padding: 7px;">52,950</td>
avant = "<td style=""text-align: right; padding: 7px;"">"
apres = "</td>"
 
' de la ligne 3 jusquà k
For i = 3 To k
    DoEvents
    URL = Cells(i, [WWW].Column).Value
    Application.StatusBar = "Mise à jour cour ref  …"
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .send
        code = .responsetext
        ' mettre numero de colonne ici!v!                                                !v! car 57 eme apparition..
        If .Status = 200 Then Cells(i, 16).Value = Split(Split(code, avant)(57), apres)(0)
        .FormulaLocal
 
    End With
 
Next
Application.StatusBar = False
 'affiche la date et l'heure dans
Range("p2").Value = Day(Now) & "/" & Month(Now) & " à " & Hour(Now) & ":" & Minute(Now)
 
 
End Sub
merci