Discussion :

[Philippe608]

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

[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 :

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

1
2
ActiveCell.Offset(0, 0).NumberFormat = "General"
        ActiveCell.Offset(0, 0).Value = Date

[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