layout d'un fichier excel exporté d'Access

Re-bonjour,

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

Code:

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)?????

automation d'Excel

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

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:

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:

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:

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?