Discussion :

[fabian_]

Bonsoir à tous,

Je cherche un moyen d'exporter une requête paramétrée vers une plage (ou des plages) bien définie sur une feuille Excel.
J'ai vu que le sujet a été traité à de multiples reprises, mais je m'avoue perdu. TransferSpreadsheet semble ne pas pouvoir exporter vers une plage bien spécifique sur Excel.

De l'autre côté, étant donné qu'il s'agit d'une requête paramétrée, j'ai vu que certains codes proposaient de créer une requête "temporaire" avant d'exporter.

J'ai également lu ce tutorial où je me suis particulièrement attardé sur l'automation.
Cependant, cette ligne me laisse perplexe :

Code :

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

    Set rec = CurrentDb.OpenRecordset("Clients", dbOpenSnapshot)

Ca veut dire que ça ne fonctionne que pour une table bien précise ? Je pensais justement pouvoir utiliser la requête ouverte...
Dans la suite du code, je ne vois nulle part un moyen de gérer les colonnes...

Merci à vous et bonne soirée

[nico84]

Bonjour,

Quand je ne fait pas l'export "ligne à ligne" j'utilise copyfromrecordset :
- exécuter la requête dans un recordset (rst)
- ouvrir un tableau excel vide (objbook)
- exécuter

Code :

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

objBook.Worksheets(1).Range("a3").CopyFromRecordset rst

[fabian_]

Bonsoir,

J'ai fait quelques recherches sur ta proposition, j'ai notamment trouvé ce code :

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
Function ExportToExcel(ByVal strSQL, ByVal strRange)
On Error Goto errorHandler
 
Dim rs As DAO.Recordset
Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object
 
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets(1)
 
Set rs = CurrentDb.OpenRecordset(strSQL)
 
xlWS.Range(strRange).CopyFromRecordset rs
 
xlApp.Visible = True
 
Set rs = Nothing
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
 
ExportToExcel = True
Exit Function
 
errorHandler:
    Debug.Print err.Description
    ExportToExcel = False
End Function

Mais je ne vois ni la sélection d'un onglet Excel, ni celle d'une plage de cellule...
Sachant que ma feuille de calcul continent déjà des données ailleurs. (Je n'aimerai donc pas créer un nouvel onglet, mais que l'exportation écrase les données déjà présentes à cet endroit précis).

[nico84]

xlws c'est l'onglet (worksheet)
strange c'est la position en haut à gauche de la plage (range)

[fabian_]

Ok, du coup, j'ai modifié un peu le code pour que cela corresponde :

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
Function ExportToExcel()
On Error GoTo errorHandler
 
Dim rs As DAO.Recordset
Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object
 
Set xlApp = CreateObject("Excel.Application")
Set xlWB = oApp.Workbooks.Open("D:\...\Gestion2.xlsm")
Set xlWS = oWkb.Worksheets("Armée")
 
Set rs = CurrentDb.OpenRecordset(strSQL)
 
xlWS.Range("H1").CopyFromRecordset rs
 
xlApp.Visible = True
 
Set rs = Nothing
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
 
ExportToExcel = True
Exit Function
 
errorHandler:
    Debug.Print Err.Description
    ExportToExcel = False
End Function

Pourtant, cela ne marche pas.

Code :

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

1
2
 
Set rs = CurrentDb.OpenRecordset(strSQL)

Sur cette ligne, n'est-il pas possible d'extraire les données sans passer par une commande par SQL ? Car ma requête étant paramétrée, le code change régulièrement...
Ou bien j'ai loupé un épisode.

[nico84]

Il faut remplacer strSQL par la requête souhaitée, VBA n'est pas devin

[fabian_]

Oui, j'ai bien compris.
Mais je ne peux pas rentrer un code SQL avec une requête paramétrée... ça ne va pas marcher.

J'ai essayé soit de mettre le nom de ma requête, soit de mettre le code SQL d'une requête non-paramétrée pour tester le code. Dans les deux cas, aucun export ne s'effectue.

[nico84]

je ne peux pas rentrer un code SQL avec une requête paramétrée... ça ne va pas marcher.

Ce n'est pas qqch que j'utilise souvent mais il y a une syntaxe pour que rs soit le résultat d'une requete paramétrée :

Code :

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

1
2
3
4
Dim qdf As DAO.QueryDef, rs As DAO.Recordset
Set qdf = currentDb.QueryDefs("MaRequete")
qdf.Parameters("cd") = cd
Set rs = qdf.OpenRecordset

Par contre je me demande d'où sortent oApp et owkb dans le code ??? Ce devrait être xlapp et xlwb !