Récupérer les données d'un site web
Bonjour,
Je dois récupérer les taux de la devise USD sur le site
. Je peux récupérer les données de plusieurs site en utilisant Données / a partir du web.
malheureusement cela ne fonctionne pas avec ce site
y a t'il quelqu'un qui peut m'expliquer? bien entendu c'est urgent...
Sub importer()
Sheets("TEMP").Cells.Clear
With Sheets("TEMP").QueryTables.Add(Connection:="URL;
" _
, Destination:=Sheets("TEMP").Range("$A$1"))
.Name = "
"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Bonjour,
pourquoi forcément ce site ? Il y en a plein d'autres comme par exemple celui de la BCE …
Merci de ton retour marc, mais c'est un site imposé. je dois passer par celui là. as tu une idée du pourquoi ?
Merci de ton retour
Certaines pages Web sont protégées et ne donc pas récupérables de cette manière …
Pour du rapide : c'est du copier / coller manuel !
Sinon te reste à explorer deux voies : le pilotage d'Internet Explorer ou la création d'une requête …
Voir les tutoriels sur le net et les exemples dans les discussions des forums …