Discussion :

[ac264]

Re-bonjour,

J'ai exporté le résultat d"un query Access dans Excel selon le code suivant :

Code :

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

DoCmd.OutputTo acOutputQuery, query04, "MicrosoftExcel(*.xls)", , True

Mais j'aimerais que ce fichier Excel ait une mise en page un peu plus convenable.
Comment puis-je recopier le layout d'un autre fichier Excel sur celui-là (tout çà à partir de VBA Access)?????

[pgz]

Bonjour.

Je crois que tu vas devoir passer par l'automation d'Excel. Voir les tutos et la FAQ sur le sujet.

Bon courage,

PGZ

[ac264]

Malheureusement, c'est que j'essaie de faire depuis plusieurs heures, mais ça ne tourne pas comme je veux.

à partir d'un query, je fais un export vers excel

Puis je réactive excel un peu plus tard pour voir ce fichier
à ce moment-là je souhaiterais arranger le format, mais visiblement, je n'arrive pas à définir correctement les objets

Voici mon code. Si quelqu'un peut m'aider...

Export du query vers excel

Code :

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

DoCmd.OutputTo acOutputQuery, query04, "MicrosoftExcel(*.xls)", , True

Un peu plus tard, appel d'une procédure pour réafficher le fichier excel en avant plan

Code :

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

1
2
3
4
Public Sub SwitchExcel(ByVal StrFile As String)
Set xlApp = GetObject(, "Excel.application")
xlApp.Visible = True
End Sub

et procédure (foireuse pour le formatage)

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
Public Sub Formattage(ByVal StrFile As String, ByVal Pathh As String)
Dim oAppExcel As Excel.Application
Dim oClasseur As Excel.Workbook
Dim oFeuille As Excel.Worksheet
 
Set oAppAxcel = GetObject(, "Excel.application")
oAppExcel.Visible = True
Set oClasseur = oAppExcel.Workbooks.Open(Pathh & StrFile)
  'Sélectionne la première feuille
  Set oFeuille = oClasseur.Worksheets(1)
    oFeuille.Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
    End With

Ce que je n'arrive pas à comprendre, c'est que j'ai l'impression d'ouvrir le fichier excel plusieurs fois... Je voudrais juste l'activer
En outre, comme je ne sais pas exactement où l'utilisateur va exactement sauver son query en excel, je ne suis pas sûre que le GetObject va bien me renvoyer vers le bon fichier excel. Il faudrait sûrement que je lui donne le Path, mais comment le connaître?