Menu

Itération suivante si condition non remplie ds boucle importweb [Résolu]

Leghe - 15 sept. 2017 à 11:34 - Dernière réponse :  Leghe
- 15 sept. 2017 à 18:21
Bonjour,

Débutant en VBA, je me suis inspiré de divers bouts de codes pour réaliser celui-ci.
Mais il y a un bug que je ne m'explique pas.

Le but est de remplir la colonne PRIX en cherchant sur un site web l'ISBN qui est la "clé".
Cela fonctionne tant qu'il y a un résultat.
La ligne 10, pour l'ISBN 9789018039844 qui n'est pas connu du site interrogé, ne renvoie rien (logique), mais la ligne 13, pour l'ISBN 9788498104875 qui est connu du site interrogé ne renvoie rien non plus.
J'ai l'impression que la macro "plante" à la ligne 10
Merci pour vos retours !!
Le fichier xls : https://catup.pw/2xCSFQ7
Le code :
Sub IMPORTNOSTROMO()
Dim ISBN As String
compteur = 2
For lignetest = 1 To 30
ISBN = Sheets("EXPORT").Cells(compteur, 5)
Sheets("TEMP").Cells.Clear
    Application.CutCopyMode = False
    With Sheets("TEMP").QueryTables.Add(Connection:="URL;http://nostromoweb.fr/fr/recherche/?keywords=" & ISBN & "&type=global" _
        , Destination:=Sheets("TEMP").Range("$A$1"))
        .Name = ISBN
        .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
For ligne = 1 To 1000
    If Sheets("TEMP").Cells(ligne, 1) Like "*€*" Then
            Sheets("EXPORT").Cells(compteur, 9) = Sheets("TEMP").Cells(ligne, 1).Value
            compteur = compteur + 1
        Else
        End If
    Next
Next
End Sub

Afficher la suite 

Votre réponse

4 réponses

f894009 13053 Messages postés dimanche 25 novembre 2007Date d'inscription 25 mai 2018 Dernière intervention - 15 sept. 2017 à 12:05
0
Merci
Bonjour,

J'ai l'impression que la macro "plante" à la ligne 10
Non, mettant ceci:
http://nostromoweb.fr/fr/recherche/?keywords=9789018039844&type=global
dans la saisie url de l'explorer, y a zero article......
Commenter la réponse de f894009
0
Merci
Oui, je sais, mais dans ce cas, il devrait passer à la ligne suivante non ?
Si non, comment faire ??
Commenter la réponse de Leghe
f894009 13053 Messages postés dimanche 25 novembre 2007Date d'inscription 25 mai 2018 Dernière intervention - 15 sept. 2017 à 13:08
0
Merci
Re,

Votre fichier un peu modifier pour plus de rapidite et deroulement sur toutes les lignes export

https://mon-partage.fr/f/ZwI1mtr4/
A+
Commenter la réponse de f894009
0
Merci
Hooo, cela fonctionne à merveille maintenant, un grand merci !
Commenter la réponse de Leghe