Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (aide svp) requete web

(aide svp) requete web

1 réponse
Avatar
dom
Bonsoir,

J'ai une requete web a faire pour de nombreux liens. J'arrive à la faire
pour un lien web (http://www.essai.com/1.htm?id=ABAB) après l'autre . Mais
je bloque car je voudrais qu'excel me rapatrie les données pour chaque ID
(=identifiant) qui se trouvent dans une colonne A (presente ds la feuille
ID).

Donc dans la colonne A, j'ai pour l'instant 50 caractères différents :
Dans la cellule A2 j'ai : ABAB
Dans la cellule A3 j'ai : ABCC
etc...

J'ai essayé ceci mais çà bug à selection.copy ! ;-(

Sub prendre_ID()
For truc = 1 To 6
Sheets("ID").Select
Range("A2:A50").Selection.Copy
Next
End Sub


Voilà ce qui marche pour un seul lien (http://www.essai.com/1.htm?id=ABAB
mais pour qu'Excel assemble tout seul le reste des liens, je seche!) :

sub charge_données
Application.CutCopyMode = False
ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.essai.com/1.htm?id=ABAB" _
, Destination:=Range("A1"))
.Name = "ABAB"""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Merci d'avance pour votre aide. ;-)
Dom
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
dom
Bonsoir,
Je pense avoir trouver une solution (un peu bancale mais apparemment çà
marche) :
Je fais appel à la premiere cellule de ID tout le temps puis une fois
utilisée cette cellule, je supprime carément la ligne. ;-)

Dom

"dom" a écrit dans le message de news:
41b77444$0$21378$
Bonsoir,

J'ai une requete web a faire pour de nombreux liens. J'arrive à la faire
pour un lien web (http://www.essai.com/1.htm?id«AB) après l'autre . Mais
je bloque car je voudrais qu'excel me rapatrie les données pour chaque ID
(=identifiant) qui se trouvent dans une colonne A (presente ds la feuille
ID).

Donc dans la colonne A, j'ai pour l'instant 50 caractères différents :
Dans la cellule A2 j'ai : ABAB
Dans la cellule A3 j'ai : ABCC
etc...

J'ai essayé ceci mais çà bug à selection.copy ! ;-(

Sub prendre_ID()
For truc = 1 To 6
Sheets("ID").Select
Range("A2:A50").Selection.Copy
Next
End Sub


Voilà ce qui marche pour un seul lien (http://www.essai.com/1.htm?id«AB
mais pour qu'Excel assemble tout seul le reste des liens, je seche!) :

sub charge_données
Application.CutCopyMode = False
ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.essai.com/1.htm?id«AB" _
, Destination:=Range("A1"))
.Name = "ABAB"""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
End Sub

Merci d'avance pour votre aide. ;-)
Dom