Boucle sur QueryTableAdd
Bonjour,
Ayant commencer il y'a peu à travailler sur des macro excel je me heurte à un petit problème, les boucles.
Fonctionnement du fichier :
Ma feuille n°1 (Shipment) se présente sous cette forme, "Shipment" qui correspond à des valeur que je vais rentrer à la main, et "Status" qui doit être récupérer via une récupération de données sur un site web (ex : http://www.monsite.com/valeur1
)
- Shipment_______Status
Valeur1___________
Valeur2___________PPQA
Valeur3___________
Valeur4___________PPQA
ValeurX___________
Les données récupérer sur cette page web se présente sous la forme de 2 ligne sur ma feuile n°2 (DATA)
Valeur1 données données données données données données données données données données données
données données données données données données données données données données PPQA données
Je souhaiterais donc créer une boucle pour récupérer les données de chaque valeur sur ma feuille "DATA" sous la forme :
Valeur1 données données données données données données données données données données données
données données données données données données données données données données PPQA données
Valeur2 données données données données données données données données données données données
données données données données données données données données données données PPQA données
Valeur3 données données données données données données données données données données données
données données données données données données données données données données données données
ValeurX données données données données données données données données données données données
données données données données données données données données données données PPQA données
Et afficher ensuite "PPQA" dans ma colonne Status de la première feuille pour toutes les "ValeurX" qui contiennent "PPQA" dans leur données.
En sachant egalement que le nombre de "ValeurX" est variable.
Je mets en pièce jointe une ébauche de fichier, car je ne peut pas y acceder depuis mon domicile
Cordialement,
Jérémy.
bonjour,
une solution via une macro vba
Sub test()
Set ws = Sheets("shipment")
With Sheets("Data")
dl = .Cells(Rows.Count, "K").End(xlUp).Row
For i = 1 To dl
If .Cells(i, "K") = "PPQA" Then
Set re = ws.Columns("A:A").Find(.Cells(i - 1, 1), lookat:=xlWhole)
If Not re Is Nothing Then
re.Offset(0, 1) = "PPQA"
End If
End If
Next i
End With
End Sub
Merci pour cette macro qui vas me permette effectivement d'extraire les valeur PPQA sur ma sheet "data" mais ce qui me bloque le plus en fait c'est la creation de la boucle pour la recuperation des données :
Sub RecupPPQA()
'
' RecupPPQA Macro
'
Application.ScreenUpdating = False
Sheets("Data").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;Http://www.monsite.com/valeur1" _
, Destination:=Range("Data!$A$1"))
.Name = "DonnéesExternes_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.ScreenUpdating = True
End Sub