Bonjour,

Avec le code ci dessous la date n'est pas correct lorsque le code est exécuté, il retourne 01/02/2016 au lieu de 01/12/2016
Comment régler le problème ?

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Heure()
  ActiveSheet.Unprotect ""
    Application.EnableEvents = False
        ActiveCell.Value = ""
            ActiveCell.Offset(0, 1).Value = Format(Date, "dd-mm-yyyy")
              ActiveCell.Offset(0, 2).Value = Format(Time, "hh:mm")
                ActiveCell.Offset(0, 3).Select
                        ActiveSheet.Protect "" ' on met de nouveau le mot de passe
                       Application.EnableEvents = True
                            ActiveWorkbook.Save ' sauvegarde du classeur
                    End Sub