G
Greg76
Guest
Bonjour à tous,
Voici mon probleme:
Ce code permet de recupérer des données contenus dans un document excel vers un doument access. Il selectionne bien les données souhaiter et ouvre également le document access sauf que ces données ne sont pas sauvegarder. Si quelqu un peut trouver ou mon code cloche ca m aidera beaucoup.
Merci d avance à tous ceux qui jeterons un coup d oeil .
Sub WritingWorksheetData_DAO()
Dim Plage As Range
Dim Array1 As Variant
Dim x As Variant
Dim Db1 As Database
Dim Rs1 As Recordset
' Ouverture de la base de données
Set Db1 = DBEngine.Workspaces(0).OpenDatabase("C:\Documents and Settings\Bureau\greg\x.mdb")
' Ouverture de la table Factures
' Un objet Recordset représente les enregistrements d'une table
Set Rs1 = Db1.OpenRecordset("Articledevis", dbOpenTable)
' Détermination de la taille de la plage à envoyer vers Access
Set Plage = Worksheets("recap").Range("A13").CurrentRegion.Offset(1, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Plage.Select
' Lecture de la plage pour renvoyer une valeur contenant un tableau
Array1 = Plage.Value
' Ecriture des données depuis Excel vers les enregistrement de la table Factures
For x = 1 To UBound(Array1, 1)
With Rs1
.AddNew
.Fields("NoChrono") = Array1(x, 1)
.Fields("Référence") = Array1(x, 2)
.Fields("PrixHT") = Array1(x, 3)
.Fields("Remise") = Array1(x, 4)
End With
Next
' Fermeture de la base Commandes.mdb
Db1.Close
End Sub
Private Sub CommandButton6_Click()
WritingWorksheetData_DAO
End Sub
Voici mon probleme:
Ce code permet de recupérer des données contenus dans un document excel vers un doument access. Il selectionne bien les données souhaiter et ouvre également le document access sauf que ces données ne sont pas sauvegarder. Si quelqu un peut trouver ou mon code cloche ca m aidera beaucoup.
Merci d avance à tous ceux qui jeterons un coup d oeil .
Sub WritingWorksheetData_DAO()
Dim Plage As Range
Dim Array1 As Variant
Dim x As Variant
Dim Db1 As Database
Dim Rs1 As Recordset
' Ouverture de la base de données
Set Db1 = DBEngine.Workspaces(0).OpenDatabase("C:\Documents and Settings\Bureau\greg\x.mdb")
' Ouverture de la table Factures
' Un objet Recordset représente les enregistrements d'une table
Set Rs1 = Db1.OpenRecordset("Articledevis", dbOpenTable)
' Détermination de la taille de la plage à envoyer vers Access
Set Plage = Worksheets("recap").Range("A13").CurrentRegion.Offset(1, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Plage.Select
' Lecture de la plage pour renvoyer une valeur contenant un tableau
Array1 = Plage.Value
' Ecriture des données depuis Excel vers les enregistrement de la table Factures
For x = 1 To UBound(Array1, 1)
With Rs1
.AddNew
.Fields("NoChrono") = Array1(x, 1)
.Fields("Référence") = Array1(x, 2)
.Fields("PrixHT") = Array1(x, 3)
.Fields("Remise") = Array1(x, 4)
End With
Next
' Fermeture de la base Commandes.mdb
Db1.Close
End Sub
Private Sub CommandButton6_Click()
WritingWorksheetData_DAO
End Sub