Bonjour,

La macro que j'essaie de construire tourne en mode pas à pas (F8), mais si je l'exécute, elle plante !
En mode pas à pas, de temps en temps, le mode débogger apparaît, mais si on revient une ligne en arrière et que l'on reprend la pas à pas, le code fonctionne.

Le code est destiné à aspirer des informations sur un site (public) afin de constituer une base données de travail. La voilà :

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
30
Sub liensproduits()
 
Sheets("Region").Select
myRow = 100
mycol = 2
Set ie = CreateObject("InternetExplorer.Application")
Dim inc As Integer
 
With ie
For region = 1 To 48
       .Visible = False
       .navigate Cells(region + 1, 7) 
       Do Until .readyState = 4: DoEvents: Loop 
 
       Set doc = ie.document
       Dim tbl As MSHTML.HTMLTable
 
        'Loop Selected tables and find all links
    For x = 1 To Cells(region + 1, 8)
            Set tbl = doc.getElementsByTagName("tr").Item(x)
            Cells(100 + x + inc, 10) = tbl.innerHTML
    Next x            
Next region
End With
 
ie.Quit
Set ie = Nothing
Set tbl = Nothing
Set doc = Nothing
End Sub

Merci pour votre aide

Arnaud