Bonjour,

Je génère un fichier excel depuis access, mais je n'arrive pas à faire des sous totaux. Je poste ce message ici mais peut être devrais le poser dans le forum access.

Voici mon code access :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlapp.workbooks.Open ("monappli.xls")
xlapp.Range("A2").Select
xlapp.ActiveSheet.Paste
xlapp.Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(24), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Tout fonctionne, sauf la ligne en rouge. Le code est pourtant issue de la macro, mais il doit pas être reconnu dans access.

Voici le message d'erreur :
La méthode subtotal de la classe range a échoué.

Merci de votre aide svp.