récupérer une valeur boursiere sur internet

roncevaux68

XLDnaute Junior
bonjour

comment peut on récupérer dans des cellule, la valeur boursière (le cours) d'une valeur en bourse sur un site .

merci
 

gosselien

XLDnaute Barbatruc
Bonsoir le fil, le forum, gosselien ;)

Il faudrait déjà connaitre les CGU du site en question (à mettre en corrélation avec ceci)
extrait de la charte du forum
Hello :)
notre ami ne dit pas sur quel site il va en effet , difficile de voir les CGU :(
sur boursorama on "savait" (je ne le fait plus) exporter mais en passant par leur menu par en "siphonant" depuis l'extérieur :)

P.
 

roncevaux68

XLDnaute Junior
Bonjour a tous ,

Je vous demande pas d’aller chercher des données avec une requête sur des sites Internet comme boursorama ,euronext , abcbourse ou centralcharts mais c’est moi qui vous donne un ficher texte avec des données et je voudrais juste les mettre en forme et dans le bonne ordres
 

roncevaux68

XLDnaute Junior
bonjour a tous
Pour l’instant j’ai que 3 valeurs mais si je modifie ma liste de valeurs, ( j aimerai bien faire avec un compteur ) la séparation entre Derichebourg et Eurotunel est tout à fait normal ,Je suppose que dès que le programme va rencontrer une chaîne vide, il va passer à la ligne suivante.

Voici comment je vois le cheminement :

Départ ligne 7 la ligne Airbus

En supposant que tu vas charger le contenu du fichier « classeur air.txt » dans la feuil1 en position A1, il faut alors utiliser le contenu de la cellule C7 pour aller charger le fichier.

Une fois le fichier chargé dans la feuil1, j aimerai déjà faire une vérification que le contenu de la cellule A7 et de la cellule de la feuil1 en B10 son identique, si non on passe à la ligne suivante .

puis on copie dans la cellule D7 le contenu de la feuil1 la cellule F31.

Et la suite dans le tableau on aurait ceci :


Dernier , Var , Ouv. , + haut , + bas , Var/1janv , Veille , Vol.
En D7 , E7 , F7 , G7 , H7 , I7 , J7 , K7
=Feuil1!F31 , =Feuil1!B14 , =Feuil1!F34 , =Feuil1!F36 , =Feuil1!F37 , =Feuil1!B44 , =Feuil1!E31 , =Feuil1!B24


Ensuite, il faut passer à la ligne 8 Derichebourg, et puis faire le même cheminement pour les lignes suivante.

Si Tu me fais une macro , j’utiliserai le bouton mise a jour.

Ps : je travail avec Excel 2000

cordialement
 

Pièces jointes

  • Nouveau dossier compressé.zip
    11.3 KB · Affichages: 36
Dernière édition:

roncevaux68

XLDnaute Junior
hello
si ça peu aide
voila un début de programme développer par staple1600
merci a toi
Ce lien n'existe plus

Code (Visual Basic):

Sub a()
Dim adr
adr = Array("F31", "B14", "F34", "F36", "F37", "B44", "E31", "B24")
For i = 0 To UBound(adr)
If Not IsEmpty(Feuil2.Range(adr(i))) Then
Sheets("ma liste").Cells(6, 4 + i) = Feuil2.Range(adr(i))
End If
Next
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

hello
Si ça peut aider.
Voila un début de programme développé par Staple1600.
Merci a toi.
@roncevaux68
Tu t'aides toi-même en reprenant un code que j'ai posté dans un autre de tes fils ?!? ;)
Mon code est liée à l'autre question.
https://www.excel-downloads.com/thr...s-du-feuille-de-calcule-a-une-autre.20023975/

Donc au final, on a trois discussions pour une même question, non ?
Il serait peut-être temps que tu en choisisse une seule et unique.

(Cela évitera de se mélanger les pinceaux)
 
Dernière édition:

roncevaux68

XLDnaute Junior
Bonjour le fil et staple1600

Pour évitera de se mélanger les pinceaux un petit résumer.
Oui c’est sur ce fil que tout a commencé , puis il est tombe petit a petit au fond du forum
C’est pourquoi que j’ai crée un deuxième fil mais sans parler de valeur boursière et lui aussi
est tombe petit a petit au fond du forum et c’est la sur le troisième fil que tu m’as écrit
voilà résumé en quelque lignes .
c’est pour cela que je suis revenu sur mon premier fil

je fait pas cela pour charger le forum pour rien

le code que tu as développer sur l’autre fil fait partie de l’idée

la partie de ton code correspond a cette partie du texte ci dessous.

« puis on copie dans la cellule D7 le contenu de la feuil1 la cellule F31.
Et la suite dans le tableau on aurait ceci :

Dernier , Var , Ouv. , + haut , + bas , Var/1janv , Veille , Vol.
En D7 , E7 , F7 , G7 , H7 , I7 , J7 , K7
=Feuil1!F31 , =Feuil1!B14 , =Feuil1!F34 , =Feuil1!F36 , =Feuil1!F37 , =Feuil1!B44 , =Feuil1!E31 , =Feuil1!B24 »


en espérant ne pas avoir fait trop de fautes d’orthographes

cordialement
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi