Discussion :

[Bostik]

Bonjour, Je suis pas trés à l'aise avec VBA pour Word 2013 et j'ai besoin d'un peu d'aide pour une chose toute simple : accéder à une base de données externe (un fichier Dbase) et compter le nombre d'enregistrements. Voci une partie du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public vnbnereg As Integer
Sub Document_Open()
Dim WRKSPACE As Workspace
Dim BDBF40 As DAO.Database
Dim RSDBF40 As DAO.Recordset
 
Set WKRSPACE = CreateWorkspace("", "", "")
Set BDBF40 = WRKSPACE.OpenDatabase("C:\DIADEM\", False, 0, "Dbase IV")
Set RSDBF40 = BDBF40.OpenRecordset("DBF40.DBF", snapshot)
vnbenreg = RSDBF40.RecordCount
If vnbenreg > 0 Then
   Application.Run MacroName:="constdevis"
End If
End Sub

à l'exécution je rencontre une erreur 429 ...

Microsoft activeX Data Objects 6.0 library est bien ajouté au projet. Le client ODBC (DBase IV) a été créé aussi.
Il faut utiliser les pilotes VFPro.
Pour les fichiers Dbase, un fichier = une base. Aucune identification n'est requise.
Ce script fonctionnait jusque la version Word 2010 je pense.

Pouvez vous rectifier mes erreurs ? merci d'avance.

PG

[Heureux-oli]

Salut,

DAO et ADO ne sont pas les mêmes choses.

Si tu as la librairie Active X Data Object dans ton projet, c'est de l'ADO.
Tu déclares des objets DAO.XXXXXX, c'est du DAO.

[Bostik]

OK. J'ai enlevé la librairie ADO, mais l'erreur est toujours là... Comme j'essaie de gérer une base Dbase (via un client ODBC) il me semble que la syntaxe 'DAO' est necessaire, non ?

[Heureux-oli]

Salut,

Peut-être trouveras-tu une piste là : http://access.developpez.com/cours/?page=dataaccess#dao ou encore là : http://access.developpez.com/cours/?page=dataaccess#ado

[Bostik]

En effet, j'ai trouvé dans les liens précèdents (lien ADO) des réponses qui fonctionnent.
Merci à tous.
PG