XL 2013 Actualisation automatique du dollar USD

laurent3372

XLDnaute Impliqué

Supporter XLD

• 7 Février 2020

• #2

Bonjour,

Après quelque modifs au code de @Steelson, je suis arrivé à ceci:

 

Pièces jointes

• Boursorama.xlsm

  21.1 KB · Affichages: 17

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 7 Février 2020

• #3

Bonjour laurent3372,
Merci pour ce code.
J'ai une erreur en faisant tourner le code sur la ligne :
valDbl = CDbl(Replace(COT, ".", ","))

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 7 Février 2020

• #4

Tu peux réessayer avec cette nouvelle version. Si ça ne marche pas, remets 12 dans les 2 cellules Occur

 

Pièces jointes

• Boursorama (1).xlsm

  21.1 KB · Affichages: 15

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 7 Février 2020

• #5

Le code fonctionne parfaitement.
Un Grand Merci..
Dans la mesure où les valeurs des colonnes avant, après et occur sont fixes, ne peut-on pas (pour la beauté du geste) les intégrer au code ?

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 7 Février 2020

• #6

Voici une nouvelle version beaucoup plus lente mais plus sûre et facile à maintenir.

Cordialement,
--
LR

 

Pièces jointes

• Boursorama (2).xlsm

  22.5 KB · Affichages: 13

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 7 Février 2020

• #7

Merci.
Bonne nuit.

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 8 Février 2020

• #8

Voici (enfin) une version à la fois sure et rapide.

Cordialement,
--
LR

 

Pièces jointes

• Boursorama (3).xlsm

  23.3 KB · Affichages: 23

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 8 Février 2020

• #9

Bonjour le Forum,
Bonjour laurent3372 ,

Merci d'avoir pris du temps pour cette dernière version qui est effectivement beaucoup plus rapide.

Cordialement.

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 8 Février 2020

• #10

Peux-tu marquer le fil comme résolu ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Février 2020

• #11

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

😉

 

Pièces jointes

• Boursorama automat .xlsm

  19.5 KB · Affichages: 30

Vote positif 0 Vote négatif

Solution

David Aubert

XLDnaute Barbatruc

Administrateur

Modérateur

• 9 Février 2020

• #12

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: 6 Mars 2020

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 10 Février 2020

• #13

Bonjour patricktoulon, bonjour le Forum, Bonjour David XLD,
Merci pour cette belle solution.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 11 Février 2020

• #14

Re,
J'ai fait un essai pour récupérer une cotation sur yahoo finance, mais sans succès.
Y aurait-il une possibilité ?
Merci par avance.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Février 2020

• #15

re
bonsoir
a ben c'est pas le me site le code doit être différent

 

Vote positif 0 Vote négatif