Salut a tous
J'ai laissé un message sur MPFE.
En attendant une réponse, j"essaye d'avancer.
Ma première erreur je ne l'ai plus, j'avais oublié dans le dossier "base de donne" de rajouter la colonne en plus dans la "table" de la feuille données.
Maintenant j'ai une autre erreur a priori semblable.
Dim N As Variant, A As Integer
For Each N In Array("No", "Référenceproduit", "Désignationproduit", "Enregistrépar", "Casier", "Date", "Table")
Set Rst = Nothing
A = A + 1
If A <> 6 Then
Rst.Open "Select * from [" & N & "]", Conn, adOpenKeyset, adLockOptimistic
Me.TotalEnreg = Rst.RecordCount + 1
Rst.AddNew 'Cette section permet de mettre à jour la plage nommée(adressage)
Rst.Update 'pour chacun des champs. C'est essentiel pour être capable
'd'effectuer des recherches d'enregistrements sur ces plages.
Else
Rst.Open "Select * from [" & N & "]", Conn, adOpenKeyset, adLockOptimistic
'La mise à jour des champs dans la "Table" du fichier "Base de données.xls"
'se fait seulement lors de la dernière boucle
Rst.AddNew
Rst(0).Value = CLng(Rst.RecordCount + 1)
Rst(1).Value = Me.TextBox1
Rst(2).Value = Me.TextBox2
Rst(3).Value = CDbl(Me.TextBox4)
Rst(4).Value = Me.TextBox8
Rst(5).Value = Me.TextBox9
Rst.Update
End If
Next
Au niveau de
Rst(1).Value = Me.TextBox1
Je continue a chercher;
Merci, G'Claire