Manipulation de string après import de données du web

Version imprimable

16/03/2018, 13h28
Ludo5550

Manipulation de string après import de données du web
Bonjour,

Un sujet "presque en or" :)

Dans le cadre de mon travail je dois récupérer chaque jour sur un site internet les cours de métaux et la parité €/$.
Comme c'est fastidieux et que le site où les données se trouvent est stable... j'essaye d'écrire un programme pour récupérer ces données.

Ce qui fonctionne :
- Récupérer toutes les données de la page internet sur une page temporaire
- Isoler dans une colonne de la page temporaire les données qui m'intéressent et qui sont des strings type "Or - 1er fixing : 34424,40 €/ kg - 2è fixing : 34347,24 €/ kg"
- Spliter chaque string en fonction des espaces et inscrire les données splitées dans les cellules adjacentes.
Question 1 :
J'ai un problème à l'importation de la donnée "Parité €/$" : La donnée sur le web est du type 1,1234
A l'import, en bon Américain, Excel le colle comme le nombre 12345... donc sans la virgule (Voir feuille "Temporaire")
A noter que certains jours, il n'y a pas 4 chiffres après la virgule mais seulement 3 et alors Excel le reconnaitra par exemple pour 1,123 comme étant bien 1,123...
D'où ma question --> Est-ce qu'il est possible pour que dès l'import, peu importe les "n" chiffres après la virgule Excel reconnaisse bien cette donnée comme un chiffre à virgule ?

Question 2 :
Comment récupérer dans un tableau les données aux bons formats ? ça me semblait être le plus simple et pourtant... je sèche et me mélange les pinceaux avec les différents formats et avec la recherche de données dans ma feuille
Voilà la liste de ce que je veux récupérer (Ebauche de tableau final sur la feuille "Accueil") :
- La date qui est importée en format texte (15/03/18) à mettre dans une cellule au format "jj/mm/aaaa" --> 15/03/2018
- Le cours des 4 métaux précieux qui ont chacun soit 1 fixing (Argent) ou 2 fixings (Or, Platine, Palladium) par jour à récupérer dans des cellules au format " type "# ##0,00 €" (éventuellement "# ##0,00 €/kg") --> 34 347,24 € (ou 34 347,24 €/kg)
- La parité €/$ au format numérique "0,0000"
Merci d'avance pour votre aide

Edit message : Fichier d'origine supprimé... tout est dans les réponses de Marc-L et PatrickToulon
16/03/2018, 14h21
Marc-L
Bonjour !

Rappel : http://www.developpez.net/forums/images/misc/sticky.gif Important : Fichiers joints dans les discussions …
Code:

1 2 3 4 5 Sub DemoQ1() S$ = "1,234" [B2].Value = S [B4].FormulaLocal = S End Sub
Code:

1 2 3 4 5 Sub DemoQ2() S$ = "15/03/18" [D2].Value = S [D4].FormulaLocal = S End Sub
___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé …
16/03/2018, 15h32
Marc-L
Code:

1 2 3 4 5 Sub DemoQ2bis() S$ = "01/03/18" [D2].Value = S [D4].FormulaLocal = S End Sub
___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé …
16/03/2018, 16h35
Ludo5550

Citation:

Envoyé par Marc-L

Bonjour !

Rappel : http://www.developpez.net/forums/images/misc/sticky.gif Important : Fichiers joints dans les discussions …

Merci pour cette info, j'ai supprimé l'adresse où je récupérais les données même si c'est un site et des données public et donc j'ai créé une page web perso avec les mêmes données et modifié mon fichier Excel en conséquence.
L'avantage c'est qu'en plus maintenant je peux tester plein de chiffres différents... :)

Merci aussi pour les codes, je ne connais pas cette syntaxe, je vais regarder ça de plus prêt dans la soirée... Faut déjà que je trouve où insérer ces codes:oops:

bonsoir

Code:

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
Sub test()
    Dim Oor, or1, or2, platine, paL1, paL2, argent, argent1
    URL = "http://www.cookson-clal.com/mp/rss_mpfr_cdl.jsp"
    With CreateObject("microsoft.xmlhttp")
        .Open "get", URL, False: .send: code = .responsetext
    End With
    Oor = Split(code, "<title>Or")(1)
    or1 = Split(Split(Oor, "1er fixing : ")(1), "/")(0)
    or2 = Split(Split(Oor, "2è fixing : ")(1), "/")(0)
    platine = Split(code, "<title>Platine")(1)
    plat1 = Split(Split(platine, "1er fixing : ")(1), "/")(0)
    plat2 = Split(Split(platine, "2è fixing : ")(1), "/")(0)
    argent = Split(code, "<title>Argent")(1)
    argent1 = Split(Split(argent, "1er fixing : ")(1), "/")(0)
    palladium = Split(code, "<title>Palladium")(1)
    paL1 = Split(Split(palladium, "1er fixing : ")(1), "/")(0)
    paL2 = Split(Split(palladium, "2è fixing : ")(1), "/")(0)
    parité = Split(Split(code, "Parité €/$  : ")(1), vbCrLf)(0)
 
    Debug.Print "pour l'or c'est : " & or1 & " et " & or2
    Debug.Print "pour platine  c'est : " & plat1 & " et " & plat2
    Debug.Print "pour le palladium   c'est : " & paL1 & " et " & paL2
    Debug.Print "pour l argent  c'est : " & argent1
    Debug.Print "pour parité  c'est : " & parité
End Sub

etc.....etc....

17/03/2018, 14h15
Marc-L

Citation:

Envoyé par Ludo5550

La donnée sur le web est du type 1,1234
A l'import, en bon Américain, Excel le colle comme le nombre 12345... donc sans la virgule

Tu as décris le classique souci de la configuration régionale de Windows au format français
tant pour les nombres comme pour les dates JJ/MM/AA, d'où l'astuce dans mes p'tites démonstrations …
Attention cette astuce ne fonctionne que pour cette configuration régionale, en aucun cas pour celles anglo-saxonnes !

Donc il y a deux voies possibles : la voie franco française réservée uniquement à notre configuration régionale
et la voie internationale à l'anglo-saxonne mais fonctionnant quelle que soit la configuration régionale,
de laquelle as-tu réellement besoin ?

Citation:

Envoyé par Ludo5550

éventuellement "# ##0,00 €/kg" --> 34 347,24 €/kg

Comme les données sont toujours importées au même endroit, il est inutile d'alourdir le code
car il suffit juste une fois pour toute de formater manuellement en catégorie personnalisée les cellules …
17/03/2018, 14h18
Ludo5550

Merci à vous deux ! ça fonctionne parfaitement, testé dans Excel 10 et 13

Des fonctionnalités internes d'Excel …

Citation:

Envoyé par Ludo5550

Un sujet "presque en or" :)

Question 1 : Est-ce qu'il est possible pour que dès l'import, peu importe les "n" chiffres après la virgule
Excel reconnaisse bien cette donnée comme un chiffre à virgule ?

Question 2 : Comment récupérer dans un tableau les données aux bons formats ?
ça me semblait être le plus simple et pourtant...

Citation:

Envoyé par Marc-L

la voie fonctionnant quelle que soit la configuration régionale

Oui un sujet d'école, Excel disposant déjà de tout le nécessaire en interne pour répondre au besoin
et ce, sans se prendre la tête, quelle que soit la configuration régionale de Windows !

Déjà l'unique instruction VBA XmlImport chargeant le fichier xml directement dans une feuille de calculs,
comme la ligne n°6 du code suivant …

Pour transformer du texte en données exploitables de type nombre & date, là encore c'est
facile via la fonctionnalité d'Excel Convertir comme dans les lignes n°19 & 23 ci-dessous …

Tout le reste du code étant de la cosmétique de présentation des cellules !

La matrice du code a été générée via l'Enregistreur de macro, donc à la portée d'un débutant.
Évidemment je l'ai quelque peu remanié pour le rendre plus propre, sans sélection, …

Procédure à coller dans le module d'une feuille (Feuil1) :
Code:

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 Sub DemoXML() V = 36 + ([B7].Interior.ColorIndex = 36) Application.ScreenUpdating = False Me.UsedRange.Clear On Error Resume Next ThisWorkbook.XmlImport "http://www.cookson-clal.com/mp/rss_mpfr_cdl.jsp", Nothing, True, [A2] If Err.Number Then MsgBox "Problème réseau !", vbCritical, " Import XML": Exit Sub ThisWorkbook.XmlMaps(1).Delete On Error GoTo 0 [A2].ListObject.Unlist [A1:I1,L1:O1].EntireColumn.Delete [B5].Copy [B2] [B10].Cut [B3] Me.UsedRange.Columns(1).Clear Me.UsedRange.Replace " : ", vbTab, xlPart Me.UsedRange.Replace "- 1er fixing", "", xlPart Me.UsedRange.Replace " - 2è fixing", "", xlPart Me.UsedRange.Replace " €/ kg", "", xlPart Me.UsedRange.TextToColumns Tab:=True, DecimalSeparator:="," Me.UsedRange.VerticalAlignment = xlCenter Columns(1).ColumnWidth = Me.StandardWidth [A2:A3,A5:A9].RowHeight = 18 [B2].TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array([{0, 1}], [{9, 4}]) [B5:D5].Value = [{"","1er fixing","2ème fixing"}] [C2:C3,C5:D5].HorizontalAlignment = xlCenter [C6:D9].NumberFormat = "#,##0.00 ""€/ kg""_-" [B2:B3,C5:D5,B6:B9].Font.Bold = True [B2:B3,B6:B9].IndentLevel = 1 Me.UsedRange.Columns.AutoFit [B7:C7,B9:D9].Interior.ColorIndex = V Application.Goto [A1], True Application.ScreenUpdating = True End Sub
___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé …

19/03/2018, 10h36
patricktoulon

re

Bonjour
Marcl Bien vu le XMLimport casiment aussi rapide qu'une requette

attention visiblement le site contrairement a ce que je croyais ralenti le debit au bout de X requetes j'en ai fait un paquet pour dissequer ton code et j'ai eu la surprise
ya pas le HTMLimport ???:mouarf:
19/03/2018, 14h17
Marc-L

Merci Pat !

Citation:

Envoyé par patricktoulon

ya pas le HTMLimport ??? :mouarf:

Ben si ! Via Paste ou PasteSpecial après un coller dans le presse-papiers.

Je pense même tu dois être le premier à avoir publié ici l'astuce via le presse papier depuis IE ou un document HTML …
19/03/2018, 19h04
patricktoulon

re

re
bonjour MarcL
oui j'ai meme poussé plus loin je fait le vis et versa (html/vba) le vba to html n'utilant plus de sendkeys ou la fonction explicite "paste" mais execWEB,X,Y
je me demandais juste si il existait une fonction comme vba import xml mais pour le HTML que j'ignorerais

Manier des strings, conversion et pour format chiffre

pour ma part je n'arriver pas à appliquer ces solutions

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 ?

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

Code:

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