Soyez le premier à donner votre avis sur cette source.
Vue 8 081 fois - Téléchargée 863 fois
Option Explicit '-------------- Private Const sUrl = "http://bourse.tf1.fr/cours_indices.phtml?symbole=1rPCAC" Private Sub Update() Dim lngOpen As Long Dim lngOpenUrl As Long Dim lngRetVal As Long Dim lngBytes As Long Dim blnDown As Boolean Dim sBuffer As String * 2048 Dim sResult As String Dim intDebut As Integer lngOpen = InternetOpen(scUserAgent, _ INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0) If lngOpen = 0 Then MsgBox "il y a un problème avec votre connection internet" Exit Sub End If ' ---- lngOpenUrl = InternetOpenUrl(lngOpen, sUrl, _ vbNullString, 0, INTERNET_FLAG_RELOAD, 0) If lngOpenUrl = 0 Then MsgBox "le site internet de tf1 n'est pas disponible" Exit Sub End If ' ---- blnDown = True While blnDown sBuffer = vbNullString lngRetVal = InternetReadFile(lngOpenUrl, _ sBuffer, Len(sBuffer), lngBytes) If lngRetVal = 0 Then MsgBox "problème de lecture de la page": Exit Sub Exit Sub End If sResult = sResult & Left$(sBuffer, lngBytes) If Not CBool(lngBytes) Then blnDown = False DoEvents Wend ' ---- 'Open App.Path & "\fichier.bin" For Output As #1 'Print #1, sResult 'Close #1 intDebut = InStr(sResult, "<!-- TABLEAU COURS-->") lblValeur.Caption = Replace(Mid(sResult, intDebut + 160, 7), ">", "") lblVariation.Caption = Mid(sResult, intDebut + 253, 6) End Sub Private Sub Check1_Click() If Check1.Value = vbChecked Then MakeTopMost Me.hwnd Else MakeNormal Me.hwnd End If End Sub Private Sub Form_Load() Update MakeTopMost Me.hwnd End Sub Private Sub tm_Timer() Update End Sub
quel logiciel faut-il se procurer pour lire ce programme?
Merci,
Ce code semble marcher et est très simple. Pour l'instant il ne trouve pas le site de TF1. Est ce normal?
Comment faire pour trouver les adresses des autres valeurs? et/ou comment faire pour aller lire les valeurs sur un autres site exemple boursorama?
Merci d'avance de votre réponse
Michel
Je suis tombe sur ce petit utilitaire
ma fois sympa, mais l'auteur devrait
blinde le parsing de l'HTML
car on ne voit vraiment le CAC ;-))
Cordialement
Un truc intéressant ser ait de déterminé si les marchés sont fermés ou non, car quand la bourse ferme, le cours devient 1955.2 (c), et le " (c) " en question p^rovoque une erreur de calcul de la variation.
En tout ce petit prog est super. Je travaille dans la finance ( gestion de portefeuille d'actions ) alors si tu as une question, n'hésite pas à me contacter : crazymax@noos.fr Je m'amuserai bine à le développer un peu, voire d'y mettre un graphique !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.