Format date et heure en VBA

Version imprimable

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:

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

01/12/2016, 13h22
Docmarti
Bonjour.

Histoire de savoir quel est le format de date dans les parametres regionaux et linguistiques de Windows sur ton ordinateur, quel est le resultat de
Code:

1 2 ActiveCell.Offset(0, 0).NumberFormat = "General" ActiveCell.Offset(0, 0).Value = Date
01/12/2016, 13h45
Philippe608

Merci Docmarti, ça fonctionne.

J'ai bien 01/12/2016, je suis allé plus loin en février 2017 et c'est bon également.

Encore merci
Philippe ;)