Code qui permet de garder BO ouvert pour toutes les macros

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

http://fring.ftp-developpez.com/Smileys/bienvenue.png

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 ?

Bonsoir

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

Que signifie BO ?

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

bonsoir,

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

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

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

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:

---

Set BO = New BusinessObject.application

---

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

Code:

---

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

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:

---

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

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

Code:

---

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

---

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:

---

Public appBO As busobj.Application

---

Code:

---

1 2 3 4

Private Sub Workbook_Open() Set appBO = New busobj.Application appBO.Visible = True End Sub

---

Code:

---

1 2 3 4

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

---

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.

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

Code:

---

appBO.Activate

---

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

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