XL 2013 Communication Excel vers Access

Joblego

XLDnaute Nouveau
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
 

Joblego

XLDnaute Nouveau
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
Bonjour tatiak et merci pour ta réponse
finalement j'ai réussi à régler le problème. En effet c'était les paramètres Jdeb et Jfin qui étaient vides
Donc DdEngine marche très bien avec Excel en activant la référence Microsoft Office 15 .0 Access DbEngine (pour Excel 2013)
 

Discussions similaires


Haut Bas