FaridP
XLDnaute Occasionnel
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
Je vous mets le "code" que j'ai essayé de mettre en place :
Merci d'avance pour votre aide et/ou le temps perdu à me lire.
Bon week-end à tous,
Farid
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
Je vous mets le "code" que j'ai essayé de mettre en place :
VB:
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 FunctionMerci d'avance pour votre aide et/ou le temps perdu à me lire.
Bon week-end à tous,
Farid