Transfert de données EXCEL Vers Access

**Mon_ami** · 29/12/2010, 10h28

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-------

Comment faire SVP et Merci pour Votre aide.

**OhMonBato** · 29/12/2010, 11h09

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.

**Mon_ami** · 29/12/2010, 11h34

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**OhMonBato** · 29/12/2010, 13h36

Sur quelle ligne as tu une erreur ?

**Mon_ami** · 29/12/2010, 18h03

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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