[BO 5]][VBA] Quitter sans sauver

**yoann7** · 19/11/2007, 16h10

Bonsoir à tous, j'ai une petite question bete.
J'ai fait une macro pour ouvrir, rafraichir etc BO depuis une macro sur excel, mais j'ai pas trouvé comment quitter BO sans sauvegarder...

Ah et j'ai ça qui s'affiche quand BO rafraichi (cela prend un moment) "Excel attend la fin de l'action OLE d'une autre application" un truc du genre, y'aurais t'il moyen que cela n'apparaisse pas ?
Merci et bonne fin de journée !

**bastoonet** · 19/11/2007, 16h29

et bien enregistrer le .rep sous un nom bidon dans la corbeille ou ailleurs !!

...sinon il doit bien y avoir moyen de "killer le processus"...mais c pas très propre...

**Bruno2r** · 20/11/2007, 07h52

Salut yoann7,
Compte tenu que tu lances l'ouverture du document BO et le rafraîchissement du ou des fornisseur(s) de données à partir d'une Macro Excel, ça ne devrait pas te poser de problème d'utiliser VBA pour fermer ton document.

Atteindre Outils/Macro/Visual Basic Editor ou Alt + F11
En haut de page, deux listses déroulantes (si elles n'y sont pas sélectionner ThisDocument à gauche dans la fenêtre Projet)
Dans celle de gauche (Général) & Document, choisir Document
Dans celle de droite, choisir AfterRefresh

Puis compléter de la façon suivante :

Code :

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

1
2
3
Private Sub Document_AfterRefresh()
Application.ActiveDocument.Close (boDontSave)
End Sub

La closeOption facultative (par défaut sans enregistrer) peut être choisie parmi les trois suivantes :
boSaveIfModified Enregistrer avant d fermer(=1)
boDontSave Ne pas enregistrer avant de fermer (=2). Par défaut
boPromptUser Demander à l'utilisateur (=3)

C'est ... Basic
Bonne journée

**yoann7** · 20/11/2007, 08h36

Oui très basique en effet...

Mais... j'ai un soucis j'ai déjà du code en thisdocument, pour faire un export sur evenement (rafraichissement), et quand je rajoute le code pour fermer sans sauver ça ne fonctionne plus...
D'ailleurs je n'arrive à exporter que le rapport 1...
(juste pour info je suis sur BO 5).
Désolé pour mes questions à la con mais je ne suis encore qu'un apprenti developpeur

**Bruno2r** · 20/11/2007, 08h41

Nous sommes tous des "apprentis" .. de ce que nous maîtriserons demain !

Il nous faut ton code AfterRefresh si nous voulons comprendre
et avec le rajout fermer sans sauver ...

**yoann7** · 20/11/2007, 08h48

alors j'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Document_AfterRefresh()
 
Dim doc As Report
 
Set doc = Application.ActiveDocument.Reports.Item(1)
doc.Activate
 
 
ActiveReport.ExportAsText ("G:\TMUB\Logistique\Appro\test\Suivi Affaire\requêtes BO\extract\OA.xls")
Application.ActiveDocument.Close (boDontSave)
End Sub

ou comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Document_AfterRefresh()
 
Dim doc As Report
 
Set doc = Application.ActiveDocument.Reports.Item(1)
doc.Activate
 
 
ActiveReport.ExportAsText ("G:\TMUB\Logistique\Appro\test\Suivi Affaire\requêtes BO\extract\OA.xls")
 
Private Sub Quitter_Document_AfterRefresh()
Application.ActiveDocument.Close (boDontSave)
End Sub

C'est un code que j'ai trouvé sur ce forum

Alors en fait l'export fonctionne mais la macro excel me rapporte que objrep.Refresh n'a pas put être exécuté correctement. (faudrait que je pense à noter correctement les messages d'erreur...)

**Bruno2r** · 20/11/2007, 10h41

Bon je recommence (électriciens pas en grève nous ont coupé l'alim sur onduleur !!!!! je finissais de rédiger ...

)

Pourquoi lancer le Refresh depuis excel ?
Tu peux paramétrer le fournisseur de données en rafraîchissement automatique
Tu peux lancer le Refresh en VB sur ouverture du document

Code :

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

1
2
Sub Document_Open()
Application.ActiveDocument.Refresh

Ensuite si tu n'obtiens qu'un rapport c'est parce que ta méthode ExportAsText s'applique au document actif
(le sauvegarder sous Microsoft Excel Worksheet n'apparaît qu'en version 6)
il te faudra donc
faire une boucle sur le nombre de rapports
et por chacun récupérer le nom dans une variable pour nommer ton fichier xls

Quand à la fermeture

Application.ActiveDocument.Close (boDontSave)

devrait marcher ...?
Peux tu essayer

Code :

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

1
2
3
4
Application.Quit
et tester en utilisant en début de code 
Set Application.Interactive = True puis = False
pour voir si ça change quelque chose j'y crois pas trop..

**yoann7** · 20/11/2007, 13h15

Alors en fait ça marche pour quitter sans sauver, c'était juste à cause de mon code pour rafraichir que cela posait problème, mais j'ai enlevé l'erreur et ça passe nikel.
Merci BRUNO2R
Hum sinon pour exporter l'autre rapport avec la boucle tu pourrais m'expliquer ?
Et as tu déjà eu ça "Microsoft Excel attend la fin OLE d'une autra application"? et sais tu l'enlever ?
Merci

**Bruno2r** · 20/11/2007, 14h17

Je n'ai jamais pratiqué d'OLE AUTOMATION Excel vers BO.

Mais ce que je t'expliquais dans ma dernière réponse c'est que :
Ta macro Excel peut ouvrir le document Bo
Elle n'a pas besoin d'ouvrir un canal de comunication vers BO pour lancer le Refresh
Puisque ce dernier peut être intégrer à ton code VB dans

Code :

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

1
2
3
Sub 
Document_Open()
Application;ActiveDocument.Refresh

Tu peux d'ailleurs laisser le reste du code dans

Code :

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

Sub AfterRefresh

Dès lors Excel ouvre le .rep

A l'ouverture celui ci lance le refresh
Et après le refresh il exporte et ferme.

Pour ce qui est de l'export des différents rapports (onglets)

Il te faut :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
```
Compter le nombre de Reports
```
Faire une boucle sur i de 1 à nbreports

**yoann7** · 20/11/2007, 15h25

Alors maintenant mon code c'est ça sur BO:

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
Private Sub Document_AfterRefresh()
 
Dim doc As Report
Dim doc2 As Report
 
Set doc = Application.ActiveDocument.Reports.Item(1)
doc.Activate
ActiveReport.ExportAsText ("G:\TMUB\Logistique\Appro\test\Suivi Affaire\requêtes BO\extract\OA.xls")
 
Set doc2 = Application.ActiveDocument.Reports.Item("Rapport2")
doc2.Activate
 
ActiveReport.ExportAsText ("G:\TMUB\Logistique\Appro\test\Suivi Affaire\requêtes BO\extract\POA.xls")
 
Application.ActiveDocument.Close (boDontSave)
 
 
End Sub

Tout marche nikel mes exports se font sauf que quand c'est fini et bien il me sort un mémoire ne peut pas être read avec un rapport a transmettre a l'equipe technique de business object....

edit: bon en fait quand je lance mon prog principal en appelant les parti de code tout marche nikel.

**Bruno2r** · 20/11/2007, 15h57

Bon là ça sent le bug version 5 (élevage de scarabés)

Je ne vois plus qu'une solution :

Code :

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

1
2
utiliser
SendKeys ¨^(W)"

**yoann7** · 20/11/2007, 16h27

ça sert à faire quoi exactement ça ?
Se serait donc un bug ?...

Rooo je galère la, quelqu'un saurait il appliquer une formule qui est dans une cellule sur toute une colonne mais avec un nombre de ligne variable ?
La j'ai essayé en créant dans une cellule un nbval pour avoir le nombre de ligne et reprendre cette valeur avec une variable pour que mon programme colle la formule sur le bon nombre de ligne, mais il veut rien savoir...

En tout cas j'en aurais apprit en faisant ce programme et la j'en suis qu'a 5% de l'avoir fini...

**Bruno2r** · 20/11/2007, 16h43

1ère question : Ca sert à quoi ?
Ca exécute Ctrl + W équivalent à Ctrl+F4 ou Fermer

Pour l'autre problème, crée un nouveau sujet, c'est pas pour être chiant c'est pour garder dans ce forum des sujets en rapport avec le contenu des échanges.
Merci