Discussion :

[derech]

En fait c'est bon j'ai cette procédure dans vb sous BO (qui me permet d'exporter la requête dans excel)

Code VBA :

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

1
2
3
4
5
6
7
8
9
Sub export()
 
Dim item(1) As Document
 
Set item(1) = Application.Documents.Open("G:\Members\V\Docs\Business Object\Odyssey 031207(1).rep")
 
ActiveReport.ExportAsExcel ("G:\Members\V\Docs\Business Object\Résultat Odyssey\Odyssey.xls")
 
End Sub

et celle-ci sous Excel (qui me permet de copier mes nouvelles données dans mon classeur et lancer ainsi ma macro avec les nouvelles données de la requête)

Code VBA :

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
Sub copie()
'On efface les anciennes data
Workbooks("X.xls").Activate
Worksheets("data").Activate
Range("A1:U65000").Select
Selection.ClearContents
 
Workbooks.Open Filename:="G:\Members\V\Docs\Business Object\Résultat Odyssey\Odyssey.xls"
Range("B4:T65000").Select
Selection.Copy
 
Workbooks("X.xls").Activate
Worksheets("data").Activate
Range("A1").Select
ActiveSheet.Paste
 
End Sub

Donc tout ça fonctionne, je vais essayer de l'optimiser et je te tiens au courant
Merci pour ton temps

[Bruno2r]

Merci d'avoir mis ton code, c'est sympa pour les autres ce forum veut être un leu de partage ... on essaie
Et n'oublie pas le quand si c'est OK

[bod024510]

Bonjour,

Je rencontre le même pb que derech... et je ne trouve aucune solution nulle par ailleurs, j'ai besoin d'aide svp !
J'ai BO 6.5, je souhaite exporter les résultats de ma requête BO sous Excel, j'ai un code qui rafraîchit ma requête puis doit coller le résultat via la commande "copier tout"
Je n'ai aucun message d'erreur lors de l'exécution de ma macro, le pb quand je vais voir le fichier Excel spécifié pour l'export je retrouve le code...?!

Quelqu'un aurait il une idée svp ?

Par avance merci