Récupération cours sur boursorama (Securibourse)

par isee , vendredi 08 mars 2019, 09:22 (il y a 2088 jours) @ jmp

Bonjour

J'ai un programme (excel-vba) qui va aussi chercher les datas sur bourso et pas de problème observé.

par contre pour m'affranchir des modifs éventuelles sur bourso, ce qui ne garantie rien, je remonte le tout dans une feuille et après je fais des recherches (via vba) dans la feuille pour remonter les infos voulues dans une autre feuille

mon code pour remonter les infos dans une feuille appelée "ShTemp"

(la variable valeur peut être 1rPLOCAL (pour la valeur Solocal)

Dim r&
Dim c&
Dim lig
Dim i, ii, iii As Integer
Dim valeur As String
Dim ShTemp As Worksheets
'Dim cel, zone As Range

Option Explicit
____________________________________________________________

Sub Boursorama()

If Cells(r, 1) <> "1rPCAC" Then
valeur = "URL;https://www.boursorama.com/cours/" & valeur
Else
valeur = "URL;https://www.boursorama.com/bourse/indices/cours/2zPCS90" 'CAC SMALL"
End If

Sheets("ShTemp").Activate
Cells.Delete Shift:=xlUp
With Sheets("ShTemp").QueryTables.Add(Connection:=valeur, Destination:=Range("$A$1"))
.Name = valeur
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.refresh BackgroundQuery:=False
End With
End Sub