Discussion :

[ADUS145]

Bonjour

je voudrais savoir comment peut-on exporter deux Etats Access dans un seul classeur Excel de deux onglets (1 onglet pour 1 Etat).

Pour l'instant, j'ai enregistré le code suivant (attaché à un bouton d'un formulaire)

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
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Commande10_Click()
 
 
Dim xlapp As Excel.Application
Dim stDocName As String
Dim xlsheet As Excel.Worksheet
Dim excelsheet As Object
Dim xlbook As Excel.Workbooks
Dim cell As Excel.Range
 
'j'exporte mon premier état nommé circu
 
stDocName = "circu"
 
Set xlapp = CreateObject("Excel.Application")
 
With xlapp.Application
 
.Visible = False
.Workbooks.Open ("C:\Documents and Settings\adus145\Application Data\Microsoft\Excel\XLSTART\perso.xls")
 
End With
 
DoCmd.OutputTo acOutputReport, stDocName, acFormatXLS, "", True
 
xlapp.Application.Run ("PERSO.xls!MEF")
 
 
Set xlapp = Nothing
Set xlbook = Nothing
 
End Sub

Précision : MEF est une macro permettant une mise en forme sous excel enregistré dans les macro personnelles sous Excel

je n'arrive pas ensuite à exporter le deuxième état (nommé Flux).

Merci pour votre aide

ADUS145

[helas]

Le fichier n'est pas précisé dans l'exemple
Peut-être cette syntaxe
sous Access 2007, cette commande ne fonctionne pas.

Code :

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

1
2
3
4
5
6
 
 fichier="c:\test.xls!un"
 DoCmd.OutputTo acOutputReport, "etat1", acFormatXLS, fichier
 
 fichier="c:\test.xls!deux"
 DoCmd.OutputTo acOutputReport, "etat2", acFormatXLS, fichier