Bonjour tous,
j'ai besoin d'aide
j'essaye de me connecter a une base de donnée Access installé sur un autre PC ,car sur le mien n'est pas installé
dans mon code je met le Chemin complet pour acceder a cette base :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Dim rs As Recordset
Dim ws As Workspace
Dim db As Databas
 
Private Sub UserForm_Initialize()
 
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("\\Poste11\test\BD.mdb")
Set rs = db.OpenRecordset("SELECT Projets.* FROM Projets;", dbOpenDynaset)
 
TextBox1.Text = rs![NomProjet]
end sub
j'ai ce message d'erreur quand j'execute l'application
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Erreur d'execution 429
un composant Activex ne peut pas créer d'objet
et je ne comprend pas , est ce que vous avez une idée !

merci