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.