XL 2013 Actualisation automatique du dollar USD

Jouxte

XLDnaute Occasionnel
Bonjour à toutes et tous,

J'utilise un code trouvé créé par Steelson (que je remercie) sur Excel-Pratique.
J'aurais souhaité l'enrichir du cours du dollar actualisé en même temps que les cours de bourse.

Pourriez-vous m'aider à y parvenir ?

sincères remerciements.
 

Pièces jointes

  • Copie de Boursorama.xlsm
    20.5 KB · Affichages: 23
Solution
re
bonjour le fil
tu en veux une plus rapide ?

ben c'est simple
tu fait une fonction requete
tu recupere la valeur en F
et en D et E tu met une formule pour découper le texte

exemple
la fonction

VB:
Function Valbourse(url As String)
    Valbourse = "noFound!!"""
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        DoEvents
        If .Status = 200 Then
            HTML = .responsetext
            With CreateObject("htmlfile")
                .body.innerhtml = HTML
                For Each elem In .all
                    'c-faceplate__price
                    If elem.classname Like "c-faceplate__price*" Then Valbourse = Format(elem.innertext, "#0,0000"): Exit For
                Next...

patricktoulon

XLDnaute Barbatruc
re
bonjour le fil
tu en veux une plus rapide ?

ben c'est simple
tu fait une fonction requete
tu recupere la valeur en F
et en D et E tu met une formule pour découper le texte

exemple
la fonction

VB:
Function Valbourse(url As String)
    Valbourse = "noFound!!"""
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        DoEvents
        If .Status = 200 Then
            HTML = .responsetext
            With CreateObject("htmlfile")
                .body.innerhtml = HTML
                For Each elem In .all
                    'c-faceplate__price
                    If elem.classname Like "c-faceplate__price*" Then Valbourse = Format(elem.innertext, "#0,0000"): Exit For
                Next
            End With
        End If
    End With
End Function
en f2 tu met =SI(C2<>"";Valbourse($C2);"")
en E2 tu met =SI(F2<>"";DROITE(F2;NBCAR(F2)-CHERCHE(" ";F2;1));"")
en D2 tu met =SI(F2<>"";REMPLACER(GAUCHE(F2;CHERCHE(" ";F2;1));CHERCHE(".";F2;1);1;",");"")

deja des que C2 contiendra un lien ca sera automatique

et bien sur tu selectionne tes 3 cellules et tu entend la formule

supposons que tu veuille actualiser quand tu veux
et bien ton bouton tu lui affecte cette simple macro et tu actualise tout d'un coup

Code:
Sub miseajourAutominute()
Sheets(1).Calculate
End Sub

resultat
Capture.JPG

;)
 

Pièces jointes

  • Boursorama automat .xlsm
    19.5 KB · Affichages: 29

David Aubert

XLDnaute Barbatruc
Administrateur
Modérateur
Bonjour à tous,
Sur le fond du sujet (l'extraction de données sur un site tiers via Excel), je suis désolé, mais je n'ai malheureusement pas le temps de creuser plus le sujet ce WE. Du coup je laisse tout en l'état et j'essaierai d'y revenir semaine prochaine.
Bon Dimanche et bon courage pour la tempête pour les Nordistes ;-)
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
268
Réponses
1
Affichages
383
Réponses
9
Affichages
510

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87