Bonjour, en passant par excel vba, je fais le code suivant:
Sub test()
Dim requete As String
Set cnx = Nothing
cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\Users\naubin\Desktop\grilledepolyvalence1.accdb"
'Ouverture de la base de données
cnx.Open
For x = 1 To 36
requete = "UPDATE [Grille polyvalence] " & _
"set `P" & x & "` = `P" & x & "` * 10 " & _
"WHERE 'Date_P" & x & "' < '" & (Now - 365) & "' and P" & x & " < 10 and P" & x & " is not null"
cnx.Execute requete
Next x
Set cnx = Nothing
End Sub
sur ma table:
le code ne m'indique aucune erreur et pourtant ma date en P3=14/06/18 remplie bien les condittions pourtant mon 2 reste 2 et ne passe pas à 20. Quelqu'un à une idée?
Bien cordialement,
Naubin