Bonjour à tous
je tente de lancer une requête paramétrée Access 2013 depuis Excel par vba
Ci-joint le bout code :
Sub Connexion_Bd()
Dim j As Integer, h As Integer, LaDate As String, x As Byte
Dim Enr As Recordset
Set Wt = Sheets("Mensualisation")
Chemin = "C:\Users\MGUEYE\Desktop\Productique .mdb"
Set base = DBEngine.OpenDatabase(Chemin)
Set LesDates = Range("B2:X2")
Set Qdf = base.QueryDefs("Pour_Prod")
With Qdf
Qdf.Parameters("[Entrez date début]") = CDate(Jdeb)
Qdf.Parameters("[Entrez date fin]") = CDate(Jfin)
End With
Set Enr = Qdf.OpenRecordset
j'ai une erreur vba n° 13 "incompatibilité de typeé
Merci pour votre
je tente de lancer une requête paramétrée Access 2013 depuis Excel par vba
Ci-joint le bout code :
Sub Connexion_Bd()
Dim j As Integer, h As Integer, LaDate As String, x As Byte
Dim Enr As Recordset
Set Wt = Sheets("Mensualisation")
Chemin = "C:\Users\MGUEYE\Desktop\Productique .mdb"
Set base = DBEngine.OpenDatabase(Chemin)
Set LesDates = Range("B2:X2")
Set Qdf = base.QueryDefs("Pour_Prod")
With Qdf
Qdf.Parameters("[Entrez date début]") = CDate(Jdeb)
Qdf.Parameters("[Entrez date fin]") = CDate(Jfin)
End With
Set Enr = Qdf.OpenRecordset
j'ai une erreur vba n° 13 "incompatibilité de typeé
Merci pour votre