Discussion :

[wilfryjules]

Bonjour à tous,

Je peine depuis hier avec le formatage des dates. En effet, j'ai commencé un projet dans une société avec Office en Français, seulement sur mon pc perso j'ai Office en Anglais.
J'ai donc créé une fonction dans un module pour obtenir automatiquement le bon format:

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
 
Global gDtCode As String
 
 
Public Sub SetTimeFormat()
    With Application
        Select Case .International(xlDateOrder)
            ' Anglais
            Case 0   'mdy
              '  MsgBox Format("15/12/2021", "mm/d/yyyy")
                gDtCode = "mm/d/yyyy"
            ' Français
            Case 1  'dmy
                gDtCode = "dd/mm/yyyy"
            ' Mongole
            Case 2 'ymd
                gDtCode = "yyyy/mm/dd"
        End Select
 
    End With
End Sub

Jusque là tout fonctionne correctement.

Seulement voici le soucis, je n'arrive pas à récupérer une ligne dans la base Access alors que lors du débuggage tout à l'air de matcher :






C'est bien la date qui pose problème !!!! Pourtant elle est fournie avec le format existant en Base !!!