Bonjour

Voici un bout de code. la donnée dateArrt est de type string. Quand je la met dans la requête req et que je l'exécute ça me dit que cette date n'existe pas dans la table 0000_table_des_jours (où la donnée DATE_ARRT est de type date/heure), en effet le curseur rs1 est vide.
Est ce un souci de format ?
Merci d'avance
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
37
38
 
'=========================================================================================
' Déclaration des variables
'=========================================================================================
 
    Dim objFSO
 
    Dim ligne As String
    Dim db As Database
    Dim rs1 As Recordset
 
    Dim req As String
    Dim qd As QueryDef
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim NAgence As Double
    Dim dateArrt As String
 
    Set db = CurrentDb
 
'=========================================================================================
' Déclaration des périodes
'=========================================================================================
 
    dateArrt = InputBox("Date d'arrêté du suivi ? (ex: 18/11/2014)")
    Do While (Len(dateArrt) <> 10)
        dateArrt = InputBox("Date d'arrêté du suivi ? (ex: 18/11/2014)")
    Loop
 
    'On recupère les dates
    req = "select * from [0000_Table_des_Jours] where DATE_ARRT = " & dateArrt & ";"
    Set rs1 = db.OpenRecordset(req)
    If Not rs1.EOF Then
        dateArrtJour = rs1(14)
    Else
        MsgBox "Date " & dateArrt & " introuvable dans la table des jours"
        End
    End If