Récupérer sous Excel le contenu de la page HTML en cours de l'explorer
joph
Messages postés1Date d'inscriptionmardi 30 août 2005StatutMembreDernière intervention30 août 2005
-
30 août 2005 à 23:25
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 2006
-
3 sept. 2005 à 15:56
bonjour
je voudrais récupé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 à partir d'une macro je veux choper le contenu de la page courante directement.et mettre à jour mon fichier excel.
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