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