Discussion :

[YayaN]

Bonjour à toutes et à tous,

Je viens de faire une macro me permettant de récupérer des données d'internet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub D6006528()
'
Sheets("6006528").Cells.Clear
'
    With Sheets("6006528").QueryTables.Add(Connection:= _
        "URL;http://webshop-grasdorf.de/Shop/Search.aspx?SearchTerms=6006528" _
        , Destination:=Sheets("6006528").Range("$A$1"))
        .Name = ""Search.aspx?SearchTerms=6006528_1""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
End Sub
    End With

Je préfère laisser le format de la page en "xlWebFormattingNone" car je préfère ce visuel.

Je souhaite récupérer les données de plusieurs pages internet pour pouvoir plus aisément les analyser sur une seule page "Overview".

Pour cela j'ai ce bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    compteur = 4
    For ligne = 1 To 499
    If Worksheets("6006528").Cells(ligne, 1) = "Produkt(e)Keine Sortierung" Then
            compteur = compteur + 1
            Sheets("Overview").Cells(compteur, 1) = Sheets("6006528").Cells(ligne + 2, 1)
    If compteur = "" Then Exit For
    End If
    Next

1 J'ai un message d'erreur au niveau de la partie marquée en rouge. Que dois je faire?
La même manip fonctionne dans un autre fichier excel. Mais avec un autre type de données

2. Comment puis je "régler" le compteur pour qu'il s'arrête à la prochaine ligne vide? Je ne sais pas si "" fonctionne

MERCI BEAUCOUP!