macro vba excelRésolu

Question

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

soleildz · Accepted Answer

je n'arrrive pas à placer la boucle

bigfish_le vrai · Answer

Salut,

C'est quoi la question ?

Macro vba excel

2 réponses

Votre réponse

Discussions similaires