Sub test()
MsgBox SunriseAndSunset
End Sub
Public Function SunriseAndSunset()
Dim url$, code$, tables As Object, Res$
url = "https://www.ephemeride.com/ephemeride/ephemeride/11/fetes-prenoms-soleil-citation-lune-proverbe-dictons-du-jour.html"
Set req = CreateObject("microsoft.xmlhttp")
With req
.Open "get", url, False
.send
code = .responsetext
With CreateObject("htmlfile")
.body.innerhtml = code
Set tables = .getelementsbytagname("TABLE")
For i = 0 To tables.Length - 1
'MsgBox tables(i).innertext
If tables(i).innertext Like "*Le soleil se lève à*" Then Res = "horaire valable pour Paris " & vbCrLf & "le soleil se lève à " & Split(Split(tables(i).innertext, "Le soleil se lève à")(1), vbCrLf)(0): Exit For
Next
SunriseAndSunset = Res
End With
End With
End Function
Private Sub Workbook_Open()
SunriseAndSunset
End Sub
Sub SunriseAndSunset()
Dim url$, code$, TRS
url = "http://calendriersolaire.com/fr/la-rochelle"
With CreateObject("microsoft.xmlhttp"): .Open "POST", url, False: .send: code = .responsetext: End With
With CreateObject("htmlfile")
.body.innerhtml = code
Set TRS = .getelementsbytagname("TABLE")(0).getelementsbytagname("TR")
If Not TRS Is Nothing Then
With TRS(Day(Date) + 1)
Sheets(1).[A1] = CDate(.ChildNodes(2).innertext)
Sheets(1).[B1] = CDate(.ChildNodes(3).innertext)
End With
End If
End With
End Sub
Sub SunriseAndSunset()
Dim url$, code$, Res$, TRS
url = "https://www.google.fr/search?ei=8bwRXsD1Ns64lwT_2YCwCg&q=lever=et+coucher+du+soleil+ a l+ile+de+re" '&oq=lever+et+coucher+du+soleil+%C3%A0+l%27+ile+de+re&gs_l=psy-ab.12...46459.61217..63650...0.2..0.382.2146.0j15j0j1......0....1..gws-wiz.......0i71j0i13i30j0i8i13i30j0i8i30.Q6nrMIWq4Kw&ved=0ahUKEwiAssjKouzmAhVO3IUKHf8sAKYQ4dUDCAo#spf=1578221462256"
With CreateObject("microsoft.xmlhttp"): .Open "get", url, False: .send: code = .responsetext: End With
With CreateObject("htmlfile")
.body.innerhtml = code
Sheets(1).[A1] = Split(Split(.body.innertext, "Résultats de recherche")(1), vbCrLf)(0)
Sheets(1).[B1] = Split(Split(.body.innertext, "(Île de Ré)" & vbCrLf)(1), vbCrLf)(0)
'Debug.Print .body.innertext
End With
End Sub
Sub SunriseAndSunset()
Dim url$, code$, Res$, TRS
url = "https://www.google.fr/search?source=hp&ei=7MURXvzmDq-_lwSH6oS4Cg&q=lever+et+coucher+du+soleil+La+Tranche+sur+Mer"
With CreateObject("microsoft.xmlhttp"): .Open "get", url, False: .send: code = .responsetext: End With
With CreateObject("htmlfile")
.body.innerhtml = code
Sheets(1).[A1] = Split(Split(.body.innertext, "Résultats de recherche")(1), vbCrLf)(0)
Sheets(1).[B1] = Split(Split(.body.innertext, "(La Tranche-sur-Mer)" & vbCrLf)(1), vbCrLf)(0)
Debug.Print .body.innertext
End With
End Sub