Comment avoir l'heure GMT ou UTC dans une cellule

Question

Je travaille à l'international et je veux mettre en place un annuaire à partir duquel CHAQUE COLLABORATEUR - de n'importe ou dans le monde - pourra voir l'heure qu'il est avant d'appeler un collègue étranger. En local j'ai mis l'heure GMT (=MAINTENANT()-0,0416666666666667) mais l'indien ou le philippin qui va ouvrir le fichier aura une heure totalement faussée car son MAINTENANT ne sera pas le même que le mien. Je voudrais donc via une macro (je ne maitrise pas du tout je n'utilise que les formules dans excel) pouvoir mettre en dur l'heure GMT en temps réel, ainsi en colonne D j'irai chercher le résultat de ma cellule GMT à laquelle s'ajoutera la valeur saisie en colonne C. Aujourd'hui tous les européens peuvent voir quelle heure il est aux Philippines ou en Inde mais ce n'est pas vrai pour eux. J'ai aussi des collègues à l'ouest donc si je pouvais avoir une référence unique GMT tous le monde pourrait travailler avec cet annuaire. Merci de vos conseils Mastrid...

i20100 · Answer

Sub HeureGMT() Range("A1").Formula = "=TODAY()-0.0416666666666667" End Sub...

i20100 · Answer

Désolé, je croyais que votre problème était de transformer la formule dans une macro, la j'ai l'impression que votre problème est de connaitre le vecteur GMT pour chaque pays. Ai je raison ? https://24timezones.com/temps_du_monde.php...

eriiic · Answer

En m'inspirant d'ici : https://stackoverflow.com/questions/1600875/how-to-get-the-current-datetime-in-utc-from-an-excel-vba-macro eric...

eriiic · Answer

Et tu es où toi, à Londres ? Et tu n'as pas demandé l'heure de Londres mais l'heure UTC (GMT) Pour l'instant je ne peux tester que Paris, ça m'annonce bien 2h de moins que l'heure du système. J'attend les billets d'avion que tu vas m'envoyer pour tester New-York et Singapour eric PS : si je change de fuseau horaire pour celui de Londres mon heure système se met à jour et l'heure UTC reste bien à 8:20, tu peux te faire rembourser les billets...

eriiic · Answer

L'heure UTC c'est l'heure UTC et c'est la même pour tout le monde.

Notre fuseau est noté (UTC+01:00) Bruxelles, Copenhague, Madrid, Paris

Mais en réalité UTC+2h en ce moment de par l'heure d'été.

Le leur est (UTC+00:00) Londres

Mais pour une fois les anglais font comme tout le monde, ils ont accepté d'être en été aussi et changent d'heure également aux même dates que nous.

Du coup toute l'année ils ont 1h de moins que nous, mais sont à UTC+1h en été.

C'est plus clair ?

Du coup si tu comptais afficher l'heure du pays tu vas te marrer avec tous les changement d'heure d'été.

Tous les pays ne le font pas. Et ceux qui le font ne le font pas forcément aux même dates ni aux même heures, et pour certains ça peut varier selon la province...

eriiic · Answer

C'est une fonction personnalisée en vba à mettre dans ton classeur.

Clic-droit sur un onglet de ton classeur et 'Visualiser le code...' pour aller dans VBE (l'éditeur de VBA)

clic-droit sur le projet de ton classeur (à gauche) et 'Insertion / Module'

Coller ce code dans le Module1 créé :

Option Explicit

Private Declare PtrSafe Sub GetSystemTime Lib "Kernel32" (ByRef lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Function UTC() As Date
    Dim nowUtc As SYSTEMTIME
    Application.Volatile
    Call GetSystemTime(nowUtc)
    UTC = DateValue(nowUtc.wDay & "/" & nowUtc.wMonth & "/" & nowUtc.wYear) + nowUtc.wHour / 24 + nowUtc.wMinute / 24 / 60 + nowUtc.wSecond / 24 / 3600
End Function

Puis 'Enregistrer sous...' ton classeur en choisissant le type *.xlsm dans la liste déroulante.