[BO 6][VBA] Rafraichir une requete en VB [Résolu]

[derech]

Bonjour,

j'utilise BO.6 et je souhaiter automatiser mes requetes. J'attends les autorisations du support informatique pour acceder à VBA dans BO.

Je souhaite que ma procédure fasse les choses suivantes:

- Ouvrir BO et la requete
- Rafraichir
- Enregistrer la requete sous excel

Voici le début de ma procédure qui ouvre ma requete BO(c'est un code trouver sur le forum)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub LanceBO()
Dim objBO, objrep
 
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.6")
 
'Connecte l'utilisateur
objBO.LoginAs "xxx", "xxx", True ' (False si connection automatique)
 
 
'Ouvre le rapport
Set objrep = objBO.Documents.Open("G:\Members\v\Docs\Business Object\Odyssey 031207.rep")
 
'Affiche BO
objBO.Visible = True
 
'Rafraichir la requete
objBO.Refresh 
'Ici j'enleve cette ligne car j'ai coché la case "rafraichir automatiquement la requete dans le menu tools\Options\save"
 
End Sub

Ensuite en ce qui concerne l'exportation de ma requete BO vers excel c'est un peu plus compliqué pour moi. J'ai vu quelques procédures VB qui réalise cette action mais je n'ai pas tout compris.

Quelqu'un peut il m'éclairer la dessus svp? Merci

[Bruno2r]

Bonsoir,
Je ne comprends pas .....
Tu dis vouloir automatiser à l'aide de VBA dans BO.
Je ne vois pas à quoi te servira ce code

Code :

1
2
3
4
5
6
7
8
Sub LanceBO()
Dim objBO, objrep
 
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.6")
 
'Connecte l'utilisateur
objBO.LoginAs "xxx", "xxx", True ' (False si connection automatique)

Qui semble plutôt être un VB hors BO (typiquement ce que l'on croise ici du VB Excel qui veut piloter BO)
puisque ce code lance BO
se connecte à une session BO avec ID et password.

Donc il vaut mieux que tu te créée un document BO porteur de ton VBA et qui à l'ouverure ouvrira un à un tes rapports, les rafraîchira ...

[Bruno2r]

J'ai fait l'impasse sur l'export
Dans

Code :

1
2
Private Sub Document_AfterRefresh()
Doc.ExportAsExcel("Lecteur:Chemin\Nomdufichier.xls")

[derech]

Bonjour Bruno2r,

en fait je découvre BO donc je ne connais pas toutes les possibilités.
Je vai préciser mon projet:

je souhaite créer un deuxième bouton sur un classeur excel ou j'ai déja une macro existente.

Le boutton:

-Ouvre BO, raffraichi et exporte ma requete dans un onglet "Data" de mon classeur
- puis lance ma première macro déja existente pour mettre à jour le classeur avec mes nouvelles données issues de l'extraction BO. (Donc je copie le report dans l'onglet "Data" puis je m'en sert de base pour creer différents report dans différents onglets)

Qu'en penses tu ? Est il mieux de créer un document BO porteur de mon VBA ou bien d'insérer une nouvelle procédure VB excel pour piloter BO? Sachant que je souhaite automatiser tout le processus en 1 ou 2 clics.

Merci pour ta réponse.

[Bruno2r]

Envoyé par derech

Bonjour Bruno2r,
en fait je découvre BO donc je ne connais pas toutes les possibilités.
Je vai préciser mon projet:
je souhaite créer un deuxième bouton sur un classeur excel ou j'ai déja une macro existente.
Le boutton:
-Ouvre BO, raffraichi et exporte ma requete dans un onglet "Data" de mon classeur

Comment ? en DDE
c'est à dire que tu as fait au départ ? :
Gestionnaire de données
Exporter
Copier vers un DDE ???
ou sinon quelle méthode ?

Envoyé par derech

- puis lance ma première macro déja existente pour mettre à jour le classeur avec mes nouvelles données issues de l'extraction BO.

Bah si tu utilises la méthode Copier vers DDE ci dessus il suffit de mettre à jour la liaison ...

Envoyé par derech

(Donc je copie le report dans l'onglet "Data"

Tu copies ou tu colles ?
Tu copies où ? Tu colles où ?

Envoyé par derech

puis je m'en sert de base pour creer différents report dans différents onglets)

Je m'en sers de Base ???
différents reprts ... onglets ... dans BO ?

Envoyé par derech

Qu'en penses tu ? Est il mieux de créer un document BO porteur de mon VBA ou bien d'insérer une nouvelle procédure VB excel pour piloter BO? Sachant que je souhaite automatiser tout le processus en 1 ou 2 clics.

Voilà ce que j'ai compris :
Excel lance BO
Ouvre le document BO
Excel lance le rafraichissement ou le document est automatiquement rafraichi à l'ouverture (peu importe)
la première macro (excel ? 1er bouton ?) met à jour le classeur
Pas besoin de macro pour ça : DDE
Dans l'onglet Dataqui te sert de base ?? pour faire de nouveaux rapports ??
Mais au passage les données tu leur fait quelquechose ?
Explique !

[derech]

Pardon je me suis mal exprimé, je reprends:

J'ai un classeur excel et avec une procédure VB. Ma macro se lance via des bouttons sur les différents onglets. Ma macro se sert de données que je colle manuellement dans l'onglet "data".

Maintenant j'utilise BO pour aller chercher ces memes données. Donc je veux copier le Report de BO et le coller dans mon classeur, onglet "data". Bien entendu je veux que mon extraction se lance automatiquement et je veux que tout soit automatisé avec des bouttons.

Voilà ce que j'ai compris :
Excel lance BO
Ouvre le document BO
Excel lance le rafraichissement ou le document est automatiquement rafraichi à l'ouverture (peu importe)

Oui

la première macro (excel ? 1er bouton ?) met à jour le classeur
Pas besoin de macro pour ça : DDE
Dans l'onglet Dataqui te sert de base ?? pour faire de nouveaux rapports ??
Mais au passage les données tu leur fait quelquechose ?

L'onglet Data de mon classeur regroupe les données dont je me sers dans ma macro. Ce sont les données brut du report BO. A partir de ces données je créé d'autres report dans les différents onglets.

[Bruno2r]

Au sujet de

Maintenant j'utilise BO pour aller chercher ces memes données. Donc je veux copier le Report de BO et le coller dans mon classeur, onglet "data". Bien entendu je veux que mon extraction se lance automatiquement et je veux que tout soit automatisé avec des bouttons.

La solution (tu devrais essayer pour en juger par toi même)
Dans BO :

Gestionnaire de données
Sélectionner la requête
Exporter
Copier vers un DDE >> Message export réussi

Aller dans Excel
Te mettre dans la 1ère cellule en haut à gauche de tes données ou d'une nouvelle feuille
Collage spécial
Dans la boite de dialogue Collage spécial choisir coller avec liaison.

A partir de là, il te suffira :
d'ouvrir ton document BO
de le rafraichir

Basculer vers Excel
Mettre à jour les liaisons (ça doit bien pouvoir se faire avec la macro)
Enregistrer

Basculer vers BO
Enregistrer
Fermer

[derech]

Ok je viens de le faire c'est bon

Basculer vers Excel
Mettre à jour les liaisons (ça doit bien pouvoir se faire avec la macro)
Enregistrer

Comment procède t-on pour mettre à jour les liaisons?

[Bruno2r]

Comment procède t-on pour mettre à jour les liaisons?

Pour mettre à jour les liaisons il faut
N'avoir qu'une session BO ouverte
Que le document soit BO alimenteur soit ouvert
Trouver en VB Excel le

Code :

1
2
Do Cmd je pense 
équivalant à Menu Edition / Liaisons / Mettre à jour les valeurs

Je m'étais trompé tout à l'heure en disant Fichier de mémoire

[derech]

Merci pour toutes ces précisions Bruno

Pour mettre à jour les liaisons il faut
N'avoir qu'une session BO ouverte
Que le document soit BO alimenteur soit ouvert
Trouver en VB Excel le
Code :
Do Cmd je pense
équivalant à Menu Edition / Liaisons / Mettre à jour les valeurs

Dans le menu edition de ma fenetre BO, l'onglet Liaisons est grisé, est ce que cela est du au fait que je n'ai pas encore reçu les autorisations concernant VBA dans BO?

Autre chose:

Je suis pas un crack en VB, j'ai commencé il y a peine deux mois et j'apprends entre autre grace à ce forum. Aurez-tu un exemple de procédure VB sous la main qui réalise les actions dont on parle?
Faut-il que je poste plutot sur le forum excel VBA?

Merci

[derech]

Ah oui j'allais oublié, qu'est ce qu'une invite en language BO?

[Bruno2r]

oui vb excel sur forum excel
on va pas piquer le boulot aux copains

Liaisons dans Menu Edition de BO est grisé car aucun objet DANS BO n'est une liaison d'un objet extérieur.

Moi je te parlais de Edition /Liaisons dans Excel
si tu as bien fait collage spécial Coller avec liaison bien entendu.

[derech]

Ah ok, oui c'est bon je l'ai fais

[derech]

Moi je te parlais de Edition /Liaisons dans Excel
si tu as bien fait collage spécial Coller avec liaison bien entendu

Petit problème, lorsque je fais paste special,j'ai le choix entre paste ou paste link. SI je fais paste link les données se collent avec une erreur dans chaque cellule. Donc j'ai fai paste tout court et la ca marche.

Est ce que c'est bon?

[Bruno2r]

Petit problème, lorsque je fais paste special,j'ai le choix entre paste ou paste link. SI je fais paste link les données se collent avec une erreur dans chaque cellule. Donc j'ai fai paste tout court et la ca marche.

Est ce que c'est bon?

A mon avis NON

C'est quoi cette version en Anglais ...
Et ton rapport était BO était encore ouvert ?
Et c'est quoi comme message d'erreur ?
Et est ce que tu a essayer de voir ce que donnent les erreurs en faisant Edition / Liaisons/ Mettre à jour les valeurs

[derech]

Mon rapport BO était encore ouvert oui
l'erreur est la suivante #N/A, et lorsque je fais edition/liaisons/mettre à jour les valeurs, rien ne se passe

[derech]

Ca me met Not applicable dans "statut"

[Ayana]

Envoyé par Bruno2r

A mon avis NON

C'est quoi cette version en Anglais ...
Et ton rapport était BO était encore ouvert ?
Et c'est quoi comme message d'erreur ?
Et est ce que tu a essayer de voir ce que donnent les erreurs en faisant Edition / Liaisons/ Mettre à jour les valeurs

paste = copie des données
paste link = copie de l'adresse des données (référence)

[derech]

Bonjour à tous,
je voudrais traduire cette action avec une procédure VB dans BO 6.

Dans BO :

Gestionnaire de données
Sélectionner la requête
Exporter
Copier vers un DDE >> Message export réussi

Aller dans Excel
Te mettre dans la 1ère cellule en haut à gauche de tes données ou d'une nouvelle feuille
Collage spécial
Dans la boite de dialogue Collage spécial choisir coller avec liaison.

j'ai appliquer ce code (trouver sur le forum) mais le problème que je rencontre est que lors du collage dans excel c'est ma procédure qui se colle et non la requete

Code :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Sub ExportExcel()
 
'Cette commande vise à automatiser l'exportation du résultat d'une requête BO
 
'vers un fichier Excel.
 
 
'Déclaration des commandes et contrôles BO
 
Dim BOCmdBar As CmdBar
 
Dim BOCmdBarControls As CmdBarControls
 
Dim BOCmdBarPopup As CmdBarPopup
 
Dim BOCmdBarButton As CmdBarButton
 
 
'Déclaration des documents standard utilisés
 
Dim affectation AS Document
 
 
'Déclaration de l'objet à créer (fichier Excel)
 
SET xcl = CreateObject("Excel.Application")
 
 
'0/ Déclaration des fichiers BO d'origine et Excel de destination
 
strFileName = "G:\Members\V\Docs\Business Object\Résultat Odyssey\Odyssey.xls"
 
SET affectation = Application.Documents.Open("G:\Members\V\Docs\Business Object\Odyssey 031207(1).rep")
 
 
'1/ Rafraichissement des données de la requête
 
'affectation.Refresh - pas besoin car raffraichissement automatique a chaque ouverture
 
 
'2/ Copie des éléments calculées par la requête
 
'   Remarque : il s'agit du 2° menu et de la 20° commande
 
Set BOCmdBar = Application.CmdBars.Item(2)
 
Set BOCmdBarControls = BOCmdBar.Controls
 
Set BOCmdBarPopup = BOCmdBarControls.Item(2)
 
Set BOCmdBarButton = BOCmdBarPopup.CmdBar.Controls.Item(20)
 
BOCmdBarButton.Execute
 
 
'3/ Ouverture du fichier Excel destinataire
 
xcl.Workbooks.Open Filename:=strFileName
 
xcl.Visible = True
 
 
'4/ Réinitialisation des données (remise à zéro)
 
'   Remarque : il faut veiller à ne pas renommer l'onglet "feuil1"
 
'   dans le fichier de destination
 
xcl.Sheets("Sheet1").SELECT
 
xcl.Cells.SELECT
 
xcl.Selection.ClearContents
 
xcl.Range("A1").SELECT
 
 
'5/ Collage des éléments dans Excel
 
xcl.Application.DisplayAlerts = False
 
xcl.Sheets("Sheet1").SELECT
 
xcl.Range("A1").SELECT
 
xcl.ActiveSheet.Paste
 
 
'6/ Sauvegarde du fichier Excel puis ON quitte Excel
 
xcl.ActiveWorkbook.SaveAs Filename:=strFileName
 
xcl.Quit
 
SET xcl = Nothing
 
 
End Sub

[Bruno2r]

Salut,
Je ne vois pas l'intérêt d'automatiser cette action de porter en DDE vers Excel le fournisseur de données.
On le fais une fois à la création du document Excel.
Ensuite je t'ai expliqué comment mettre à jour les liaisons dans Excel.
Je ne vois pas ce que tu veux rendre reproductible en VB.