Changer la date systeme

bonjour , via ce petit bout de code que j'ai ecris et qui consiste à changer la date systeme je me suis heurté à un message du type

"permission refusée"

Sub Bouton3_QuandClic()
Dim nouvelledate As Date
nouvelledate = DateSerial(Year(Date), Month(Date), Day(Date)) - 1
Date = nouvelledate
End Sub

j'ai tenté (sur wondows 7) de désactiver l'UAC (unit access control) mais cela ne marche .

je me demande si cela reste faisable depuis une macro ?...

En vous remerciant pour vos suggestions

Cordialement ,

Bonjour,

nouvelledate = DateSerial(Year(Date), Month(Date), Day(Date)) - 1

Tu définis la date sous forme de numéro de série, qui a cours dans Excel, mais à ma connaissance seulement dans Excel !

Je pense qu'il faut la définir sous forme de littéral date :

nouvelledate = #26 november 2016#

Il faut évidemment que tu soies loggé en Administrateur...

Cordialement.

Merci Mferrand, j'ai effectué les changements que vous m'avez proposés mais cela renvoi le meme message "permission refusée"

Vérifie déjà que tu es autorisé à la modifier en Invite de commande.

Si là ça marche, et que ça coince pour ton code, aligne-toi sur le format préconisé pour la saisie de nouvelle date, pour voir.

Bonjour,

Pour changer la date, il faut opérer "as Administrator"

Je n'ai rien trouvé de mieux que passer par un fichier ... mais ça fonctionne ...

Si on recule de un jour avec -1, pour revenir, il faut utiliser +1.

Sujet à amélioration ...

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Sub test()

Dim nouvelledate As Date
nouvelledate = DateSerial(Year(Date), Month(Date), Day(Date)) - 1
Close
chemin = "C:\Madate\"
Open chemin & "LaDate.cmd" For Output As #1
Print #1, "date " & nouvelledate
Close
ShellExecute 0, "runas", chemin & "ladate.cmd", Command & "/admin", vbNullString, SW_SHOWNORMAL
End Sub

Gelinotte