Import requete IMPROMPTU

[kikie43]

Bonjour,

Je souhaite alimenter mes tables de la base access par des requetes impromptu.
J'ai access 2003.

Lorsque j'exécute, j'ai le message d'erreur suivant :
Erreur d'édécution 3275
erreur inattendue du pilote de base de données externe (8961).

Voici le code que j'ai fait.
J'ai mis le pilote dBase 5.0, mais à vrai dire vraiement au hazard.
Quelqu'un pourrait il m'aider ?
Merci d'avance

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Commande0_Click()
Dim toto As Object
Dim tata As Object
Dim Demande As String
Dim chemin As String
Dim Db As DAO.Database
Dim Rcd As DAO.Recordset
 
chemin = "C:\INDIC\"
 
Set toto = CreateObject("Impromptu.Application")
toto.Visible 0
toto.OpenCatalog "Z:\02 - STATISTIQUES\07 - CATALOGUES - DOMAINES\V2.cat", "Utilisateur", "x", "x", "x"
 
'demande utilisateur
Demande = InputBox$("Les statistiques sont mensuelles. Aussi, veuillez saisir la date de fin d'observation (AAAA-MM-JJ)", , "2007-01-31")
 
' les requêtes domaine 12
 
'Set tata = toto.OpenReport("C:\INDIC\INDICATEURS\INDIC1.imr", Demande)
'tata.ExportdBASE chemin & "Resultats\INDIC1.dbf"
 
'DoCmd.TransferDatabase acImport, "Jet 4.0", chemin & "Resultats", acTable, "INDIC1.dbf", "INDIC1"

[marchand_de_sable]

Bonjour.

Désolé je n'ai pas souvent pratiqué VB et encore moins avec les objets Impromptu (mais je risque d'en avoir besoin rapidement...).
Je ne peux rien tester à l'instant même, mais as-tu essayé d'entrer une requête d'insertion directement dans ton rapport Impromptu ???

Ta base Access est manifestement distincte de celle que tu intéroge, mais tu peux :
1 - créer un extrait à partir de ta requête d'extraction des données.
2 - Créer un catalogue se connectant à ta base Access.
3 - dans un rapport Impromptu, créer une requête d'insertion utilisant le catalogue créé en 2, et basé sur l'extrait créé en 1 qui alimentera ta base Access.
4 - Si tu veux automatiser tout ça, tu n'auras qu'à ouvrir successivement l'un puis l'autre de ces rapports dans ton code VB.

Pour en revenir à ton approche, je ne comprends pas à quoi sert le pilote dBase ?
Ton code plante où ? A tata.ExportdBASE ? A DoCmd.TransferDatabase ?
A quoi correspond cette dernière instruction ? Un script perso d'alimentation ?