Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba : import auto des données d'une page web

miguelangelo

XLDnaute Occasionnel
Re : vba : import auto des données d'une page web

cool

je me réponds et ca peut servir pour les autres.. j'ai trouvé ce fichier qui permet l'intégration de la page web sur un onglet.

il suffit de modifier l'url (et aussi pour ma part desactiver une ligne :
' .WebDisableRedirections = False

voili voilou...
 

Pièces jointes

  • RequeteWeb2.xls
    25 KB · Affichages: 413

miguelangelo

XLDnaute Occasionnel
Re : vba : import auto des données d'une page web

j'aimerai par contre savoir si c'est possible dans la macro que l'import se fasse à partir d'une ligne définie :


ici en l'occurence à partir de la ligne 57 !!

merci


Sub Req_web()

Cells.Delete
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.indices.insee.fr/?action=BS_RECHGUIDEE_VALIDATION&BS_IDBANK=8630", Destination:= _
Range("A1"))
.Name = "Indice INSEE du Coût de la Construction"
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…