Heure internet

Bonjour , est ce qu'on peut récupérer l'heure et la date exacte non pas de l'ordinateur ( au cas où quelqu’un la modifie manuellement ) mais d'internet ?

Merci.

Bonjour,

Absolument ... un exemple

je me suis dit que si c'était pour récupérer dans une appli plus vaste, il valait mieux le faire par fonction

Function quelleheure() As String

    quelleheure = ""
    DoEvents
    URL = "https://24timezones.com/fr_temps/paris_temps_local.php"
    On Error Resume Next

    With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", URL, False
    .Send
        If .Status = 200 Then
            quelleheure = Split(Split(.responseText, [deb_texte])(1), [fin_texte])(0)
        End If
    End With

End Function

Autant mettre les paramètres dans la fonction

Function quelleheure() As String

    quelleheure = ""
    DoEvents
    URL = "https://24timezones.com/fr_temps/paris_temps_local.php"
    On Error Resume Next

    With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", URL, False
    .Send
        If .Status = 200 Then
            quelleheure = Split(Split(.responseText, "<span id=""currentTime"">")(1), "</span>")(0)
        End If
    End With

End Function

on peut aussi utiliser GetElementById

Function quelleheure() As String
Dim html
Set html = CreateObject("htmlFile")

    quelleheure = ""
    DoEvents
    URL = "https://24timezones.com/fr_temps/paris_temps_local.php"
    On Error Resume Next

    With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", URL, False
    .Send
        If .Status = 200 Then
            html.body.innerhtml = .responseText
            quelleheure = html.GetElementById("currentTime").innertext
        End If
    End With

End Function

Bonsoir, merci pour toutes tes réponses en fait j'écris la date et l' heure avec

Feuil6.Range("A1").Offset(1, 1).Value = Now()

Je vais regarder si il y a moyen de me servir de tes solutions

Premier Message :

Bonjour , est ce qu'on peut récupérer l'heure et la date exacte non pas de l'ordinateur ( au cas où quelqu’un la modifie manuellement ) mais d'internet ?

Merci.

Second Message :

Bonsoir, merci pour toutes tes réponses en fait j'écris la date et l' heure avec

Feuil6.Range("A1").Offset(1, 1).Value = Now()

Pas toujours facile de comprendre les gens ...!!!

EN effet !

=quelleheure()

ou bien

=GAUCHE(quelleheure();8)*1

Bonjour, ça fonctionne c'est nickel !!! un grand merci Steelson.

de rien ... sujet intéressant quand même ! bien qu'il vaille mieux synchroniser son PC