Discussion :

[dzsysteme]

Salut à Tous
Je voudrais savoir comment afficher le formulaire Windows permettant de modifier la date et l'heure ainsi que le faisceau horaire à partir d'une procédure Access 2000 . Merci

[LedZeppII]

Bonsoir,

Ci-dessous une procédure qui fonctionne sous Windows XP:

Code :

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

1
2
3
4
5
6
7
Sub AfficherDateHeureSystem()
Dim oShell As Object
 
Set oShell = CreateObject("Shell.Application")
oShell.SetTime
Set oShell = Nothing
End Sub

A+

[CarSoftAja]

Bonsoir,

Il est possible d'afficher les outils du panneau de configuration en appelant le fichier .cpl concerné

Par exemple pour le panneau date/heure:

Code :

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

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0", vbNormalFocus)

et pour le panneau fuseau horaire:

Code :

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

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1", vbNormalFocus)

la liste de tous les outils est ici

Salutations.

[dzsysteme]

Merci