Exécution SQL dans VBA

Bonjour,

Dans Access j'ai le module suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function MAJFTEEXPAT()
On Error GoTo Macro1_Err
 
    DoCmd.RunSQL "UPDATE EmployeesDetails SET EmployeesDetails.[FTE Paid] = 0, EmployeesDetails.[FTE Worked] = 0  WHERE (((EmployeesDetails.[International Mobility Assignment]) Like ""*a*""));", -1
 
 
Macro1_Exit:
    Exit Function
 
Macro1_Err:
    MsgBox Error$
    Resume Macro1_Exit
 
End Function

Depuis un fichier excel j'aimerais exécuter cette requete dans une macro , quelqu'un peux t'il m'aider j'ai essayer ce code mais ca ne marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MAJINTERIMAIRES()
Dim Db As DAO.Database
Dim strSQL As String
Dim derlign As Long, i As Long
 
'connexion à la base
Set Db = DAO.OpenDatabase("K:\manag\A\SERVICE\EFFECTIFS\2010-2011\Suivieffectif.mdb", False, False)
strSQL = "UPDATE EmployeesDetails SET EmployeesDetails.[FTE Paid] = 0, EmployeesDetails.[FTE Worked] = 0"
WHERE (((EmployeesDetails.[International Mobility Assignment]) Like "*a*"))"
 
'deconnexion de la base
Db.Close

Merci de votre aide