Discussion :

[jazziestan]

Puisque tu le demande nuke_Y voici:

merci

le but est de faire enregister la requête en .xls une fois qu'elle est raffraichi.

La seule solution que je vois c'est qu'une macro le fasse et qu'elle se lance automatiquement à la fin du raffraîchissement.

J'ai déjà programmé sur excel avec vba et je me débrouille, je suis pas une super pro mais bon je système D est efficace. Par contre là je séche.

Si tu as une solution elle sera la bien venu.

[nuke_y]

Ok merci.

Je ne connais pas ta version de BO mais la mienne ne propose pas l'enregistrement sous forme de fichier Excel, donc tu risques de ne pas avoir d'API pour le faire. A la rigueur je te suggère de créer un document Excel dans ta macro et de copier-coller les données du document BO dans la macro Excel en macro. Pour le provoquer après un refresh tu dois pouvoir utiliser l'événement

Code :

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

Event AfterRefresh()

[jazziestan]

de rien

j'ai la version 6.5 et oui je sais avec les versions précédente on ne peut que enregistrer sous format texte. Ce n'est pas grave.

Par contre, dans ce cas : sais tu enregistrer par l'intermédiaire d'une macro en format texte, j'adapterais ensuite.

[nuke_y]

Un rapport en PDF et en Texte :

Code :

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

1
2
3
4
5
6
7
Dim doc As Report
 
   Set doc = Application.ActiveDocument.Reports.Item(1)
   doc.Activate
 
   ActiveReport.ExportAsPDF ("C:\truc.pdf")
ActiveReport.ExportAsText("C:\truc.txt")

Un document en PDF et en Texte :

Code :

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

1
2
3
4
5
6
Dim doc As Report
 
   Set doc = Application.ActiveDocument
 
  doc.ExportAsPDF ("C:\truc.pdf")
  doc.ExportAsText("C:\truc.txt")

[olivier45fr]

Bonjour

voici pour excel

Code :

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

1
2
3
4
5
6
7
Dim doc As Report
 
   Set doc = Application.ActiveDocument.Reports.Item(1)
   doc.Activate
 
   ActiveReport.ExportAsPDF ("C:\truc.pdf")
ActiveReport.ExportAsExcel("C:\truc.xls")

par contre je n'arrive pas a la faire fonctionner avec Event AfterRefresh()

merci de vos reponses

cdt

olivier

[nuke_y]

En quelle version es-tu Olivier ? Parce que dans ma version (5.1.4) la méthode ExportAsExcel n'existe pas (sinon je l'aurai citée) et provoque une erreur d'exécution 438 si on essaye de l'utiliser.