tamtam64

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
Sub ImportData()

        'Affichage
    Application.ScreenUpdating = False
    
        'Definition variables
    Dim Db As DAO.Database
    Dim i, j As Integer, DernLigne As Integer
    Dim myGroup As String, MyDate As String
    Dim mySCN As String, myValue As Double
    Dim myCurr As String, req As String
    
        'Definition de la base
    Set Db = DAO.OpenDatabase(Worksheets("param").Range("Database"), False, False)
    
        'Ouverture des doc text et copie
    Workbooks.OpenText Filename:=Worksheets("param").Range("J11"), _
         Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
         xlDoubleQuote, Semicolon:=True, _
         FieldInfo:=Array(Array(1, 1), _
         Array(2, 2), Array(3, 1)), TrailingMinusNumbers:=True
          
    MyDate = ActiveWorkbook.ActiveSheet.Cells(10, 2)

    'on execute une requete
    Set Recset = Db.CreateQueryDef("", CreateReqDel(MyDate))
    Recset.Execute

'requete

Code :

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

1
2
3
4
5
6
    'Requete pour
Function CreateReqDel(MyDate As String)

CreateReqDel = "Delete from FIM_STRESS where AsOf ='" & Format(MyDate, "DD/MM/YYYY") & "'"
End Function