Récupérer sous Excel le contenu de la page HTML en cours de l'explorer

Question

bonjour



je voudrais r&#233;cup&#233;rer le contenu de la page ouverte de l'explorer sous Excel



firefox ou Ie est ouvert sur une page 

j'ai aussi Excel d'ouvert 

et &#224; partir d'une macro je veux choper le contenu de la page courante directement.et mettre &#224; jour mon fichier excel.



merci

jpleroisse · Answer

Bonjour,

Essaie cette m&#233;thode (Je ne sais pas l'essayer car j'ai Excel 97 et il faut une version plus r&#233;cente)

'Import de la premi&#232;re table de la page Web _
"URL;http://www.bourse.fr/bourse/devises/liste_devise.php3" _
dans la feuille1 du classeur actif.

Sub ImportDevises()
Dim Rng As Range
Dim URL As String
Dim Name As String
URL = "URL;http://www.bourse.fr/bourse/devises/liste_devise.php3"
Name = "Devises"
Range("A1:D30").Clear
Set Rng = ActiveWorkbook.Worksheets("Feuil1").Range("A1")
CreateWebQuery URL, Name, Rng, 1
End Sub

Sub CreateWebQuery(strUL As String, strName As String, rngDesti As Range, intTableNum As Integer)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.bourse.fr/bourse/devises/liste_devise.php3", Destination:=Range("A1"))
.Name = strName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.refreshPeriod = 30
.WebSelectionType = xlSpecifiedTables
.NewTables = intTableNum
.WebFormatting = xlWebFormattingAll
.WebPerformattedTextColumns = True
.WebConsecutiveDeletedAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

jpleroisse

Récupérer sous Excel le contenu de la page HTML en cours de l'explorer

1 réponse

Discussions similaires