Discussion :

[Rayan1]

Bonjour les amis,

j'ai un logiciel qui est utilisé dans plusieurs machines. Donc j'ai ma base de données plus l'interface qui est installer dans les postes client.

Je voulais que les heures et les dates soit celui du serveur (Ordinateur Bureau comme serveur) mais pas sur les postes clients.

Comment faire.?

merci d'avance.

[marot_r]

Bonjour.

Je ne pense pas que ce soit faisable en VBA mais tu peux regarder ici :
NET TIME and w32time
https://blogs.msdn.microsoft.com/w32...e-and-w32time/

La commande NET TIME semble le permettre.
En faisant un appel via Shell il est peut-être possible de faire ce que tu demandes.

A+

[Invité]

une solution possible via API :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Explicit
 
Private Declare Function NetRemoteTOD Lib "NETAPI32" (ByVal server As Any, pBuffer As Long) As Long
Private Declare Function NetApiBufferFree Lib "NETAPI32" (ByVal pBuffer As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal length As Long)
 
Private Type TimeOfDayInfo
    elapsedt As Long: msecs As Long: hours As Long: mins As Long
    secs As Long: hunds As Long: timezone As Long: tinterval As Long
    Day As Long: month As Long: year As Long: weekday As Long
End Type
 
'getDateTimeServer("freebox")
Public Function getDateTimeServer(ByVal serverName As String) As Date
    Dim t As TimeOfDayInfo, lPtr As Long
    serverName = StrConv("\\" & serverName & vbNullChar, vbUnicode)
    If NetRemoteTOD(serverName, lPtr) = 0 Then
        CopyMemory t, ByVal lPtr, Len(t): NetApiBufferFree lPtr
        getDateTimeServer = DateSerial(t.year, t.month, t.Day) + _
                            TimeSerial(t.hours, t.mins - t.timezone, t.secs)
    End If
End Function