Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub test()
Dim hwnd As Long
ShellExecute hwnd, "open", "http://www.google.fr", "", "", 1
End Sub
[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE 1[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Const[/COLOR] UrlDepart [COLOR=NAVY]As String[/COLOR] = "http://www.france-darts.com/gestion/htm/Ope.htm"
[COLOR=NAVY]Private Sub[/COLOR] btnGo_Click()
WebBrowser1.Navigate UrlDepart
[COLOR=NAVY]End Sub[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] btnRAZ_Click()
Columns("A:B").Interior.ColorIndex = xlNone
[COLOR=NAVY]End Sub[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] WebBrowser1_DocumentComplete([COLOR=NAVY]ByVal[/COLOR] pDisp [COLOR=NAVY]As Object[/COLOR], URL [COLOR=NAVY]As Variant[/COLOR])
[COLOR=NAVY]Static[/COLOR] L [COLOR=NAVY]As Long
If[/COLOR] URL = UrlDepart [COLOR=NAVY]Then
If[/COLOR] Cells(1, 1).Interior.ColorIndex = xlNone [COLOR=NAVY]Then[/COLOR] L = 0
L = L + 1
[COLOR=NAVY]With[/COLOR] 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
[COLOR=NAVY]End With
End If
End Sub[/COLOR]
Les données sont bonnes mais me suis trompé de sens
Normalement, tu devrais pouvoir en gagner davantage......Si c'est pas possible ta solution me fait déjà gagner pas mal temps!!!...
[COLOR=NAVY]Private Sub[/COLOR] WebBrowser1_DocumentComplete([COLOR=NAVY]ByVal[/COLOR] pDisp [COLOR=NAVY]As Object[/COLOR], URL [COLOR=NAVY]As Variant[/COLOR])
[COLOR=NAVY]Dim[/COLOR] TabTemp [COLOR=NAVY]As Variant
Dim[/COLOR] L2 [COLOR=NAVY]As Long[/COLOR], Lign [COLOR=NAVY]As Long
Dim[/COLOR] Col [COLOR=NAVY]As Byte
Static[/COLOR] L [COLOR=NAVY]As Long
If[/COLOR] URL = UrlDepart [COLOR=NAVY]Then
If[/COLOR] Cells(1, 1).Interior.ColorIndex = xlNone [COLOR=NAVY]Then[/COLOR] L = 0
L = L + 1
[COLOR=NAVY]With[/COLOR] 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
[COLOR=NAVY]End With
ElseIf[/COLOR] URL = "http://www.france-darts.com/gestion/htm/ope.asp" [COLOR=NAVY]Then[/COLOR]
WebBrowser1.Document.all("B5").Click
[COLOR=NAVY]ElseIf[/COLOR] URL = "http://www.france-darts.com/gestion/htm/moyequ.ASP" [COLOR=NAVY]Then[/COLOR]
Application.ScreenUpdating = [COLOR=NAVY]False[/COLOR]
TabTemp = Split(WebBrowser1.Document.Body.InnerText(), vbCrLf)
[COLOR=NAVY]With[/COLOR] Sheets("Feuil2")
.Rows("2:65536").Delete
Lign = 2
[COLOR=NAVY]For[/COLOR] L2 = 3 [COLOR=NAVY]To UBound[/COLOR](TabTemp)
Col = Col + 1
[COLOR=NAVY]If[/COLOR] Col > 7 [COLOR=NAVY]Then[/COLOR]
Col = 1
Lign = Lign + 1
[COLOR=NAVY]End If[/COLOR]
.Cells(Lign, Col).Value = TabTemp(L2)
[COLOR=NAVY]Next[/COLOR] L2
[COLOR=NAVY]End With[/COLOR]
Application.ScreenUpdating = [COLOR=NAVY]True[/COLOR]
MsgBox "Ok, Feuil2 mise à jour !"
[COLOR=NAVY]End If
End Sub[/COLOR]
[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE 1[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Const[/COLOR] UrlDepart [COLOR=NAVY]As String[/COLOR] = "http://www.france-darts.com/gestion/htm/Ope.htm"
[COLOR=NAVY]Private Sub[/COLOR] btnGo_Click()
WebBrowser1.Navigate UrlDepart
[COLOR=NAVY]End Sub[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] btnRAZ_Click()
Columns("A:B").Interior.ColorIndex = xlNone
Sheets("Feuil2").Rows("2:65536").Delete
[COLOR=NAVY]End Sub[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] WebBrowser1_DocumentComplete([COLOR=NAVY]ByVal[/COLOR] pDisp [COLOR=NAVY]As Object[/COLOR], URL [COLOR=NAVY]As Variant[/COLOR])
[COLOR=NAVY]Dim[/COLOR] TabTemp [COLOR=NAVY]As Variant
Dim[/COLOR] L2 [COLOR=NAVY]As Long[/COLOR], Lign [COLOR=NAVY]As Long
Dim[/COLOR] Col [COLOR=NAVY]As Byte
Static[/COLOR] L [COLOR=NAVY]As Long
If[/COLOR] URL = UrlDepart [COLOR=NAVY]Then
If[/COLOR] Cells(1, 1).Interior.ColorIndex = xlNone [COLOR=NAVY]Then[/COLOR] L = 0
L = L + 1
[COLOR=NAVY]With[/COLOR] 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
[COLOR=NAVY]End With
ElseIf[/COLOR] URL = "http://www.france-darts.com/gestion/htm/ope.asp" [COLOR=NAVY]Then[/COLOR]
WebBrowser1.Document.all("B5").Click
[COLOR=NAVY]ElseIf[/COLOR] URL = "http://www.france-darts.com/gestion/htm/moyequ.ASP" [COLOR=NAVY]Then[/COLOR]
Application.ScreenUpdating = [COLOR=NAVY]False[/COLOR]
TabTemp = Split(WebBrowser1.Document.Body.InnerText(), vbCrLf)
[COLOR=NAVY]With[/COLOR] Sheets("Feuil2")
Lign = .Cells(Application.Rows.Count, 1).[COLOR=NAVY]End[/COLOR](xlUp).Row + 1
[COLOR=NAVY]For[/COLOR] L2 = 3 [COLOR=NAVY]To UBound[/COLOR](TabTemp)
Col = Col + 1
[COLOR=NAVY]If[/COLOR] Col > 7 [COLOR=NAVY]Then[/COLOR]
Col = 1
Lign = Lign + 1
[COLOR=NAVY]End If[/COLOR]
.Cells(Lign, Col).Value = TabTemp(L2)
[COLOR=NAVY]Next[/COLOR] L2
[COLOR=NAVY]End With[/COLOR]
Application.ScreenUpdating = [COLOR=NAVY]True
If[/COLOR] Cells(L + 1, 1) <> "" [COLOR=NAVY]Then[/COLOR] btnGo_Click [COLOR=NAVY]Else[/COLOR] MsgBox ("Traitement terminé !")
[COLOR=NAVY]End If
End Sub[/COLOR]