Discussion :

[devdev]

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.

[aalex_38]

Effectivement subtotal ne fait pas partie de l'objet RAnge utilises plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.Subtotal

edit : c'est une erreur il en fait bien partie (cf Aide VBA)

[devdev]

Merci de ta réponse,
j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlapp.WorksheetFunction.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(24), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

mais ca ne fonctionne pas, j'ai un message "erreur définie par l'application"

[devdev]

J'ai aussi ce pb en essayant de sauvegarder le document, depuis access :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlapp.ActiveWorkbook.SaveAs Filename:="C:\monappli\CCC.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Message d'erreur : la méthode a échoué...

[aalex_38]

Essai comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlapp.Workbooks("Nom du classeur").SaveAs Filename:="C:\monappli\CCC.xls"

[devdev]

Merci pour la commande pour sauvegarder le document, ca marche très bien !
Par contre, toujours le même problème pour les sous totaux...

[aalex_38]

Le mieux est peut être de faire des recherches sur Subtotal en VBA excel, sinon je cherche de mon côté.