Erreur dans code vb

Signaler
Messages postés
139
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
27 septembre 2010
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
Bonjour

voila j'ai fait ce code
qui permet d'ajouter des donnnées dans access a partir de excel


Sub importexcel() '(myname As String)

Dim Plage As Range

Dim Array1 As Variant

Dim x As Variant

Dim Db1 As DAO.Database

Dim Rs1 As DAO.Recordset

Dim appexcel As excel.Application
Dim wbexcel As excel.Workbook
Dim coucou As String
Dim i As Integer

Set appexcel = CreateObject("excel.application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("c:\excel\classeur2.xls")

appexcel.Sheets("feuil1").Select
Set Plage = wbexcel.Worksheets("Feuil1").Range("a1").CurrentRegion.Offset(0, 0)

' Ouverture de la base de données Commandes.mdb

Set Db1 = CurrentDb()
Set Rs1 = Db1.OpenRecordset("site", dbOpenDynaset)

' Un objet Recordset représente les enregistrements d'une table

' Détermination de la taille de la plage à envoyer vers Access

' Ecriture des données depuis Excel vers les enregistrement de la table Factures

With Rs1
i = 1
For i = 1 To 8

.AddNew

.Fields("lieu") = Plage.Cells(8, 3)
.Fields("ville") = Plage.Cells(8, 4)
Plage.Select
.Update
'.MoveNext

Next
End With

Set Plage = wbexcel.Worksheets("Feuil1").Range("C15:C24").CurrentRegion.Offset(0, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Array1 = Plage.Value
With Rs1
For x = 1 To UBound(Array1, 1)

.Edit

.Fields("adresse") = Array1(x, 1)

.Update

.MoveNext

Next

End With
appexcel.Workbooks.Close

' Fermeture de la base Commandes.mdb

Db1.Close

appexcel.Quit

End Sub

le probleme c'est qu'il ya une erreur sur edit et met aucun enregistrment en cours

la table est vide au depart

merci pour vos reponses

1 réponse

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
A quelle Ligne ton Programme Plante ??

It@li@