Discussion :

[BipBipBO]

Bonjour,

J'ai le client lourd Deski XiR2, je souhaite savoir comment créer une macro VBA pour automatiser l'enregistrement du rapport BO (avec un seul onglet) dans un fichier CSV ?

Un Expert VBA est le bienvenu pour m'accompagner dans la création de cette macro

Car en ce qui me concerne ... je suis nul en VBA

[TomDuBouchon]

Bonjour,

En fait, tout dépend de ce que tu as et de ce que tu veux obtenir...

Que cherches-tu à exporter ?
- Ton rapport ?
- Les donnée de ton cube ?

Comment veux-tu l'exporter ?
- Garder la mise en forme ?
- Conserver les éventuels filtres placés sur le rapport ?

Quand veux-tu l'exporter ?
- Au rafraichissement du rapport ?
- A l'enregistrement du rapport ?
- A la fermeture du rapport ?

Ci-dessous le code à placer pour faire un simple export du rapport vers un fichier csv au moment de la sauvegarde du rapport. (chemin est l'emplacement, le nom et l'extension du fichier cible)

Code :

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

1
2
3
4
5
Private Sub Document_BeforeSave(Cancel As Boolean)
    Dim chemin
    chemin = "C:\toto.csv"
    ThisDocument.Reports(1).ExportAsText (chemin)
End Sub

[BipBipBO]

Merci TomDuBouchon pour ta réponse rapide

Que cherches-tu à exporter ?
- Ton rapport ?
- Les donnée de ton cube ?
[/code]

Je souhaite exporter les données de mon cube.
De la même façon que l'option exporter du microcube mais avec des ";" et non des ","

Comment veux-tu l'exporter ?
- Garder la mise en forme ?
- Conserver les éventuels filtres placés sur le rapport ?
[/code]

Dans un premier temps exporter les données brutes.
On verra plus tard si j'ai besoin de la mise en forme et des filtres.

Quand veux-tu l'exporter ?
- Au rafraichissement du rapport ?
- A l'enregistrement du rapport ?
- A la fermeture du rapport ?
[/code]

J'aimerai que le rapport s'ouvre automatiquement (via un fichier .BAT - pour ça je dois avoir la solution)
A l'ouverture le rapport rafraichit les données et les exporte dans le fichier CSV

Ci-dessous le code à placer pour faire un simple export du rapport vers un fichier csv au moment de la sauvegarde du rapport. (chemin est l'emplacement, le nom et l'extension du fichier cible)

Code :

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

1
2
3
4
5
Private Sub Document_BeforeSave(Cancel As Boolean)
    Dim chemin
    chemin = "C:\toto.csv"
    ThisDocument.Reports(1).ExportAsText (chemin)
End Sub

J'ai fait un simple copier/coller du VBA dans le REP ; enregistré le tout ; ré ouvert le REP ; rafraichit les données ; enregistré le REP ... et la pas de toto.csv dans mon C:\
Donc je te confirme, je suis vraiment nul avec le VBA

As-tu besoin de plus d'info ?

[TomDuBouchon]

Je te laisse voir le problème du .bat

Sinon, je te conseille pour le rafraichissement de cocher la case "rafraichir le document à l'ouverture" dans Outis > Options > Enregistrement

Ensuite, pour le code, il faut se placer dans Project(tonfichier.rep) > BusinessObjects Objects > ThisDocument (tonfichier.rep)
et ensuite, dans la fenêtre de code, placer ce qui suit :

Code :

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

1
2
3
4
5
Private Sub Document_AfterRefresh()
    Dim chemin As String
    chemin = "C:\toto.csv"
    Call ThisDocument.DataProviders.Item(1).ConvertTo(boExpAsciiCSV, 1, chemin)
End Sub

Par contre, je n'ai pas trouvé de moyen pour spécifier le séparateur, qui sera par défaut ","

[BipBipBO]

EXCELLENT !!!

Penses-tu pouvoir trouver mon problème de virgule ?

[BipBipBO]

Tout compte fait, je souhaite pouvoir récupérer la mise en forme dans mon CSV

Dans mon REP j'ai une colonne avec ="AB" & <id>
Dans mon CSV j'ai le numéro de l'id mais je perd le caractère "AB"

Avez-vous une solution ?

[TomDuBouchon]

Dans ce cas là, le code est plus simple :

Code :

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

1
2
3
4
5
Private Sub Document_AfterRefresh()
    Dim chemin As String
    chemin = "C:\toto.csv"
    ThisDocument.Reports(1).ExportAsExcel (chemin)
End Sub

[BipBipBO]

SUPER

[jeelig]

Veuillez m'excusez je suis débutant en VBA.
J'ai testé ce code, mais avant tout j'ai une question, comment marche la méthode reports et surtout a quel type d'objet correspond ThisDocument.
Personnelment j'ai un classeur xlBook auquel je veux qppliquer la méthode reports et cela ne semble pas marcher? pouvez vous m'éclairer sur la question?
Merci

[TomDuBouchon]

Bonjour,

ThisDocument est un objet de type BusinessObjectsDocument. Et la méthode Reports permet de parcourir les différents "onglets" du fichier BO correspondant.

Par contre, je ne connais pas les méthodes relatives à xlBook mais il doit sans doute y en avoir une qui produit le même résultat.