Discussion :

[MissTi]

Bonjour à tous,

En VBA, je sauvegarde le résultat d'une requête dans un fichier excel (disons "trululucocotte.xls")puis l'ouvre et le remet en forme.
In fine, ma feuille est toute belle avec toutes les infos ad hoc.
Le problème vient de la sauvegarde: lorsque j'enregistre, il me créé un fichier de sauvegarde "Sauvegarde de trululucocotte.xlk" contenant l'ancienne version, c'est-à-dire l'export brut, la 1e version du fichier avant que je ne le manipule.

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
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim strFile As String
 
    'Adresse du fichier à créer
    strFile = CurrentProject.Path & "\trululucocotte.xls"
 
    'Export de la requête dans un nouveau fichier xls
    DoCmd.OutputTo acOutputQuery, "rqt_Lst_Alertes_FIFO", "xls", strFile
    'Prise en main du fichier excel
    Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True
    Set wbexcel = appexcel.Workbooks.Open(strFile)
    appexcel.Sheets("rqt_Lst_Alertes_FIFO").Select
    appexcel.Sheets("rqt_Lst_Alertes_FIFO").Name = "Lst_Alertes_FIFO"
 
    'Mise en forme avec des tas de truc et de couleurs
    appexcel.Sheets("Lst_Alertes_FIFO").Rows(1).Insert
    appexcel.Sheets("Lst_Alertes_FIFO").Range("A1").Value = "...."
 
    'enregistrement du travail final
    wbexcel.Save
    wbexcel.close

Au final, j'ai ajouté un Kill sur ce fichier xlk mais c'est assez moche et, surtout, je ne comprend pas d'où vient ce fichier.
A quoi est-ce dû?

[MissTi]

J'ai failli oublier: le fichier créé donne un message d'avertissement à l'ouverture:

Le format de fichier que vous tentez d'ouvrir, "trululucocotte.xls", est différent de celui spécifié par l'extension du fichier. Assurez-vous que le fichier n'est pass endommagé et qu'il provient d'une source fiable avant de l'ouvrir. Souhaitez-vous ouvrir ce fichier maintenant?

ceci dit, oui, il s'ouvre bien et est bien mis en forme tel que modifié et contient bien les données exportées.

Si un export xls (via outputquery) créant un fichier xls ne donne pas un fichier xls, je ne comprend pas trop là... Il exporte quoi comme format?

[helas]

Bonjour,
le format est acFormatXLS et non "xls"

Code :

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

1
2
DoCmd.OutputTo acOutputQuery, "reqIntraAnnuaire", acFormatXLS, strFile