Discussion :

[Alexandra0907]

Bonjour,
Voila j'utilise une des macros qui ouvre des fichiers business object, qui les met à jour, qui les referme et qui actualise les données dans Excel. Mais le probléme c'est qu'a chaque macro il ouvre BO et le referme pour le réouvrir à la macro suivante etc...
Ce qui provoque une perte temps. Est ce que quelqu'un connait un code qui permet de garder BO ouvert pour la macro suivante. merci pour votre aide

[fring]

Quand tu dis "à chaque macro on ouvre BO" c'est la même macro utilisée plusieurs fois dans un seul classeur Excel, ou différentes macros dans un seul classeur Excel, ou à chaque fois des macros différentes dans des classeurs Excel différents ?

[zyhack]

Bonsoir

Pour une fois c'est moi qui ai besoin d'éclaircissement.

Que signifie BO ?

[fring]

Voila j'utilise une des macros qui ouvre des fichiers Business Object
Ce sont des fichiers d'analyse de données d'entreprises

[fred65200]

bonsoir,

BO signifie je crois dans ce cas Business Object (un fichier .rep par exemple).
Cordialement

[zyhack]

Merci pour cette précision, je n'avais pas fait le rapprochement avec le texte

Comme Fring, je pense qu'il manque quelques informations. peut être une explication de l'architecture des macros voir même un bout de code.

bonne soirée

[fring]

Je ne connais pas spécifiquement ce logiciel mais je me dis qu'il doit y avoir en début de procédure un truc du style

Code :

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

Set BO = New BusinessObject.application

pour l'ouverture de l'application et en fin de procédure

Code :

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

BO.Quit

pour la fermeture

A partir de là, selon l'utilisation de la macro, ou des macros (dans un classeur, plusieurs classeurs, une procédure, plusieurs procédures), on doit pouvoir gérer l'ouverture et la fermeture de BO

[Alexandra0907]

J'utilise plusieurs macros différentes dans un même classeur.
Je vous met l'exemple de fin d'une macro et le début d'une macro qui suit :

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
Selection.QueryTable.Refresh BackgroundQuery:=False
        ActiveWorkbook.Sheets("Capteur PS H Succ").Tab.ColorIndex = 4
        Application.Run _
            "'P6-002 Récap Hebdomadaire - Capteurs V18_S.xls'!Bouton12_QuandClic"
        Range("K91").Select
        ActiveCell.FormulaR1C1 = "OK"
        Range("M91").Select
        ActiveCell.FormulaR1C1 = "OUI"
        Sheets("Mise à Jour").Select
    End If
If Réouverture_BO = "O" Then appBO.Quit
End Sub
Sub Capteur_PS_M()
Dim appBO As busobj.Application
Dim docBO As busobj.Document
Dim repBO As busobj.Report
Dim promptText1 As String
Dim promptText2 As String
Dim prompt1 As Variable
Dim prompt2 As Variable

Merci

[Alexandra0907]

G oublier la partie la plus importante du début du code

Code :

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

1
2
3
4
5
6
7
8
Sheets("Capteur PS M").Select
ActiveSheet.Calculate
Application.DisplayAlerts = False
Set appBO = New busobj.Application
appBO.Interactive = True
Réouverture_BO = Evaluate("Réouverture_B.O")
Refresh = Evaluate("Refresh")
If Réouverture_BO = "N" Then GoTo suite

[fring]

Re,

Je poursuis mon idée, celle-ci étant d'ouvrir BO et de le fermer en même temps que le classeur Excel. Il faudrait donc retirer dans chaque macro ce qui concerne l'ouverture et la fermeture de ce programme, ensuite mettre ces bouts de code dans l'objet ThisWorkbook

Code pour déclaration de la variable appBO :

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

Public appBO As busobj.Application

Code pour l'ouverture de BO :

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

1
2
3
4
Private Sub Workbook_Open()
Set appBO = New busobj.Application
appBO.Visible = True
End Sub

Code pour la fermeture de BO :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
appBO.Quit
End Sub

[Alexandra0907]

Merci pour votre aide mais ca ne marche pas car même si BO s'ouvre au début de la macro, la fênêtre n'est pas reconnu active. En faite je pense qu'il faudrait juste trouver le code qui permet à l'ordinateur de reconnaitre que BO est ouvert et de le rendre actif.

[fring]

Pour rendre la fenêtre BO active, tu peux essayer simplement

Code :

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

appBO.Activate

[Alexandra0907]

Ca ne marche pas ca m'affiche un message d'erreur. merci quand même

[fring]

Je peux difficilement t'en dire plus n'ayant jamais utilisé ce programme ni même jamais vu à quoi ça ressemble.

Eventuellement colle ici tes différents codes (codes entiers, pas juste des morceaux) des fois que quelqu'un aurait une solution