Discussion :

[SylvainJ]

Bonjour,

Je cherche une méthode simple pour exporter le résultat d'une requete "Crosstab Query" (mon Access est en anglais, je ne connais pas la traduction francais, requete croisée?).
L'export se fait tous les jours dans le meme fichier Excel dont les cellules ont un format conditionnel.

J'utilise pour cela TransferSpreadsheet. Ca fonctionne bien tant que j'ai le meme nombre de colonnes.
Mais lorsque le résultat de la requete a plus de colonnes que la derniere fois, j'ai une erreur 3190 Too many fields defined.

Je cherche donc une solution pour que cela n'arrive plus, le but du jeu etant que l'appli fonctionne quand je ne suis pas la via une tache planifiée.

Toutes les suggestions sont les bienvenues. Merci de votre aide,
Sylvain

[Invité]

Bonjour

Si ton nombre de colonne varie, il faut remplir ton fichier Excel par automation.

Il faut que tu te connectes à Excel et que tu remplisses ta feuille par DAO en parcourant ta requête (voir QueryDef dans DAO) - Tuto sur le site

Starec

[SylvainJ]

Merci de ta reponse.
J'ai modifie mon prog mais j'ai tjrs le meme code erreur lorsqu'il y a plus de champs que lors de la precedente execution.
DAO est un peu complique pour un novice comme moi. Je n'ai sans doute pas bien compris ta reponse. Je joins mon code ca sera sans doute plus simple.

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
 
Function warning2()
 
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
'...debut prog...
 
 
'Creation Analyse croisee Warning_Holds
Dim qd As DAO.QueryDef
nomFeuille = "Sheet1"
Set qd = CurrentDb.CreateQueryDef(nomFeuille, "TRANSFORM Sum(Warning.jours_immo) AS SumOfjours_immo " _
& "SELECT Warning.Service, Warning.projet, Warning.lot_number, Warning.Wafers, Warning.prod, " _
& "Warning.oper, Warning.operation_descr, Warning.responsable " _
& "FROM warning " _
& "GROUP BY Warning.Service, Warning.projet, Warning.lot_number, Warning.Wafers, Warning.prod, " _
& "Warning.oper, Warning.operation_descr, Warning.responsable " _
& "PIVOT Warning.hold_category;")
 
'Transfert des resultats
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, nomFeuille, nomFich, True
DoCmd.DeleteObject acQuery, nomFeuille
 
oDb.Close
Set oDb = Nothing
 
End Function

Merci,
Sylvain

[SylvainJ]

Hello,

Après un bon week-end de repos, personne ne peut m'aider?

Merci,
Sylvain

[SylvainJ]

Bon... je pense avoir trouvé une solution.

J'ai remplacé mon petit "TransferSpreadsheet" par:

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
 
'Transfert des resultats
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
' Ouvrir le fichier
Set xlApp = CreateObject("Excel.Application")
Set wbk = xlApp.Workbooks.Open(nomFich)
 
'Récupération des noms de champs
Dim Rs As Recordset
Set Rs = qd.OpenRecordset()
For i = 0 To Rs.Fields.Count - 1
           wbk.Sheets(nomFeuille).Cells(1, i + 1).Value = Rs.Fields(i).Name
Next
'Récupération des données.
wbk.Sheets(nomFeuille).Range("A2").CopyFromRecordset Rs
 
' Fermer le classeur en enregistrant les changements
wbk.Close True
Set wbk = Nothing
 
' Quitter Excel
xlApp.Quit
Set xlApp = Nothing
 
DoCmd.DeleteObject acQuery, nomFeuille
oDb.Close
Set Rs = Nothing
Set qd = Nothing
Set oDb = Nothing

Ca a l'air de fonctionner. Je teste cette semaine. S'il y a plus simple, n'hésitez pas...
Ciao,
Sylvain