Discussion :

[anilam]

Bonjour,

je cherche un peu d'aide sur l'export d'un rapport BO en CSV.

J'ai trouvé un début de code VBA qui me permet de raffraichir le rapport souhaité mais je ne sais pas :
- exporter en CSV (séparateur ";")
- exporter un fournisseur de données (et non la mise en forme dans un onglet du rapport)

D'ailleurs, en VBA on créé un objet de classe "businessobjects.application", comment connaitre les fonctions et propriétés disponibles pour cette classe d'objet ?
Mais s'il existe un autre moyen que par du vba je suis preneuse également...

D'avance merci !!

[bastoonet]

Je ne connais pas ton besoins exactement, mais tu peux directement via le cube de données dans BO tu peux directement extraire les données de chaque "fournisseurs" sous forme de fichier CSV.

tu selectionne ta requete > dans l'onglet résultats tu clic sur exporter> tu selectionne (tout fichier dans le type) et tu choisis le séparateur que tu veux (ex : ";")

et voila

[anilam]

Je ne connais pas ton besoins exactement, mais tu peux directement via le cube de données dans BO tu peux directement extraire les données de chaque "fournisseurs" sous forme de fichier CSV.

tu selectionne ta requete > dans l'onglet résultats tu clic sur exporter> tu selectionne (tout fichier dans le type) et tu choisis le séparateur que tu veux (ex : ";")

et voila

Bonjour
c'est exactement ce que je cherche à faire, mais en automatique, sans intervention d'un utilisateur (raffraichissement de 20 rapports tous les 15 jours)

Je me dis que si on peut le faire via l'interface, il existe un moyen de l'automatiser...

[bastoonet]

en cherchant 1 minute sur google j'ai trouvé ceci...

http://www.forumtopics.com/busobj/vi...c.php?p=206608

[anilam]

Bonjour,

merci bastoonet pour cette mise sur la voie !

Je suis quasiment arrivée à mes fins !! J'exporte bien les fournisseurs de données. L'idéal serait que je puisse changer de séparateur dans mon export CSV : ici virgule, comma, je sais bien... mais comment afficher le bon vieux point virgule ?

Si vous avez des idées

En attendant, voici le code qui pourra éviter aux prochains de se prendre la tête....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub macro_csv()
 
    Dim strOutputFileName As String
 
    'création objet application
    Set appBO = CreateObject(Class:="businessobjects.application")
    'login : "user","mot de passe", "mode offline"
    appBO.LoginAs "", "", False
 
    'affichage des invit utilisateur => non ! sinon la boite de saisie des paramètres utilisateur est affichée
    appBO.Interactive = False
 
    'ouverture de mon rapport BO
    Set docBO = appBO.Documents.Open("C:\mon_rapport.rep")
 
    'passage des paramètres à mes invites créées sous BO
    docBO.Variables.Item("Couleur ?").Value = "Black"
    'raffraichissement du rapport
    docBO.Refresh
    'sauvegarde du rapport raffraichi
    docBO.Save
 
 
    'sélection du premier fournisseur de données
    Set boDP = docBO.DataProviders.Item(1)
    'déclaration de mon chemin de création du CSV
    strOutputFileName = "C:\founisseur1.csv"
    'export des données du fournisseur vers les formats suivants (ici le 5, export csv)
    '1 ni csv ni Excel, 2 Excel .XLS, 3 inconnu, 4 exportCSVTabs, 5 "ExportCSV,", 6 Excel .XLS, 7 erreur
    'le second param est le numéro du microcube, 0 indiquant tous les microcubes du fournisseur
    Call boDP.ConvertTo(5, 0, strOutputFileName)
 
 
    'fermeture et désinstanciation des objets
    appBO.Quit
    Set boDP = Nothing
    Set docBO = Nothing
    Set appBO = Nothing
 
End Sub