M
Michael
Guest
Salut le forum!!!
Voila mon pb!
J'ai des userforms qui remplissent un tableau excel.
Ce tableau est envoyé vers une base access par un ptit module qd on quitte l'appli.
Le pb est que cela marche tres bien si c'est la feuille avec le tableau qui est affiché à l'écran.
Mais quand on saisi dans les userforms la feuille affichée n'est pas celle du tableau oû st stockées les infos alors ca plante au niveau du plage.select ci dessous!!!
Qq1 peut m'aider svo?
Merci!
MichaeL
Public Sub export()
Dim Plage As Range
Dim Array1 As Variant
Dim x As Variant
Dim Rs1 As Recordset
Set Rs1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Declaratif.mdb").OpenRecordset("Compterendu", dbOpenDynaset)
Set Plage = Sheets("Tableau").Range("A1").CurrentRegion.Offset(1, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Plage.Select
Voila mon pb!
J'ai des userforms qui remplissent un tableau excel.
Ce tableau est envoyé vers une base access par un ptit module qd on quitte l'appli.
Le pb est que cela marche tres bien si c'est la feuille avec le tableau qui est affiché à l'écran.
Mais quand on saisi dans les userforms la feuille affichée n'est pas celle du tableau oû st stockées les infos alors ca plante au niveau du plage.select ci dessous!!!
Qq1 peut m'aider svo?
Merci!
MichaeL
Public Sub export()
Dim Plage As Range
Dim Array1 As Variant
Dim x As Variant
Dim Rs1 As Recordset
Set Rs1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Declaratif.mdb").OpenRecordset("Compterendu", dbOpenDynaset)
Set Plage = Sheets("Tableau").Range("A1").CurrentRegion.Offset(1, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Plage.Select