Mécanisme de bibliothèque d'objets non géré

[beegees]

Bonjour tout le monde,

J'utilise Excel 2007 et Access 2003 (avec VBA côté Access).

J'utilise cette solution depuis au moins 3 ans sans aucun problème mais aujourd'hui, lorsque je lance mon code, j'obtiens ce message d'erreur :

Erreur de compilation : Mécanisme de bibliothèque d'objets non géré

Voici la ligne de code sur lequel l'éditeur de code s'arrête :

Set appexcel = CreateObject("Excel.Application")

Et voici le début de mon code :

Public Function Annexes_Master()
Dim ValSQL As String
Dim Numéro
'La déclaration Numéro va nous servir pour connaître le numéro de matricule.
Dim bds As DAO.Database, rst As DAO.Recordset
Dim appexcel As Excel.Application

Dim wbexcel As Excel.Workbook
Dim rqtPharma11998 As String
Dim Errormsgbox As String
Dim lngEtudiants As Long
Dim SESSION As String 'pour éviter de devoir indiquer la session dans chaque ligne de la table access !!!
Dim Effacer_REUS As Boolean

Effacer_REUS = False

'je ferme toutes les requêtes ouvertes avant de commencer la programmation
For Each req In CurrentDb.QueryDefs
    DoCmd.Close acQuery, req.Name, acSaveYes
Next req


On Error GoTo TraitementErreur

    'Voici la programmation de la boite servant à demander le numéro de matricule:

Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True

Dans less références, j'ai :

Microsoft Access 11.0
Microsoft Excel 12.0
Microsoft DA0 3.6
VBA
OLE automation
ADO 2.1
....

Merci d'avance pour votre aide.

beegees

 

[beegees]

[RESOLU]Re : Mécanisme de bibliothèque d'objets non géré

Bonjour,

J'ai trouvé la solution.

Il fallait supprimer la référence Excel et la remettre.

Bonne journée.
beegees