XL 2013 Communication Excel vers Access

  • Initiateur de la discussion Initiateur de la discussion Joblego
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 à 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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour