1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub Recup_NBA_race()
Dim robot As New WebDriver
Dim elem, maTable, colonnes, colonne, lignes, ligne As Object
Dim x, y As Integer
Dim i As Byte
Dim lien As String, equipe1 As String, equipe2 As String
Dim Col As Byte
Dim lien1 As String
Sheets("race").Cells.Clear
' Application.ScreenUpdating = False
lien = Split(Sheets("HOME").Range("d9"), "https://fr.global.nba.com")(1)
lien1 = Split(lien, "/boxscore/")(1)
lien = "/boxscore/" & "playbyplay/" & lien1
robot.Timeouts.ImplicitWait = 8000 ' temps max 8 secondes
robot.Start "chrome", "https://fr.global.nba.com"
robot.Get lien
'
MsgBox "Connexion Ok ?" |