La méthode execute de l'objet _connection a échoué
Bonjour , en Forme le Forum ?
Après plusieurs heures de recherche , je reviens vers vous pour vous expliquer mon problème :
Alors, j'ai un USERFORM avec un bouton : scanner les fichiers ( .xlsx) quand je clique sur ce bouton pour scanner mes fichiers XL j'ai une erreur comme l'intitulé l'indique : La méthode execute de l'objet _connection a échoué .
Débogage :
Set Rst = Cn.Execute(strSQL)en ajoutant un espion sur "Execute" :
Watch : : Execute : <Expression non définie dans le contexte> : Empty : Mod_New.ScannerFichiersla requête est :
strSQL = "SELECT DISTINCT " & strTmp & " FROM " & SQL_FROM_InnerJoin(Split(strFeuilData, ","), cstID) & " WHERE " & strTmp & " Is Not Null"Merci d'avance.
Comment est défini "cn" ?
Bonsoir Bruno ,
Je met ce bout de code :
Dim Cn As ADODB.Connection
'On crée une connexion
Set Cn = New ADODB.Connection
'On recherche la liste des tables
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ListeFichiers(iBook) & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
Re,
Apparemment le problème vient bien de ta requête
Mais sans fichier ou sans information de ce que contient tes variables strTmp, strFeuille Data, cstID
A+