bonsoir a tous et a toutes!
j'ai quelque chose a vous demander mais qui n'est peut étre pas simple?
donc voila j'ai fait une requéte web qui importe des pronos de canal turf
dans mon classeur en fesant donées et actualisation jusque la pas de soucis
seullement je voudrais actualisé ces données pour le lendemain puisque canal
turf donne les pronos du jour et du lendemain seullement je sais pas comment
faire pour importé les données du lendemain par rapport a la date j'ai tenter
de le faire avec une macros de ce styl la:
Option Explicit
Sub Import()
Dim LaDate As String
Application.ScreenUpdating = False
LaDate = Sheets("jeuxr1").Range("b11")
If Len(LaDate) < 8 Then MsgBox "Pas assez de caractères": Exit Sub
Sheets("reunion1").Select
Range("A1").Select
With Selection.QueryTable
.Connection = "URL;http://www.turf-fr.com/partants/" & LaDate & "1" & ".shtml"
.Refresh BackgroundQuery:=True
End With
Sheets("jeuxr1").Select
Range("a1").Select
effacerjeux1
End Sub
qui me sert pour une autre importation mais ça fonctionne pas
donc si vous pouvez y jeter un coup d'oeil
je vous en remerci beaucoup!!!!
ps: je joint un fichier ou ce trouve la requéte web
j'ai quelque chose a vous demander mais qui n'est peut étre pas simple?
donc voila j'ai fait une requéte web qui importe des pronos de canal turf
dans mon classeur en fesant donées et actualisation jusque la pas de soucis
seullement je voudrais actualisé ces données pour le lendemain puisque canal
turf donne les pronos du jour et du lendemain seullement je sais pas comment
faire pour importé les données du lendemain par rapport a la date j'ai tenter
de le faire avec une macros de ce styl la:
Option Explicit
Sub Import()
Dim LaDate As String
Application.ScreenUpdating = False
LaDate = Sheets("jeuxr1").Range("b11")
If Len(LaDate) < 8 Then MsgBox "Pas assez de caractères": Exit Sub
Sheets("reunion1").Select
Range("A1").Select
With Selection.QueryTable
.Connection = "URL;http://www.turf-fr.com/partants/" & LaDate & "1" & ".shtml"
.Refresh BackgroundQuery:=True
End With
Sheets("jeuxr1").Select
Range("a1").Select
effacerjeux1
End Sub
qui me sert pour une autre importation mais ça fonctionne pas
donc si vous pouvez y jeter un coup d'oeil
je vous en remerci beaucoup!!!!
ps: je joint un fichier ou ce trouve la requéte web