Mise a l'heure...

Salut!
Par le shell ça m'a l'air un peu compliqué, mais en VBA tu peux passer par
une API. Voici le code:
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
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME) As Long

Private Sub Form_Load()

Dim lpSystemTime As SYSTEMTIME

lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0

SetSystemTime lpSystemTime
End Sub



"Luc de Kin" <LucdeKin@discussions.microsoft.com> a écrit dans le message de
news: 8F8A42B6-7BB6-4A38-A0E8-F8C5B06AE728@microsoft.com...

Bonjour,

Quel est le shell ou autre fonction (.exe) a appeler a partir d'ACCESS
pour
pouvoir regler la date et l'heure du PC ?

Merci et bonne journee,

Luc

Bonjour,

Avec Shell(), vous pouvez exécuter ceci :

Sub DateHeure()
Dim lngShell As Double
lngShell = Shell("Rundll32.exe shell32.dll,Control_RunDLL
timedate.cpl,,0", 1)
End Sub

--
Argy
http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour,

Quel est le shell ou autre fonction (.exe) a appeler a partir d'ACCESS pour
pouvoir regler la date et l'heure du PC ?

Merci et bonne journee,

Luc

D'abord merci !

Ca marche mais... une fois. Apres mise a l'heure, si on clique une deuxieme
fois... Nada ! Est-ce normal ? Que faut-il faire ?

Merci pour la suite.

Bonjour,

Avec Shell(), vous pouvez exécuter ceci :

Sub DateHeure()
Dim lngShell As Double
lngShell = Shell("Rundll32.exe shell32.dll,Control_RunDLL
timedate.cpl,,0", 1)
End Sub

--
Argy
http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour,

Quel est le shell ou autre fonction (.exe) a appeler a partir d'ACCESS pour
pouvoir regler la date et l'heure du PC ?

Merci et bonne journee,

Luc