Utiliser Access via une application VBA sur un poste ne disposant pas d'Access
Bonjour à tous,
Le sujet a surrement déjà été traité mais je n'en ai trouvé aucun qui ressemblait point pour point à mon soucis.
Le Contexte :
Je suis en entreprise et je travail sur un poste avec Access d'installé (Les autres postes ne l'ont pas). J'ai créé une application VBA Excel qui utilise Access comme base de données et j'y accéde parfaitement sur mon pc MAIS les autres postes de l'entreprise ne possédant pas Access ne peuvent pas y accéder.
Les contraintes sont :
Je ne peux pas acheter d'autres licences Access
Je ne peux pas utiliser d'autres bases de données
Je ne peux pas me passer d'Access
Je ne peux pas installer Access sur un Windows Server
Ce que j'ai actuellement :
la connection à ma base de données s'effectue via un module de classes :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Public db As DAO.Database
Public rst As DAO.Recordset
Public wrkCurrent As DAO.Workspace
Public dbname As String
Public Sub class_initialize()
Dim message
'Instanciation variable
dbname = ThisWorkbook.Path & "\Application\BDD\RA.accdb"
'Déclaration de la variable de connexion
On Error Resume Next
Set db = OpenDatabase(dbname)
Set wrkCurrent = DBEngine.Workspaces(0)
If err.Number <> 0 Then
message = MsgBox("Impossible de se connecter à la base de données. Application inutilisable !", vbCritical, "erreur base de données")
End If
End Sub |
Voilà, si la solution est de passer par autre chose que DAO je suis preneur tout en sachant que j'aimerai garder un maximum de code tel quel (La DeadLine est pour bientôt, et je preferai pas changer la syntaxe de toutes mes requetes et/ou structure de mon application.. ^^)
