Slt, j'ai un probléme de virgule avec ma syntaxe. ça doit etre un probléme de "." et( de",".
Pouvez-vous m'aider?
Dim taux() As Double
ReDim taux(20)
For k = 1 To 20
taux(k) = 1
Next
Set rss = Db.OpenRecordset("SELECT [Index TP01].TP01, [Index TP01].dateValeur FROM [Index TP01] WHERE ((([Index TP01].dateValeur)=#1/1/" & annéeVal & "#));")
indexval = rss![TP01]
If indexval = 0 Or IsNull(indexval) Then indexval = 1
For i = 1 To annéeFin - annéeDep
Set rss = Db.OpenRecordset("SELECT [Index TP01].TP01, [Index TP01].Provisoire, [Index TP01].dateValeur FROM [Index TP01] WHERE ((([Index TP01].dateValeur)=#1/1/" & annéeDep - 1 + i & "#));")
If IsNull(rss![TP01]) Then
taux(i) = rss![Provisoire] / indexval
Else
taux(i) = rss![TP01] / indexval
End If
Next i
rss.Close
Db.Execute "DELETE BudgetAct.*, BudgetAct.Projet FROM BudgetAct WHERE (((BudgetAct.Projet)=" & glob_sres & "));"
sql = "INSERT INTO BudgetAct ( Projet, Macrotache, [Numero et], N1 ) SELECT Budget.Projet, Budget.Macrotache, Budget.[Numero et], "
sql = sql & "[N1]*(" & taux(1) & ") AS Expr1, "
sql = sql & "FROM Budget WHERE (((Budget.Projet)=" & glob_sres & "));"
Debug.Print sql
Db.Execute sql
Rs.MoveNext
Loop
Rs.Close