Problème avec une macro sous excel

Version imprimable

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:

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

10/05/2016, 21h17
Malick

:salut:

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

solution non concluente

Code:

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.

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

Code:

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.

12/05/2016, 10h44
Enrico78

Pas de changement

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