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

VBA Access Discussion :

bibliothèque non inscrite


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Octobre 2004
    Messages
    124
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 124
    Par défaut bibliothèque non inscrite
    Bonjour,

    J’ai un gros problème avec mes références bibliothèques.

    Ma bd a été créée sur mon ancien PC (access 2000 je crois) et marchait très bien, je travaille aujourd’hui entre 2 nouveaux PC via une clé USB. J’ai un message d’erreur de bibliothèque non inscrite que je n’arrive pas à expliquer (surtout que je ne suis pas bien doué).
    Malheureusement j’ai bidouillé les références en cochant – décochant les cases et je ne sais plus trop où j’en suis !!!! (je sais, ce n’est pas bien fin de ma part !).

    Le message d’erreur intervient sur un code qui se situe dans une feuille excel intégrée dans un objet independant OLE Microsoft Excel 2000.
    La feuille représente un plan de cave. Ce code me permet de supprimer des données situées dans une table (tbl_emplacement) si elles sont présentes et repérées par le n° de colonne te n°de ligne.
    Voici le message d’erreur :

    Erreur d’exécution ‘-2147319779 (8002801d)’ :
    Erreur Automation
    Bibliothèque non inscrite

    L’erreur s’arrête sur la ligne = « Set db = CurrentDb » du code :
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    Private Sub Supprimer_Click()
        Dim MonCritère As String
        Dim MonCritère1 As String
            MonCritère = "C" & ActiveCell.Column & ".L" & ActiveCell.Row
            MonCritère1 = "Blc"
        If ActiveCell = "" Then
            MsgBox ("Il n'y a pas de bouteille à cet emplacement!")
        Else
            Dim MonSql As String
            Dim db As DAO.Database
            Dim tbl_Emplacement As DAO.Recordset
            Set db = CurrentDb
                'Création d'une requête selection
                MonSql = "SELECT Count(tbl_Emplacement.NumCave) AS CompteDeNumCave FROM tbl_Emplacement WHERE ((([tbl_Emplacement].[Emplacement])=" & Chr(34) & MonCritère & Chr(34) & ") AND (([tbl_Emplacement].[Cave])=" & Chr(34) & MonCritère1 & Chr(34) & "))"
            'Ouverture du Recordset
            Set tbl_Emplacement = db.OpenRecordset(MonSql)
            If DCount("NumCave", "tbl_Emplacement", "[tbl_Emplacement].[Emplacement]=" & Chr(34) & MonCritère & Chr(34) & " AND (([tbl_Emplacement].[Cave])=" & Chr(34) & MonCritère1 & Chr(34) & ")") > 0 Then
                If MsgBox("Êtes-vous sûr de vouloir supprimer la bouteille de " & ActiveCell.Value & " ?", vbQuestion + vbYesNo, "") = vbYes Then
                    Set db = CurrentDb
                    db.Execute "DELETE [tbl_Emplacement].[NumCave], [tbl_Emplacement].[Emplacement], [tbl_Emplacement].[Cave] FROM [tbl_Emplacement] WHERE ((([tbl_Emplacement].[Emplacement])=" & Chr(34) & MonCritère & Chr(34) & ") AND (([tbl_Emplacement].[Cave])=" & Chr(34) & MonCritère1 & Chr(34) & "))"
                    Debug.Print "Records Affected = " & db.RecordsAffected
                    db.Close
                    Selection.ClearContents
                Else
                    Exit Sub
                End If
            Else
                If MsgBox("Aucune bouteille n'est enregistrée à l'emplacement " & MonCritère & " du Livre de cave! Voulez-vous l'effacer du plan de cave?", vbQuestion + vbYesNo, "") = vbYes Then
                    Selection.ClearContents
                Else
                    Exit Sub
                End If
            End If
        End If
    End Sub
    Les bibliothèques suivantes sont cochées dans l’ordre :
    Visual Basic For Applications
    Microsoft Excel 11.0 Object Library
    Microsoft Office 11.0 Object Library
    Microsoft Forms 2.0 Object Library
    Microsoft DAO 3.6 Object Library
    OLE Automation
    Microsoft Access 11.0 Object Library
    Microsoft Data Access Components Installed version
    Microsoft ActiveX Data Objects 2.8 Library

    Remarques peut-être importantes : l’un des PC possède le pack office 2003 et l’autre Pack office 2002.

    Lorsque je suis passé d’access 2003 à celui 2002 une seule référence était manquante « Microsoft Excel 11.0 Object Library » que j’ai remplacé par « Microsoft Excel 10.0 Object Library »

    Ma première question : comment stopper l’erreur ?
    Seconde question : quelles sont les étapes que je dois faire pour travailler sur les 2 versions pack office 2002 à 2003 ou 2003 à 2002 sans que cela bugs ? Y a-t-il des mises à jours de bibliothèque à faire, si oui lesquelles et où les télécharger ?


    Je vous serai reconnaissant de m’aider car je bloque depuis pas mal de temps et ma base de donnée est construite sur cette feuille excel.

    Merci

  2. #2
    Membre Expert

    Homme Profil pro
    Inscrit en
    Janvier 2006
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 186
    Par défaut
    Bonjour,

    Est-ce que tu as besoin de la ref à Office ? si non, supprime.
    Pour la ref à Excel, utilise plutôt le late binding, ça evitera les problèmes entre les versions de ref.

    Essaie aussi :
    [Access] Les bases du débogage => ici

  3. #3
    Membre confirmé
    Inscrit en
    Octobre 2004
    Messages
    124
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 124
    Par défaut
    Bonjour Kloun et merci de ton aide

    Pour la ref à Excel, utilise plutôt le late binding
    ??? Mes compétences sont limitées, je reste un singe en access, j'imite beaucoup mais ne comprend pas tout. J'ai honte de demander ce qu'est le late binding.

    Pour le code que dois-je remplacer par:
    encore 1000 merci

  4. #4
    Membre Expert

    Homme Profil pro
    Inscrit en
    Janvier 2006
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 186
    Par défaut
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set db = application.CurrentDb
    Je ne sais pas si ça changera grand chose.
    Early binding vs Late binding
    [Access] Les bases du débogage => ici

  5. #5
    Membre confirmé
    Inscrit en
    Octobre 2004
    Messages
    124
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 124
    Par défaut
    J'ai essayé le code,

    "propriété ou méthode non gérée par cet objet".

    merci

  6. #6
    Membre Expert

    Homme Profil pro
    Inscrit en
    Janvier 2006
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 186
    Par défaut
    Essaie de supprimer toutes tes références, compacte et rajoute celles qui sont nécessaires une par une, en essayant l'appli à chaque fois.
    [Access] Les bases du débogage => ici

  7. #7
    Membre confirmé
    Inscrit en
    Octobre 2004
    Messages
    124
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 124
    Par défaut
    J'ai effacé tous les formulaires comportant une feuille excel 2000 et les ai refait à neuf à partir d'excel 2003.

    Toujours le même problème :
    erreur Automation
    Bibliothèque non inscrite, donc le problème vient de ma base de donnée?

    Si vous avez des idées pour que je m'en sorte n'hésitez pas

    merci d'avance

  8. #8
    Expert confirmé
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Par défaut
    Bonjour,

    Est-ce que tu as ajouté à nouveau la référence à ADO ?

    Autre piste. Tu utilises la référence Forms 2.0 ? (Probablement rien à voir).

    Enfin, je ne sais pas si tu as indiquer les références dans l'ordre. Perso, je cocherais :

    Visual Basic For Applications
    Microsoft Access XX.X Object Library
    OLE automation
    Microsoft DAO 3.6 Object Library
    Microsoft Excel XX.X Object Library

    J'ai juste essayer de compiler en mettant en remarque les lignes avec des références aux cellules, je n'ai pas d'erreur. Version XP, soit 10.0.

    Domi2

  9. #9
    Membre confirmé
    Inscrit en
    Octobre 2004
    Messages
    124
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 124
    Par défaut
    Bonjour,

    La seule référence ADO que j'ai c'est :

    microsoft ADO ext. 2.8 for DDL and Security

    je l'ai intégrée et toujours la même erreur

    Merci

  10. #10
    Expert confirmé
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Par défaut
    Re,

    J'ai fait un edit de mon post précédent.

    As-tu besoin d'ADO.

    Si oui, essaye de cocher les références dans l'ordre que j'ai indiqué, en placant la référence ADO avant la DAO (puis après si ça ne fonctionne pas.

    Je refais un test avec ADO.

    Domi2

  11. #11
    Membre Expert

    Homme Profil pro
    Inscrit en
    Janvier 2006
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 186
    Par défaut
    La réf à OLE est-elle nécessaire ?
    [Access] Les bases du débogage => ici

  12. #12
    Membre confirmé
    Inscrit en
    Octobre 2004
    Messages
    124
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 124
    Par défaut
    Re,

    bon impossible de supprimer Forms 2.0 (impossible de supprimer le contrôle ou la référence : en cours d'utilisation)

    Idem impossible de bouger VBA, excel 11.0 et Forms2.0. Voici les références :
    VBA
    Excel 11.0
    Forms 2.0
    Access 11.0
    OLE
    DAO 3.6

  13. #13
    Membre Expert
    Avatar de cavo789
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2004
    Messages
    1 797
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2004
    Messages : 1 797
    Par défaut
    @Arkham46 :

    Tu peux essayer de la ré-inscrire en tapant dans démarrer -> exécuter :
    Merci Arkham. Une application que j'ai développé et qui est en production depuis deux ans me donnait le même message d'erreur que xycoco rencontrait. Mon département IT Helpdesk a bossé plusieurs heures, sur trois jours de temps, pour trouver la solution; sans succès.

    Google m'a dirigé vers ce post et ta solution => parfait !!!

    Merci !

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

Discussions similaires

  1. [XL-2013] Bibliothèque non inscrite VBA LISTVIEW
    Par cedric6468 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 07/01/2015, 10h51
  2. [XL-2010] Progressbar - Bibliothèque non inscrite
    Par MarcelG dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/11/2012, 09h00
  3. [AC-2010] Erreur Automation, bibliothèque non inscrite
    Par Poulki dans le forum VBA Access
    Réponses: 2
    Dernier message: 10/11/2012, 15h25
  4. [Sécurité] stop achat si pas loggué ou non inscrit
    Par oceane751 dans le forum Langage
    Réponses: 7
    Dernier message: 06/12/2005, 22h00
  5. Pb création diagramme : bibliothèque non inscrite
    Par jeff37 dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 12/08/2004, 16h38

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