[XL-2003] ISAM Excel-> Access

[rushdie]

Bonsoir,

Je suis en train de réaliser une petite application pour gérer des stocks.

Je travaille sous XP avec office 2003.

J'ai créé un formulaire sur excel (que j'utilise comme interface) et j'ai tapé un code pour que les données encodées sur le formulaire soient transmises dans une base de données access. Ce code est associé au bouton OK du formulaire.

Ici il s'agit du formulaire d'encodage d'une entrée de produit.

Les données sont destinées à une table appelée "Entrées".

ça ne marche pas. J'ai le message d'erreur suivant :

could not find installable ISAM.

J'ai essayé de réparer office mais en vain. J'ai également téléchargé visual basic 6 et rien.

Voici le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub okuf1_Click()
Unload UserForm1
Dim MyConnect As String
Dim MyRecordset As ADODB.Recordset
Dim TextBox6 As Long
Dim TextBox5 As Date
Dim DTPicker2 As Date
Dim ComboBox1 As Long
MyConnect = "Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source= D:\Profiles\felabba\Desktop\restostock.mdb;" & "UserID=felabba;""Extended properties=Excel 12.0;"
Set MyRecordset = New ADODB.Recordset
MyRecordset.Open "tbl_Entrées", MyConnect, adOpenStatic, adLockReadOnly
MyRecordset.AddNew
MyRecordset.Fields("Nom encodeur").Value = TextBox6
MyRecordset.Fields("Date de l'encodage").Value = TextBox5
MyRecordset.Fields("Date de réception").Value = DTPicker2
MyRecordset.Fields("Fournisseur").Value = ComboBox1
MyRecordset.Update
MyRecordset.Close
 
End Sub

Merci

[chordially]

Bonjour, Rushdie,

voici l'information que j'ai trouvée sur le site de Microsoft. J'espère que ça peut t'aider.

http://support.microsoft.com/kb/209805

Bonne journée

Chordially