Macro vba excel

[Résolu]
Signaler
Messages postés
58
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
10 février 2016
-
Messages postés
58
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
10 février 2016
-
BONJOUR,

VOILA DANS LA MACRO QUI SUIT JE VEUX AJOUTER UNE BOUCLE FOR J=1 TO 20 , LA VARIABLE J EST DANS : fr.com/concours/voirJ.shtml", Destination:=Range("AJ"))

ET .Name = "voirJ.shtml"


VOICI LA MACRO:

Sub toto()
'

' ICI J=4

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.turf-fr.com/concours/voir4.shtml", Destination:=Range("A4"))
.Name = "voir4.shtml"
.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 = _
"""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"",""table1"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 1
ActiveWindow.LargeScroll Down:=2
End Sub

2 réponses

Messages postés
58
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
10 février 2016

je n'arrrive pas à placer la boucle
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
Salut,

C'est quoi la question ?