Discussion :

[Fredsto]

Bonjour à vous.

Débutant sur le forum, ceci est mon premier post, j'espère ne pas faire d'impertinence. N'hésitez pas à me le dire.
Je viens vous soumettre ma problématique afin de voir si une solution peut être apportée .

En effet je develope actuellement une application excel avec vba afin d'accéder au même logiciel et je me retrouve bloqué au moment d'accéder à un lien.

J'ai utilisé plusieurs méthodes telles que le positionnement de souris... mais afin de gagner en robustesse j'aimerai donc automatiser cette application au maximum.

Voici donc la partie du code html de la page :

Code Source de la page internet

Code html :

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

1
2
3
<div id="ratMenu1" style="z-index: 1000; position: absolute; width: 580px; height: 100px; visibility: hidden; top: 25px; left: 0px;" onmouseover="clearTimeout(theID);onLayer=true;SetMenuVisible('ratMenu1','on')" onmouseout="clearTimeout(theID);onLayer=false;TimedClose('ratMenu1','off','.2')">
 
<a class="headermenulink" id="ongletTSTGare" style="background-color: #ffcc33; cursor: hand;" onmouseover="onLayer=true;setOngletBGColor('ongletTSTGare','#ffcc33');SetMenuPos('ratMenu1','ongletTSTGare');SetMenuVisible('ratMenu1','on')" onmouseout="onLayer=false;TimedClose('ratMenu1','off','.1')" onclick="loadTST("Gare")">

Et voici donc le code vba permettant d'entrer dans la page.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Internet2()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.navigate ("http://base-assistance.sncf.fr/commun/html/prive/commun/cadrePrincipal.html?time=1423628332281")
ie.Visible = True: ie.Top = 0: ie.Left = 0
ie.Width = GetSystemMetrics32(0)
ie.Height = GetSystemMetrics32(1)
 
Do While ie.readyState <> 4
Loop
 
End Sub

En attendant vos retours.
Merci à vous.

[patricktoulon]

re
voici ton point de départ

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
Sub Internet2()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .navigate ("http://base-assistance.sncf.fr/commun/html/prive/commun/cadrePrincipal.html?time=1423628332281")
        .Visible = True: .Top = 0: .Left = 0
        'ie.Width = GetSystemMetrics32(0)
        'ie.Height = GetSystemMetrics32(1)
        Do: DoEvents: Loop While .readyState <> 4 Or .busy: Loop
    'on pointe le bouton par son ID et on click
    .document.getelementbyid("ongletTSTGare").Click
    Do: DoEvents: Loop While .readyState <> 4 Or .busy: Loop
' le code pour faire ce que veux ici
.Quit
End With
End Sub

[Fredsto]

Bonjour à toi,

Je tiens d'abord à te remercier pour le temps que tu passes sur mon problème.

J'ai donc inséré ton code dans mon programme et il me ressort une erreur.

" Erreur d’exécution 91 : Variable objet ou variable de bloc with non définie."

J'ai donc enlevé le bloc with afin d'éliminer les erreurs et elle ressort toujours, j'en déduit donc que l'erreur dépend de la variable non? qu'en penses-tu?

voici la version 2 du code :

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
Sub Internet2()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
 
        ie.navigate ("http://base-assistance.sncf.fr/commun/html/prive/commun/cadrePrincipal.html?time=1423628332281")
        ie.Visible = True: .Top = 0: .Left = 0
        'ie.Width = GetSystemMetrics32(0)
        'ie.Height = GetSystemMetrics32(1)
        Do: DoEvents: Loop While ie.readyState <> 4 Or ie.busy: Loop
    'on pointe le bouton par son ID et on click
    ie.document.getelementbyid("ongletTSTGare").Click
    Do: DoEvents: Loop While ie.readyState <> 4 Or ie.busy: Loop
' le code pour faire ce que veux ici
.Quit
 
End Sub

Merci d'avance

[patricktoulon]

non l'erreur venait de moi un loop de trop et non il faut pas enlever les with /endwith sinon ca ne peut pas fonctionner

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
Sub Internet2()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .navigate "http://base-assistance.sncf.fr/commun/html/prive/commun/cadrePrincipal.html?time=1423628332281"
        .Visible = True: .Top = 0: .Left = 0
        'ie.Width = GetSystemMetrics32(0)
        'ie.Height = GetSystemMetrics32(1)
        Do: DoEvents: Loop While .readyState <> 4 Or .busy
    'on pointe le bouton par son ID et on click
    .document.getelementbyid("ongletTSTGare").Click
    Do: DoEvents: Loop While .readyState <> 4 Or .busy
' le code pour faire ce que veux ici
.Quit
End With
End Sub

je te rappelle que je ne peux pas tester le lien étant invalide chez moi

si l'erreur se déclenche sur la ligne 11 et que tu vois bien ta page affiche dans IE cela veut dire qu'il faut rallonger les attentes par un wait
si tu vois que dans IE ca a bogué c'est bien le lien qui est invalide

[Fredsto]

Bonjour à toi,

J'ai donc testé ton code sans les loops ce matin et en effet les loops ne font plus bogué le programme. Mais l'erreur à la ligne 11 est bien présente.
En effet, la page internet s'ouvre bien, mais aucun clic n'est réalisé malgré la mise en place de : Application.Wait (Now + TimeValue("0:00:10"))
L'erreur d'exécution 91 : Variable Objet ou variable de bloc with non définie est toujours active...

Je ne sait que faire....

[patricktoulon]

bonjour
et oui mais n'ayant pas accès a cette page je ne peux rien faire

[Fredsto]

Bonjour,

N'ayant pas pu résoudre mon problème, j'ai décidé de le trouver une solution alternative.
Peux tu m'aider à nouveau?

En effet l'application Internet Explorer étant ouverte par défaut sur nos pc j'aurai simplement besoin de la mettre au premier plan avant de réaliser mon copier coller.

Est-ce possible de mettre Internet explorer au 1er plan ou pas?

J'ai trouvé sur internet la procédure mais pour word. Je n'arrive pas à la transposer pour Internet Explorer

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
	 Dim oWORD As Word.Application
    'Document Word
'    Dim wdDoc As Object
    Dim wdDoc As Word.Document
    'Sélection dans un document Word
    Dim wdSel As Object
    Dim signet As Object
    'Chemin du modèle de document
    Dim IntSigNum As Integer
 
    'vérifier la présence de Word
        '
        '   Création d'une application Word
        '
        Set oWORD = GetObject(, "Word.Application")
        If Err.Number = 429 Then
        '   L' erreur 429(ActiveX component can't create object)
        '   est retournée si aucune application Word existe.
        '
            Err.Clear
            Set oWORD = CreateObject("Word.application")
        End If
 
AppActivate "Word"

Dois-je également activer des références spéciales?

Cordialement.