Merci à Jean-Claude DAVID :
Le update fonctionne dans ce cas
Sub majDonnees()
On Error GoTo Erreurs
dim maRequete As Object, resuQuery As Object
dim mesRows as long, monRow as long
dim mesColonnes as long, maColonne as long
dim nbColonnes as long, nbre
dim instrSQL As String, monSignet As Variant
dim info As String, cr As String
dim i as long
dim test1 as string, monType
cr = chr(13) ' retour à la ligne, pour les messages
ConnecterSource
' Texte de la requête
instrSQL = "SELECT * FROM SIGNATAIRES ORDER BY ID_SIGNATAIRES"
' Envoyer la requête
maRequete = maConnexion.createStatement()
for i = 1 to ubound(tabSignataires(),1)
instrSQL="UPDATE " & """signataires"""
instrSQL=instrSQL & " SET "
instrSQL=instrSQL & """civilite""" & " = '" & tabSignataires
(i, 1 ) & "', "
instrSQL=instrSQL & """nom""" & " = '" & tabSignataires (i,
2 ) & "', "
instrSQL=instrSQL & """prenom""" & " = '" & tabSignataires
(i, 3 ) & "' WHERE " & """ID_signataires""" & " =" & tabSignataires (i, 0 )
print instrSQL
nbre = maRequete.executeUpdate(instrSQL)
next
DeconnecterSource
Exit Sub
Erreurs:
DeconnecterSource
erreur_num=err()
erreur_txt=error(erreur_num)
erreur_ligne = Erl()
MsgBox("erreur n° " + erreur_num + " à la ligne " + erreur_ligne
+ chr(13) + erreur_txt, 1 + 16, "Macro recupcurseur")
End Sub
Laurence BOTTIN (DGMT/SG/AG2), bureau informatique
ministère des Transports, de l'Equipement, du Tourisme et de la Mer
direction générale de la Mer et des Transports
(: +33 1 40 81 17 27 Fax : +33 1 40 81 37 95
localisation des bureaux : Grande Arche sud La Défense
<mailto:[EMAIL PROTECTED]>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
