[VBA]enregistrer en fichier excel en macro

[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 :

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 :

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 :

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

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.

[olivier45fr]

j'ai la version 6.5.1

sinon tu l'utilise comment "Event AfterRefresh()"

car je ne suis pas tres doué sur macro

a+

[nuke_y]

Tu écris ça dans la partie code VBA de ton document BO :

Code :

1
2
3
Private Sub Document_AfterRefresh()
ActiveDocument.ExportAsPDF ("D:\test.pdf")
End Sub

Evidemment moi j'exporte en PDF vu que je n'ai pas d'export en Excel...

[olivier45fr]

un grand merci


a+

[jefpgm]

bonjour la solution que j'ai trouve a ce probleme est la suivante

je sauvegarde mon fichier en html
ensuite je recupere le fichier genere et je le renomme en xls
ca marche bien en plus le rapport conserve intégralement la mise en forme seul petit hic la taille du fichier excel qui une fois ouvert et sauvegardé au format xls diminue fortement

cdlt

[jazziestan]

bonjour,

j'ai mis du temps à revenir sur le sujet mais c'est génial

par contreil me reste un problème lorsque je programme des raffraîchissements automatiques "une seule fois" à une heure précise, il me relance le raffraîchissement toutes le minutes, ce qui fait que je ne peux pas lancer d'autre raffraîchissement de requêtes plus longue après.


Je suis peut être pas très clair.

j'ai essayé de modifier le code sql come spécifié dans l'aide et là encore zéro pointé, il n'aime pas..........


ce que je cherche à faire c'est raffraîchir et enregistrer mes requêtes la nuit, certaines étant beaucoup plus ongue que d'autres.................


si vous avez des suggestions je suis preneuse.

[nuke_y]

Euh ça n'a rien à voir avec le sujet précédent, si ?

Tu peux ouvrir un nouveau sujet sur ton problème spécifique stp, ça sera plus clair.

Merci

[jazziestan]

ok