Dim maConn As ADODB.Connection Dim SQL As String Dim r As Long Set maConn = New ADODB.Connection maConn.ConnectionString = "<la chaine de connexion à SQL Server>" maConn.Open If maConn.State = adStateOpen Then SQL "Udpate maTable Set monChamp 'toto' Where monChamp = 'kiki'" maConn.Execute SQL, r MsgBox CStr(r) & " modifications apportées" End If ...