Bonjour,
je souhaite exporter le résultat d'une requête paramétrée vers Excel en utilisant TransferSpreadsheet.
Le problème est que le paramètre est contenu dans une variable mais je n'arrive pas à l'imposer lors de l'export. Access me demande systématiquement de taper la valeur. Avez-vous une idée ?

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
    Dim oXLApp As Object 
    Set oXLApp = CreateObject("Excel.Application")
    Dim qdf As QueryDef, var as integer
    var = 50
 
    Set qdf = CurrentDb.CreateQueryDef("export", "PARAMETERS [ID_Scenario] Short; SELECT * FROM Calcul_Scénarios WHERE ID = [ID_Scenario];")
    qdf.Parameters("[ID_Scenario]") = var
 
    DoCmd.TransferSpreadsheet acExport, 0, qdf.name, "C:\Export_from_DimPool.xls", True, ""    
 
    DoCmd.DeleteObject acQuery, qdf.name                                            
    Set qdf = Nothing
    oXLApp.Workbooks.Open ("C:\Export_from_DimPool.xls")
    oXLApp.Visible = True        
    Set oXLApp = Nothing