Discussion :

[Enrico78]

Bonjour, j'ai un problème avec une macro qui quand je la lance, elle doit récupérer des données sur une page Web, mais voilà elle ne que le navigateur et ne fait rien d'autre.

Voici le code de la macro :

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
31
32
33
34
35
36
37
38
39
40
41
Sub coursereunion()
'
' coursereunion Macro
'
Mafeuill = "coursereunion"
dossier = "testA.xls"
Dim IE As InternetExplorer
 
   'Initialisation des variables
   Set IE = CreateObject("InternetExplorer.Application")
 
   'Chargement d'une page Web Google
   IE.Navigate "http://www.geny.com/reunions-courses-pmu/_d2015-04-27"
   'Affichage de la fenêtre IE
   IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
   Set IEDoc = IE.document
 
    nbTable = IEDoc.getElementsByTagName("a").Length
 
    Dim n As Integer
    n = 1
 
    For i = 0 To nbTable - 1
 
   Set Textul = IEDoc.getElementsByTagName("a").Item(i)
   lienA = Textul.innerText
   lienAdre = Textul
 
   If lienA = "partants/stats/prono" Then
 
    Workbooks(dossier).Sheets(Mafeuill).Cells(n, 1).Value = lienAdre
 
    n = n + 1
    End If
 
    Next i
'
End Sub

[Malick]

Ce tutoriel pourrait vous être utile :

Interaction avec Internet Explorer via VBA Excel

Vous pouvez également vous inspirer des réponses apportées dans cette discussion.

Cordialement

[Enrico78]

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub coursereunion()
'
' coursereunion Macro
'
Mafeuill = "coursereunion"
dossier = "testA.xls"
Dim IE As InternetExplorer
 
'Initialisation des variables
Set IE = CreateObject("InternetExplorer.Application")
 
'Chargement d'une page Web Google
IE.Navigate "http://www.geny.com/reunions-courses-pmu/_d2015-04-27"
'Affichage de la fenêtre IE
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set IEDoc = IE.document
 
nbTable = IEDoc.getElementsByTagName("a").Length
 
Dim n As Integer
n = 1
 
 
For i = 0 To nbTable - 1
 
 
Set Textul = IEDoc.getElementsByTagName("a").Item(i)
lienA = Textul.innerText
lienAdre = Textul
 
If lienA = "partants/stats/prono" Then
 
 
 
Workbooks(dossier).Sheets(Mafeuill).Cells(n, 1).Value = lienAdre
 
n = n + 1
End If
 
 
Next i
'
End Sub

Bonjour tout le monde,

magret le tutoriel le fichier avec cette macro ne marche qu'avec la version internet explorer version 8, mais des que l'on passe à une autre version, la page du site s'ouvre mais rien ne se passe.
Le fichier doit récupéré des donnée de course de chevaux.
et pour vous dire que c'est assez complexe, car cette macro et fichier on été enregistrer dans la version d'excel 2000, système d'exploitation "Windows XP pro" et Internet Explorer version 8.
j'ai virtualisé trois OS (Windows XP pro) avec chacun la version d'Internet Explorer 8 et chacun avec une version différente d'Excel (Excel 2000, Excel 2003 et Excel 2007) et le fichier avec la macro ne marche pas (ne vas pas jusqu'au bout sans dire qu'il y a une erreur).
Mais il fonction avec Windows 7, Internet Explorer 8 et Excel 2013, mais des que je suis passer à Internet explorer 11, fini sa ne marche plus.

Aidé moi je suis perdu.

[EddiGordo]

Crée un nouveau module et copie/colle ce qui suit à l'intérieur :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Option Explicit
 
Public Enum READYSTATE
    READYSTATE_UNINITIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum
 
Public Sub coursereunion()
 
    Dim IE As Object
    Dim IEDoc As Object
    Dim nbTable As Long
    Dim i As Long
    Dim Textul As Object
    Dim lienA As String
    Dim n As Integer
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate "http://www.geny.com/reunions-courses-pmu/_d2015-04-27"
    IE.Visible = True
 
    Do Until IE.READYSTATE = READYSTATE_COMPLETE
        DoEvents
    Loop
 
    Set IEDoc = IE.document
    nbTable = IEDoc.getElementsByTagName("a").Length
 
    n = 1
    For i = 0 To nbTable - 1
        Set Textul = IEDoc.getElementsByTagName("a").Item(i)
        lienA = Textul.innerText
        If Trim(lienA) = "partants/stats/prono" Then
            Workbooks(1).Sheets(1).Cells(n, 1).Value = Textul
            n = n + 1
        End If
    Next i
 
    IE.Quit
    Set IEDoc = Nothing
    Set IE = Nothing
End Sub

Ca devrait fonctionner mieux.

[Enrico78]

Sa ne marche toujours pas quelque soit la version d'Excel (2000, 2003, 2007 et 2013), malgré le nouveau code.