Bonjour à tous,
Je reviens vers vous car je n'arrive pas à modifier un code.
Voila ce code:
C'est un code qui sert à automatiser de la récupération de données sur un site web après avoir validé l'accès à cette page par un mot de passe.
Si cela interesse certains voila le lien du premier fil:
https://www.excel-downloads.com/threads/excel-peut-il-ouvrir-une-page-internet.96074/
Et donc toujours dans un souci de récupération de données pour des statistiques j'ai voulu modifier ce code pour un autre site.
Cetains connaissent peut être il s'agit du site de jeu ogame.
Pour bien comprendre je vais vous expliquer.
Se rendre sur OGame.fr
Choisir l'univers "1"
le nom de jouer est "OGAMESPAM11"
le mot de passe est "OGAMEspam11"
"valider"
puis cliquer sur "statistiques" (lien a gauche) et vous etes sur la page ou il faut récupérer le classement de tous les joueurs!
Voila je voudrais avoir la même feuille pour la récupération du classement que celle fourni par MyDearFriend et j'ai besoin de votre aide car je n'arrive pas à modifier le code!
Merci d'avance pour votre aide! 😉
Le compte et le mail utilisés sont fictifs 😛
Je reviens vers vous car je n'arrive pas à modifier un code.
Voila ce code:
Code:
DANS LE MODULE DE CODE DE LA FEUILLE 1
Option Explicit
'myDearFriend! - www.mdf-xlpages.com
Const UrlDepart As String = "http://www.france-darts.com/gestion/htm/Ope.htm"
Private Sub btnGo_Click()
WebBrowser1.Navigate UrlDepart
End Sub
Private Sub btnRAZ_Click()
Columns("A:B").Interior.ColorIndex = xlNone
Sheets("Feuil2").Rows("2:65536").Delete
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim TabTemp As Variant
Dim L2 As Long, Lign As Long
Dim Col As Byte
Static L As Long
If URL = UrlDepart Then
If Cells(1, 1).Interior.ColorIndex = xlNone Then L = 0
L = L + 1
With WebBrowser1.Document
.all("joueur").Value = Cells(L, 1).Text
.all("equipe").Value = Cells(L, 2).Text
.all("valider").Click
Range(Cells(L, 1), Cells(L, 2)).Interior.ColorIndex = 6
End With
ElseIf URL = "http://www.france-darts.com/gestion/htm/ope.asp" Then
WebBrowser1.Document.all("B5").Click
ElseIf URL = "http://www.france-darts.com/gestion/htm/moyequ.ASP" Then
Application.ScreenUpdating = False
TabTemp = Split(WebBrowser1.Document.Body.InnerText(), vbCrLf)
With Sheets("Feuil2")
Lign = .Cells(Application.Rows.Count, 1).End(xlUp).Row + 1
For L2 = 3 To UBound(TabTemp)
Col = Col + 1
If Col > 7 Then
Col = 1
Lign = Lign + 1
End If
.Cells(Lign, Col).Value = TabTemp(L2)
Next L2
End With
Application.ScreenUpdating = True
If Cells(L + 1, 1) <> "" Then btnGo_Click Else MsgBox ("Traitement terminé !")
End IfC'est un code qui sert à automatiser de la récupération de données sur un site web après avoir validé l'accès à cette page par un mot de passe.
Si cela interesse certains voila le lien du premier fil:
https://www.excel-downloads.com/threads/excel-peut-il-ouvrir-une-page-internet.96074/
Et donc toujours dans un souci de récupération de données pour des statistiques j'ai voulu modifier ce code pour un autre site.
Cetains connaissent peut être il s'agit du site de jeu ogame.
Pour bien comprendre je vais vous expliquer.
Se rendre sur OGame.fr
Choisir l'univers "1"
le nom de jouer est "OGAMESPAM11"
le mot de passe est "OGAMEspam11"
"valider"
puis cliquer sur "statistiques" (lien a gauche) et vous etes sur la page ou il faut récupérer le classement de tous les joueurs!
Voila je voudrais avoir la même feuille pour la récupération du classement que celle fourni par MyDearFriend et j'ai besoin de votre aide car je n'arrive pas à modifier le code!
Merci d'avance pour votre aide! 😉
Le compte et le mail utilisés sont fictifs 😛
