comment créé une boucle dans une macro

[NICOALBERT]

Bonjour le Forum ,

Je viens de créé une macro pour récupérer des données depuis internent , mais je ne sait pas comment remplacer l'adresse par une boucle qui irait me chercher l'adresse dans la feuille "Adresse" à la suite les une des autres , Voici la macro :

Sub importer1()

Sheets("Temp").Select
Columns("D:AQ").Select
Range("D10").Activate
Selection.ClearContents
Range("A1").Select

With Sheets("Temp").QueryTables.Add(Connection:="URL;http://stadeproligne.sportsdirectin...ata/NBA/results/2016-2017/boxscore944690.html" _
, Destination:=Sheets("Temp").Range("$D$1"))
.Name = "Ce lien n'existe plus"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.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

(Je vous joint un fichier en exemple)

Cdlt Nicoalbert

 

[thebenoit59]

Bonjour Nicoalbert.

Il n'est pas utile de créer deux sujets pour la même demande, si tu n'as pas eu de réponse auparavant, c'est qu'il n'est pas bien vu d'importer des valeurs d'internet ici.