Bonjour à tous,

mon projet commence en excel
par une variable dont voici le code, je séléctionne un mois (sous forme de chiffre 1 à 12).
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
Public mymonth As String
Sub CreateReports()
 
Dim Msg, Style, Title, Response
Dim mymonth As String
Dim acApp As New Access.Application
Dim ReqSQL1 As String
 
 
acApp.OpenCurrentDatabase ("C:\2008\SALES RESULTS\Data Files\Results_2008.mdb")
 
Msg = "Do you want to import a new File ?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Import File"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
mymonth = InputBox("Enter The Month here: ")
                If Month = "" Then
                        MsgBox "The end !"
                        Exit Sub
                End If
 
ReqSQL1 = "DELETE * FROM AA_Results_Mercator WHERE Date= " & mymonth
 
 
acApp.DoCmd.RunSQL (ReqSQL1)
 
End If
 
End Sub
Cette variable doit me servir pour éffacer les données de ma table access
Seulement dans ma table le champ date est au format jj/mm/aaaa, (mais c'est le mois complet qui devra être supprimé)

le code ne me donne pas d'erreur mais il ne fait rien en access ...
je souhaite pouvoir continuer à travailler avec le format chiffre dans ma variable car plus loin dans mon projet cette variable est encore utilisé en excel cette fois.

Quelqu'un peut m'aider ??

d'avance merci !