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?