Test ouverture fichier Access avec Excel

[nanard25]

Bonjour à Tous,

Une question se pose :

J'ouvre une base Access en récupérant une table à l'intérieur de ce fichier,

Celui-ci à pour fonction de s'ouvrir avec un logiciel de comptabilité.

J'aimerais savoir s'il est possible de tester en VBA si un fichier access est déjà ouvert

Si oui, pouvoir le fermer pour éviter une perte de données dans ce fichier

J'ouvre ce fichier comme ceci :

ChDir "C:\Apisoft\GEST_EXP\0478\"
Workbooks.OpenDatabase Filename:="C:\Apisoft\GEST_EXP\0478\GestC.mdb", CommandText _
:=Array("Article"), CommandType:=xlCmdTable
Sheets("GestC").Select
Sheets("GestC").Name = "Articles"

Avec mes remerciements anticipés

Nanard25

 

[MichelXld]

Re : Test ouverture fichier Access avec Excel

bonsoir


Tu pourrais par exemple vérifier si le fichier ldb existe (cela signifierait que la base est ouverte)

Sub listerConnectesBaseAccess()
    Dim Cible As String
    Dim Fso As Object
    Cible = "C:\Documents and Settings\mimi\dossier\maBase.ldb"
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FileExists(Cible) = False Then Exit Sub
    
    Open Cible For Input As #1
        Input #1, Cible
    Close #1
    
    MsgBox Cible
End Sub

Bonne soirée
MichelXld

 

[Compte Supprimé 979]

Re : Test ouverture fichier Access avec Excel

Salut Nanard25,

Pour ce qui est de tester un fichier access ouvert, il suffit de vérifier l'existence du fichier ".ldb" qui est créé lorsque la base est ouverte !

Pour ce qui est de fermer le fichier, je ne crois pas que cela soit possible directement en VBA !

A+

Edit : Oups, MichelXld (salut Michel) est passé par là

 

[nanard25]

Re : Test ouverture fichier Access avec Excel

Bonjourà Tous,

Un grand merci à MichelXld et BrunoM45, effectivement, Access crée un fichier ldb, et pourtant je l'avais déjà utilisé une fois, mais ma mémoire m'a fait défaut.

Bonne Journée à Tous