Discussion :

[JeanYves70]

Bonjour à tous

Je dois faire très régulièrement des exportations vers Excel2010. Ces exports représentent des données propres à plusieurs centres et chaque onglet correspond à un centre.

Aujourd'hui j'ai autant de requêtes que de centres "R_Export01", "R_Export02" ... jusqu'à 56 et j'ai autant de lignes de code pour les exporter.

Code :

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

1
2
3
4
5
6
7
8
 
Dim strFichier As String,
 
    strFichier = "2015Exportation.xlsx"
 
    DoCmd.TransferSpreadsheet acExport, 10, "R_Export01", (CurrentProject.Path & "\" & strFichier), True, "Onglet01"
    DoCmd.TransferSpreadsheet acExport, 10, "R_Export02", (CurrentProject.Path & "\" & strFichier), True, "Onglet02"
    DoCmd.TransferSpreadsheet acExport, 10, "R_Export03", (CurrentProject.Path & "\" & strFichier), True, "Onglet03"

Cette méthode fonctionne bien mais à chaque exportation je dois changer des critères dans les 56 requêtes.

Ma question : Y aurait il une solution pour, plutôt que de pointer sur chaque noms de requêtes, je puisse remplacer "R_Export01", "R_Export02" ...
par une sorte de variable SQL et comment dois je la déclarer ?

D'avance merci

[Invité]

Code :

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

1
2
3
4
for i=1 to 56
      DoCmd.TransferSpreadsheet acExport, 10, "R_Export" & format(i,"00"), (CurrentProject.Path & "\" & strFichier), True, "Onglet"  & format(i,"00")
Next

[marot_r]

Bonjour.

La réponse est simple et compliquée à la fois.

La solution est d'utiliser une requête paramétrée. Le problème c'est qu'on ne peut pas directement exporter une requête paramétrées et il existe plusieurs façons de résoudre ce problème.

Tu peux

1. créer un formulaire qui va contenir tes paramètres qui seront utilisés par la requête.
2. créer une requête "modèle" dont tu vas faire une copie modifiée pour tenir compte des paramètres.
3. composer le code SQL dans ton VBA et l'enregistrer dans la requête avant l'exportation.

Quelle solution veux-tu ?

A+

[JeanYves70]

Bonjour et merci à vous deux pour vos réponses,

Donc si j'ai bien compris DoCmd.TransferSpreadsheet ne sais pas exporter autre chose qu'une table ou une requête enregistrée.
donc je pense à la solution 3 :

Comment puis je déclarer et composer du code SQL dans mon VBA puis l'enregistrer ?


D'avance merci

[marot_r]

Bonjour.

Merci dysorthographie pour le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim db as dao.database: set db=currentdb
dim q as dao.querydefs: set q=db.querydefs("R_ExportXX") 'il faut que la requête existe
dim SQL as string
 
for i=1 to 56
      sql="select [TaTable].* from [TaTable] where [TaTable].[NumCentre]=" & i 'Mettre le vrai SQL de ta requête, là c'est un exemple
      q.sql=sql 'Enregitre la requête "paramétrée"
      DoCmd.TransferSpreadsheet acExport, 10, "R_ExportXX", (CurrentProject.Path & "\" & strFichier), True, "Onglet"  & format(i,"00")
Next
 
set q=nothing
db.close: set db=nothing

A+

[JeanYves70]

à dysorthographie et marot_r pour vos réponses

C'est super je vais mettre en application tout de suite

Merci encore

A+

[JeanYves70]

Bonjour à nouveau
J'ai un petit souci, j'ai copié collé le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim db As DAO.Database: Set db = CurrentDb
Dim q As DAO.QueryDefs: Set q = db.QueryDefs("R_ExportXX") 'il faut que la requête existe
Dim SQL As String
Dim i
 
For i = 1 To 56
      SQL = "select [T_aINDEMNITEEnInter].* from [T_aINDEMNITEEnInter] where [T_aINDEMNITEEnInter].[CDCSSP]=" & i & "'));" 'Mettre le vrai SQL de ta requête, là c'est un exemple
 
 
      q.SQL = SQL 'Enregitre la requête "paramétrée"
      DoCmd.TransferSpreadsheet acExport, 10, "R_ExportXX", (CurrentProject.Path & "\" & strFichier), True, "Onglet" & Format(i, "00")
Next

La requête existe je l'ai appelé R_ExportXX pour le test et j'ai ce message d'erreur sur q.SQL : "Membre de méthode ou de données introuvable".

En références j'ai : VB for application, MS Access 14.0 object Library, OLE Automation, MS Office 14.0 access engine object Library, MS Excel 14.0 Object Library.

De quoi cela peut venir ?

D'avance merci

[marot_r]

Désolé faute de frappe.

Ici la correction

Code :

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

Dim q As DAO.QueryDef: Set q = db.QueryDefs("R_ExportXX")

A+

[JeanYves70]

Bonsoir

Voila ca fonctionne parfaitement. Comme quoi un petit s change la donne !

Merci beaucoup en tous cas.

A bientôt sur le forum

[Manichon]

Bonjour à tous
Je rebondis sur la demande initiale
J'ai 6 requêtes à exporter sur un onglet "BASE" d'un fichier Excel2010 "BA 0101.XLSM par exemple. J'ai donc le code suivant pour l'une des 6 requêtes:

Code :

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

1
2
3
DoCmd.TransferSpreadsheet acExport, _
                    acSpreadsheetTypeExcel12, _
"BA 0101", "R:\BA 0101.XLSM", True, "BASE"

Pour les autres requêtes c'est le même code, j'ai juste modifié le nom de la requete et le nom du fichier.

PROBLEME : Quand je lance ma macro, elle fonctionne très bien pour 4 des 6 fichiers, et les 2 autres ne se mettent pas à jours, sans que je n'ai de message d'alerte.
Pourtant les formats des fichiers sont identiques, la trame aussi.
Avez-vous une idée de ce qui peut cloché ?