1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
| Sub copie_internet()
' déf de inconnu
Dim Station As Variant
Dim début As Variant
Dim fin As Variant
Dim année_début As Variant
Dim mois_début As Variant
Dim jour_début As Variant
Station météo = Application.InputBox("Indiquer la référence de la station météo")
début = Application.InputBox("Indiquer la date de début de l'étude. ATTENTION sous format MM/JJ/AAAA")
fin = Application.InputBox("Indiquer la date de fin de l'étude. ATTENTION sous format MM/JJ/AAAA")
Sheets("Calcul").Select
Range("AA2").Select
ActiveCell.FormulaR1C1 = (début)
Range("AB2").Select
ActiveCell.FormulaR1C1 = (fin)
Range("AD2").Select
ActiveCell.FormulaR1C1 = (Airport)
année_début = Range("AA3")
mois_début = Range("AA4")
jour_début = Range("AA5")
nbre_jour = Range("AC2")
'copie donnée page web sur excel
Sheets("Feuil1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.monsite.com/" & (Station) & "/" & (année_début) & "/" & (mois_début) & "/" & (jour_début) & "/DailyHistory.html?format=1#bas", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Range("A1").Select
ActiveCell.Offset(0, 0).Range("A2:A500").Select
Selection.Copy
Sheets("données").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Dim x As Variant
For x = (jour_début) + 1 To nbre_jour Step 1
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.monsite.com/" & (Station) & "/" & (année_début) & "/" & (mois_début) & "/" & (x) & "/DailyHistory.html?format=1#bas", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Range("A1").Select
ActiveCell.Offset(0, 0).Range("A2:A500").Select
Selection.Copy
Sheets("données").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(-1, 0).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Next x
End Sub |
Partager