IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Vérifier une BDD Access et ouverte [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Débutant   Avatar de FCL31
    Profil pro
    Inscrit en
    Août 2007
    Messages
    885
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 885
    Points : 267
    Points
    267
    Par défaut Vérifier une BDD Access et ouverte
    Salut a tous

    Je voudrais savoir comment depuis Excel, vérifier si une BDD Access et ouverte

    Peut être en vérifiant si le fichier .ldb existe

  2. #2
    Membre chevronné Avatar de rvtoulon
    Homme Profil pro
    Agent Technique
    Inscrit en
    Mars 2009
    Messages
    1 042
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Agent Technique
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2009
    Messages : 1 042
    Points : 2 003
    Points
    2 003
    Par défaut
    Slt,
    oui c'est bien çà, il faut vérifier si le .ldb existe, voici le code de la faq :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Dim Cible As String
    Dim strLigne As String
     
        'Le fichier .ldb est créé à l'ouverture de la base et supprimé lors de la fermeture.
        'Ce fichier LDB contient le nom des utilisateurs.
        Cible = "C:\Base test.ldb"
     
        'vérifie si le fichier existe
        If Dir(Cible) = "" Then GoTo suite
     
        Open Cible For Input As #1
            Do While Not EOF(1)
                Line Input #1, strLigne
                Debug.Print strLigne
            Loop
       Close #1
     
    MsgBox "utilisateurs connectés" & Chr(10) & strLigne
     
    suite:
    'Ici le code que tu veux faire si le fichier est fermé.....

  3. #3
    Débutant   Avatar de FCL31
    Profil pro
    Inscrit en
    Août 2007
    Messages
    885
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 885
    Points : 267
    Points
    267
    Par défaut
    Merci beaucoup sa a l'air de marcher nikel (même si j'ai modifier un peu)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Envoi d'une variable EXCEL vers un champ dans une BDD ACCESS ouverte
    Par Baloo84 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/07/2012, 17h52
  2. Réponses: 6
    Dernier message: 26/04/2006, 17h36
  3. [D2005] Connexion à une BDD Access
    Par landry005 dans le forum Bases de données
    Réponses: 6
    Dernier message: 24/02/2006, 12h05
  4. [JAVA]accès à un champ OLE d'une bdd ACCESS 2002
    Par chris35 dans le forum Access
    Réponses: 1
    Dernier message: 05/01/2006, 23h05
  5. [VB.NET] Gestion en temps réel d'une bdd access
    Par qwiskas dans le forum Windows Forms
    Réponses: 6
    Dernier message: 12/02/2005, 20h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo