Transfert de données EXCEL Vers Access

Salut tout le monde
Je viens vous demander de l'aide,pour transférer des données Excel vers Access
Mon petit programme que je joins à cette demande fonctionne comme suit:

Quand j'effectue un premier transfert avec le bouton1 (Français) Tout va bien, mais quand je clique sur le bouton2 (Math) pour ajouter les données aux mêmes enregistrements ici ça ne fonctionne pas ----ERREUR-------:traine::traine:
Comment faire SVP et Merci pour Votre aide.

Bonjour,
Merci de passer l'archive au format zip, qui est reconnu automatiquement sous Windows.
Le mieux, si le code n'est pas trop long, c'est de joindre l'extrait de code concerné (entre les balises CODE), je ne suis pas sûr que beaucoup de gens prennent la peine de télécharger un fichier.

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub Command1_Click() If RS.State = adStateOpen Then RS.Close If Option1.Value = True And Check1.Value = 1 Then RS.Open "Insert Into Table1 In'" & App.Path & "\Base1.mdb" & "'" & " Select * From [Français$]", XL, adOpenDynamic, adLockOptimistic   MsgBox "Transfert réussi", vbInformation, "INFOS" Else: MsgBox "Vous devez choisir l'année et la classe", vbInformation, "INFOS" End If End Sub     Private Sub Command2_Click() PoolConnection Set DB = New ADODB.Connection Set RS1 = New ADODB.Recordset   If RS1.State = adStateOpen Then RS1.Close If Option1.Value = True And Check1.Value = 1 Then RS1.Open "Insert Into Table1 In '" & App.Path & "\Base1.mdb" & "'" & " Select * From [Math$]", XL, adOpenDynamic, adLockOptimistic   MsgBox "Transfert réussi", vbInformation, "INFOS" Else: MsgBox "Vous devez choisir l'année et la classe", vbInformation, "INFOS" End If End Sub

---

Sur quelle ligne as tu une erreur ?

Salut et merci

Quand je clique sur le bouton2 pour enregistrer les notes de Mathématiques.Le programmes fonctionne "Transfert de données réussi" mais il y a erreur dans la base de données access comme le montre l'image jointe.
Voici le code pour ajouter les notes maths

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command2_Click() If RS.State = adStateOpen Then RS.Close If Option1.Value = True And Check1.Value = 1 Then RS.Open "Insert Into Table1 In '" & App.Path & "\Base1.mdb" & "'" & " Select * From [Math$]", XL, adOpenDynamic, adLockOptimistic MsgBox "Transfert réussi", vbInformation, "INFOS" Else: MsgBox "Vous devez choisir....", vbInformation, "INFOS" End If End Sub

---

Citation:

---

Envoyé par OhMonBato

Bonjour,
Merci de passer l'archive au format zip, qui est reconnu automatiquement sous Windows.
.....

---

Surtout pour une image.... quel intérêt de la compresser si elle est en JPG ?

Le ne sais pas, c'est l'instinct ou maladresse:oops: