Piloter importation Excel depuis Access en VBA

[Soleil11]

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 :

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 ?

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"

😀(code excel ci-dessus que je voudrais ajouter ici...)😛


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.

Soleil11🙂

 

[tototiti2008]

Re : Piloter importation Excel depuis Access en VBA

Bonjour Soleil,

un essai (juste la partie à adapter)

For s = 2 To xlBook.Sheets.Count
 
xlBook.Sheets(s).Range("A1").CurrentRegion.Offset(1, 0).Copy _
xlBook.Sheets("consolidation").Range("A65000").End(xlUp).Offset(1, 0)
Next s

 

[Soleil11]

Re : Piloter importation Excel depuis Access en VBA

Bonjour,

Parfait, cela marche parfaitement.

Merci beaucoup.

Soleil11