Access : orientation du texte spreadsheet

Bonjour,

En fait, je ne travaille plus avec le module spreadsheet d'access, j'exporte directement dans Excel avec le code suivant :

Dim xlApp As Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim i, j, k As Long
Dim rec1 As Recordset

Set rec1 = CurrentDb.OpenRecordset("Ma table", dbOpenSnapshot)

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlsheet = xlBook.Worksheets.Add
xlsheet.Name = "Ma table"

i = 2 (numéro de la ligne sur laquelle tu veux commencer)

Do While Not rec1.EOF
For j = 0 To rec1.Fields.Count - 1
xlsheet.Cells(i, j+1) = rec1.Fields(j)
Next j
i = i + 1
rec1.MoveNext
Loop

Ensuite tu peux piloter pour mettre des noms de champs :
xlsheet.range("A1").value="Ce que tu veux"
Sur ce même format, tu peux faire ta mise en foreme, insérer des formulmes de calcul,... tout comme dans Excel.

Bon courage !

@arzaweMerci de ta reponse !

en réalité je cherche a ne plus passer par excel. Je realise une interface sous vba et dans mon userform j'ai donc inséré un controle spreadsheet.
je cherchais donc a passer directement de access au spreadsheet sans passé par excel pour que le module aille plus vite. actuellement je fais access->excel->vba spreadsheet alors que je voudrais faire access->vba speadsheet. ca semble possible avec ton code mais je n'arrive pas a utiliser l'objet recordset.

par ailleurs sais-tu comment on fait pour, une fois la table affichée dans excel, faire que les modifications réalisée sous excel soient envoyées et modifie aussi la table access ?

avec tous mes remerciements !