Bonjour, je souhaite importer des données du site boursorama, le seul problème est que ça n'importe pas la bonne page.
Plus précisemment, je veux recupérer l'historique des valeurs d'un cours sous le lien suivant : Boursorama, historique
tout en faisant une boucle pour changer la date et donc recuperer les valeurs pour les 30 derniers jours.
Le problème est qu'excel importe toujours cette page : Boursorama, valeurs du jour
qui correspond aux valeurs du jour actuel
J'aimerais donc savoir si quelqu'un a une idée pour que je récupère les bonnes données. Merci d'avance
PS: voici mon code si ça peut vous aider
For i = 1 To 25
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.boursorama.com/cours.phtml?symbole=1rPFP&date=2009-02-0" & i, Destination:=Range("$A$1"))
.Name = "cours.phtml?symbole=1rPFP&date=2009-02-0" & i
.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
Application.Run "'projet black & scholes.xlsm'!effacement"
Next i
Plus précisemment, je veux recupérer l'historique des valeurs d'un cours sous le lien suivant : Boursorama, historique
tout en faisant une boucle pour changer la date et donc recuperer les valeurs pour les 30 derniers jours.
Le problème est qu'excel importe toujours cette page : Boursorama, valeurs du jour
qui correspond aux valeurs du jour actuel
J'aimerais donc savoir si quelqu'un a une idée pour que je récupère les bonnes données. Merci d'avance
PS: voici mon code si ça peut vous aider
For i = 1 To 25
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.boursorama.com/cours.phtml?symbole=1rPFP&date=2009-02-0" & i, Destination:=Range("$A$1"))
.Name = "cours.phtml?symbole=1rPFP&date=2009-02-0" & i
.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
Application.Run "'projet black & scholes.xlsm'!effacement"
Next i