jeje1976
Messages postés1Date d'inscriptionsamedi 20 mai 2006StatutMembreDernière intervention27 novembre 2006
-
27 nov. 2006 à 23:09
zizette2009
Messages postés12Date d'inscriptiondimanche 29 mars 2009StatutMembreDernière intervention 4 avril 2009
-
23 mars 2009 à 21:22
Bonjour,
Je cherche à créer un recordset ADO déconnecté par une fonction appelée
dans le code ci-dessous "ImportRecordset" (jusque là, ça fonctionne),
puis à utiliser le recordset obtenu pour alimenter un objet pivotcache
et batir un tableau croisé. Malheureusement, VB6 m'indique l'erreur
suivante : Run-time error -2147217891 (80040e1d) Method 'Recordset' of object 'Pivotcache' failed.
En parcourant longuement l'aide d'Excel et le web, j'ai pourtant
l'impression (vraisemblablement trompeuse) que mon code est conforme...
Une âme charitable peut-elle m'aider ? Par avance, merci.
Dim rs As ADODB.Recordset, pc As Excel.PivotCache
Set rs = ImportRecordset (ImportRecordset est ma fonction qui renvoie un object recordset déconnecté ouvert)
MsgBox rs.RecordCount (cette ligne me permet juste de vérifier
que le recordset est correctement créé. Effectivement, il compte "un
certain nombre" d'enregistrements)
Set pc = myXL.Workbooks(1).PivotCaches.Add(SourceType:=xlExternal)