Discussion :

[alolaterre]

Bonjour,
J'ai un petit pépin,
j'utilise un code qui me demande une date via inputbox, et qui la renvoi dans une cellule. Le probleme c'est que soudainement, il retranscrit la date en inversant le mois et les jours. Ex si je tape 11/09/2015 il écrit dans la cellule 9 Novembre 2015 !

Voici le code que j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Demande_Confirmation = MsgBox("Livraison pour le:" & Chr(10) & Chr(10) & _
    Worksheets("Aide a la commande").Range("C3").Value & "?" & Chr(10) & Chr(10) & Chr(10) & Chr(10) _
    , vbQuestion + vbYesNo + vbDefaultButton1, "Confirmer ?")
 
' si la date est OK continuer 
    If (Demande_Confirmation) = vbYes Then GoTo Suite
 
 
' si la date est incorrecte entrer une nouvelle date
saisie_date:
 
    Date_Liv = InputBox(Chr(13) & Chr(10) & Chr(13) & Chr(10) & "      Saisissez la date de livraison", _
            "Date de livraison")
 
 
        If Not IsDate(Date_Liv) Then
            MsgBox "Format de date saisie incorrect !"
            GoTo saisie_date
            End If
 
 
        If CDate(Date_Liv) < Date Then
            MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
            GoTo saisie_date
            End If
 
 
        If Date_Liv <> Format(Date_Liv, "dd/mm/yyyy") And Date_Liv <> Format(Date_Liv, "dddd dd/mm") And Date_Liv <> Format(Date_Liv, "dd/mm/yy") _
            Then
            MsgBox "le format doit être jj/mm/aaaa !"
            GoTo saisie_date
            End If
 
        Range("C3").Select
        Range("C3") = Date_Liv
        Range("C3") = Format(ActiveCell.Value, "dddd dd mmm")

Une idée?

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
do
    Date_Liv = InputBox(vbcrlf & vbcrlf & "      Saisissez la date de livraison",  "Date de livraison")
    if Date_Liv <>"" then
      If CDate(format(Date_Liv,"yyyy-mm-dd")) >= Date Then exit do
   end if
   MsgBox "La date doit être supérieure à la date d'aujourd'hui !"
loop
 
 
       ' If Date_Liv <> Format(Date_Liv, "dd/mm/yyyy") And Date_Liv <> Format(Date_Liv, "dddd dd/mm") And Date_Liv <> Format(Date_Liv, "dd/mm/yy") _
        '    Then
       '     MsgBox "le format doit être jj/mm/aaaa !"
       '     GoTo saisie_date
      '      End If
 
       ' Range("C3").Select
        Range("C3") = Format(Date_Liv,"yyyy-mm-dd")
       ' Range("C3") = Format(ActiveCell.Value, "dddd dd mmm")

[alolaterre]

Merci pour ta réponse rapide.

Mais ca ne fonctionne pas. Le seul cas ou la date est dans le bon ordre, c'est quand les jours sont supérieurs à 12 (ex 13/09/2015)

[Invité]

fais ce teste la pour accéder à la fenêtre d’exécution raccourci clavier [Ctrl] + [G]

Code :

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

1
2
3
4
5
Sub Test()
Date_Liv="1/2/15"
debug.print Format(Date_Liv,"yyyy-mm-dd")
debug.print cdate(Format(Date_Liv,"yyyy-mm-dd"))
end sub

[alolaterre]

J'ai pas bien compris ce que je doit faire de ce code? Je le mets où?

[Invité]

tu colle ce code dans un module

Code :

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

1
2
3
4
5
Sub Test()
Date_Liv="1/2/15"
debug.print Format(Date_Liv,"yyyy-mm-dd")
debug.print cdate(Format(Date_Liv,"yyyy-mm-dd"))
end sub

tu l’exécute touche [F5]

et tu regarde le résultat dans la fenêtre d’exécution touche clavier [Ctrl] + [g]