Access Exporter requête paramétrée

[FaridP]

Bonjour à tous,

J'ai vraiment essayé de m'en sortir seul en cherchant des solutions un peu partout sur le web mais force est de constater que je ne comprends pas tout. 🙁

Je souhaite exporter vers Excel le résultat d'une requête paramétrée mais j'échoue sans cesse avec un message me demandant la valeur du paramètre.
Ma base ne comporte que 2 tables : la table 'Sources' dont le champ "title" contient le paramètre de ma requête (Extract_BackUp) et cette dernière 😉pointe vers la seconde table sans aucun autre critère que ce fameux paramètre.

Je vous mets le "code" que j'ai essayé de mettre en place :

Function ExportBackUp()

Dim Db As DAO.Database
Dim Qry As DAO.QueryDef
Dim rs1, rs2 As DAO.Recordset
Dim objMail As Object
Dim NomSite As String

Set Db = Application.CurrentDb
Set rs1 = Db.OpenRecordset("Select * from Sources")
rs1.MoveFirst
NomSite = rs1("title")

Set Qry = CurrentDb.QueryDefs("Extract_BackUp")
'Initialiser le Paramètre
Qry.Parameters("NomSite") = NomSite
'Ouvrir le Recordset basé sur la requête
Set rs2 = Qry.OpenRecordset(dbOpenDynaset)

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Extract_BackUp", "D:\Test.xlsm", True

End Function

Merci d'avance pour votre aide et/ou le temps perdu à me lire.

Bon week-end à tous,

Farid