Export Etat avec paramètre vers excel

Version imprimable

Hello tout le monde, et merci de m'aider.

Voila, j'ai parcouru le forum ainsi que le tutorial concernant l'export vers excel mais je ne trouve pas mon cas de figure...

Exporter un etat, je sais faire.

Seulement, mon problème et que je voudrais exporter (et non pas imprimer comme j'avais écrit précédemment... sorry)un état avec les memes paramètres que lorsque je l'ouvre.

voici le code d'ouverture de l'état:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim stDocName As String Dim condition As String 'condition pour les priorités selectionnées condition = condition & "([Projects].[ID_Priority]= 999" Dim i As Integer For i = 1 To 12 If (Me.Controls("cocher" & i).Value) Then condition = condition & " OR [Projects].[ID_Priority]= " & i End If Next condition = condition & ")" stDocName = "Listing_Participations_Member" DoCmd.OpenReport stDocName, acPreview, , condition
en gros, l'utilisateur selectionne des priorités grace à des case à cocher, et en fonction de ces selections, j'affiche l'état.

est il possible de faire pareil, mais au lieu de l'afficher, l'exporter directement dans excel?

Merci beaucoup

Je pense (sans certitude absolue) que tu ne vas pas "exporter un état dans Excel" mais plutôt créer un fichier Excel en fonction de tes paramètres. En gros tu dois utiliser l'automation.

1/ Création des objets :

Code:

1
2
3
    Dim xlApp As Object
    Dim XLBook As Object
    Dim XLSheets As Object

2/ Initialisation :

Code:

1
2
3
    Set xlApp = CreateObject("Excel.Application")
    Set XLBook = xlApp.Workbooks.Add
    Set XLSheets = XLBook.Worksheets(1)

3/ Le petit plus qui fait pas de mal :

Code:

1
2
3
4
5
6
7
    xlApp.Visible = True ' ou pas
    xlApp.Calculation = xlManual
 
' ... L'ensemble de ton traitement (voir point 4)
 
    xlApp.Calculation = xlAutomatic
    xlApp.Calculate

4/ Le remplissage. Quelques exemples en tas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    XLSheets.Cells.Select
    XLSheets.Application.Selection.Font.Name = "Times New Roman"
    XLSheets.Application.Selection.Font.Size = 9
 
    XLSheets.Rows("1:9").Font.FontStyle = "Gras"
 
    XLSheets.Application.Selection.HorizontalAlignment = xlCenter
    XLSheets.Application.Selection.VerticalAlignment = xlCenter
    XLSheets.Application.Selection.WrapText = True
 
    XLSheets.Range("B1:B9").MergeCells = True
 
    XLSheets.Rows("8:9").RowHeight = 32
    XLSheets.Rows("10:10").RowHeight = 9
 
    XLSheets.Range("A1").Value = "Pouet"
    XLSheets.Range("A10").FormulaLocal = "=SOMME(C:C)"
 
    With XLSheets.Application.Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

J'espère que ça te suffira. Je pense que tu vas être obligé de te taper la mise en page de cette façon. Bon courage.

24/10/2007, 15h10
Junior_jef

Citation:

Envoyé par El_Manu

J'espère que ça te suffira. Je pense que tu vas être obligé de te taper la mise en page de cette façon. Bon courrage.

Merci pour ta réponse. Mais justement, je ne voudrais pas passer par la lourde méthode qu'est l'automation.

Il doit surement y avoir une autre solution plus rapide.

en fait, je voudrais simuler le fait que, une fois que l'état est ouvert, on clique droit dessus, et on fait "exporter" et on choisit le format excel.
24/10/2007, 15h50
Invité

Bonjour

Tu ne pourras pas importer un Etat Access tel quel dans un fichier Excel.

Les deux seules manières de conserver un Etat sous sa forme sont :

- Création d'un PDF
- Export au format Snapshot.

Sinon il y'a la solution de El_Manu, mais hardue.

Je ne vois pas le but de l'exporter sous Excel.

Starec
24/10/2007, 16h02
Junior_jef

Citation:

Envoyé par Starec

Bonjour

Tu ne pourras pas importer un Etat Access tel quel dans un fichier Excel.

Les deux seules manières de conserver un Etat sous sa forme sont :

- Création d'un PDF
- Export au format Snapshot.

Sinon il y'a la solution de El_Manu, mais hardue.

Je ne vois pas le but de l'exporter sous Excel.

Starec

J'ai du mal m'exprimer.

C'est en fait la requete (donc les données) sur laquelle l'état se base, que je veux exporter(exactement, comme si j'ouvrais l'état, que je faisais un clique droit dessus, "exporter", et qu'ensuite je choisissais le format excel).

Seulement, lorsque j'ouvre cet état à partir du formulaire, j'envoie des paramètres(choisi par l'uilisateur sur le formulaire) supplémentaires à cette requete.

Code:

DoCmd.OpenReport stDocName, acPreview, , "[Projects].[ID_Priority]=" & ChoixdeLUtilisateur

Et c'est donc les données de cette requete afinée par les paramètres choisis par l'utilisateur sur le formulaire, que je voudrais exporter dans excel.