Test ouverture fichier Access avec Excel

  • Initiateur de la discussion Initiateur de la discussion nanard25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nanard25

Guest
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
 
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)

Code:
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
 
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à 😉
 
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
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
2 K
Compte Supprimé 979
C
Retour