bibliothèque non inscrite

**xycoco** · 09/10/2007, 09h07

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

**Kloun** · 09/10/2007, 09h44

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CurrentDb

**xycoco** · 09/10/2007, 11h17

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CurrentDb

encore 1000 merci

**Kloun** · 09/10/2007, 11h26

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set db = CurrentDb

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

**xycoco** · 09/10/2007, 11h38

J'ai essayé le code,

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

merci

**Kloun** · 09/10/2007, 11h42

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.

**xycoco** · 09/10/2007, 16h01

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

**Domi2** · 09/10/2007, 16h13

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

**xycoco** · 09/10/2007, 16h26

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

**Domi2** · 09/10/2007, 16h33

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

**Kloun** · 09/10/2007, 16h39

La réf à OLE est-elle nécessaire ?

**xycoco** · 09/10/2007, 16h47

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

**cavo789** · 22/01/2008, 13h50

@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 !

bibliothèque non inscrite

VBA Access

Vue hybride

Discussions similaires

Partager

Partager