Bonjour le forum,

Je débute sur Access VBA et j'avoue que c'est un peu différent sur Excel. J'essaie de traduire le code VBA ci-dessous qui fonctionne très bien sur ma macro excel mais j'ai un problème lorsque je veux la lancer en code Access VBA. J'ai commencé sur Access avec le code ci-dessous (voir 2ème partie de ce message après les*******).

Code VBA ci-dessous qui fonctionne très bien sur excel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test() 
 
For s = 2 To Sheets.Count
 
Sheets(s).[A1].CurrentRegion.Offset(1, 0).Copy _
Sheets("consolidation").[A65000].End(xlUp).Offset(1, 0)
Next s
 
End Sub


Ci-dessous le commencement de mon code sur Access mais je lorsque je veux consolider les feuille 1 à l'infini cela ne fonctionne pas ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub RunMacroImport ()
 
Dim xlApp As New Excel.Application
 
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
 
Dim i As Long
Dim vtemp As Variant
 
'J'initialise mes variables
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:Report.xls")
 
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "Consolidation"
(je bloque ici lorsque je veux commencer avec une boucle : For xlSheet depuis feuille 1 à l'infini...)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Si quelqu'un pourrait me donner un début de piste cela m'aiderait énormément...

Merci d'avance.