Private Sub SaveData()
Dim n As Integer
Dim Rec As Recordset
Dim db As database
Dim Nom_Base As String
Dim Nom_Table As String
Dim Chem_Base As String
Nom_Base =3D "stats.mdb"
Nom_Table =3D "T_Vendeur"
Chem_Base =3D ThisWorkbook.Path & Application.PathSeparator
Set db =3D OpenDatabase(Chem_Base & Nom_Base)
Set Rec =3D db.OpenRecordset(Nom_Table, dbOpenDynaset)
For n =3D 4 To ?????
With Rec
.AddNew
.Fields("Salaire").Value =3D Cells(n, 3)
.Fields("Prime1").Value =3D Cells(n, 4)
.Fields("Prime1").Value =3D Cells(n, 5)
.Update
=20
End With
Next
Rec.Close
End Sub
bonjour=20
j'ai une permeire fonction qui va me recuperer certaine=20
donn=E9es dans access et je veux connaitre combien de ligne=20
(n) je dois ensuite recuperer les infos qui se trouve ds=20
mes cellules pour les inserer dans un table access.
puis-je utiliser .value =3D cells???
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
tu peux essayer for n=4 to Range("c:e").Cells.Find("*", , , , , xlPrevious).Row
http://jacxl.free.fr/
"luis" a écrit dans le message de news: 0f0b01c35784$7f010a20$ Private Sub SaveData() Dim n As Integer Dim Rec As Recordset Dim db As database Dim Nom_Base As String Dim Nom_Table As String Dim Chem_Base As String Nom_Base = "stats.mdb" Nom_Table = "T_Vendeur" Chem_Base = ThisWorkbook.Path & Application.PathSeparator Set db = OpenDatabase(Chem_Base & Nom_Base) Set Rec = db.OpenRecordset(Nom_Table, dbOpenDynaset)
For n = 4 To ????? With Rec .AddNew .Fields("Salaire").Value = Cells(n, 3) .Fields("Prime1").Value = Cells(n, 4) .Fields("Prime1").Value = Cells(n, 5) .Update
End With Next Rec.Close End Sub
bonjour j'ai une permeire fonction qui va me recuperer certaine données dans access et je veux connaitre combien de ligne (n) je dois ensuite recuperer les infos qui se trouve ds mes cellules pour les inserer dans un table access. puis-je utiliser .value = cells??? merci
tu peux essayer
for n=4 to Range("c:e").Cells.Find("*", , , , , xlPrevious).Row
J@C
http://jacxl.free.fr/
"luis" <indian@caramail.com> a écrit dans le message de news:
0f0b01c35784$7f010a20$a501280a@phx.gbl...
Private Sub SaveData()
Dim n As Integer
Dim Rec As Recordset
Dim db As database
Dim Nom_Base As String
Dim Nom_Table As String
Dim Chem_Base As String
Nom_Base = "stats.mdb"
Nom_Table = "T_Vendeur"
Chem_Base = ThisWorkbook.Path & Application.PathSeparator
Set db = OpenDatabase(Chem_Base & Nom_Base)
Set Rec = db.OpenRecordset(Nom_Table, dbOpenDynaset)
For n = 4 To ?????
With Rec
.AddNew
.Fields("Salaire").Value = Cells(n, 3)
.Fields("Prime1").Value = Cells(n, 4)
.Fields("Prime1").Value = Cells(n, 5)
.Update
End With
Next
Rec.Close
End Sub
bonjour
j'ai une permeire fonction qui va me recuperer certaine
données dans access et je veux connaitre combien de ligne
(n) je dois ensuite recuperer les infos qui se trouve ds
mes cellules pour les inserer dans un table access.
puis-je utiliser .value = cells???
merci
tu peux essayer for n=4 to Range("c:e").Cells.Find("*", , , , , xlPrevious).Row
http://jacxl.free.fr/
"luis" a écrit dans le message de news: 0f0b01c35784$7f010a20$ Private Sub SaveData() Dim n As Integer Dim Rec As Recordset Dim db As database Dim Nom_Base As String Dim Nom_Table As String Dim Chem_Base As String Nom_Base = "stats.mdb" Nom_Table = "T_Vendeur" Chem_Base = ThisWorkbook.Path & Application.PathSeparator Set db = OpenDatabase(Chem_Base & Nom_Base) Set Rec = db.OpenRecordset(Nom_Table, dbOpenDynaset)
For n = 4 To ????? With Rec .AddNew .Fields("Salaire").Value = Cells(n, 3) .Fields("Prime1").Value = Cells(n, 4) .Fields("Prime1").Value = Cells(n, 5) .Update
End With Next Rec.Close End Sub
bonjour j'ai une permeire fonction qui va me recuperer certaine données dans access et je veux connaitre combien de ligne (n) je dois ensuite recuperer les infos qui se trouve ds mes cellules pour les inserer dans un table access. puis-je utiliser .value = cells??? merci
