Discussion :

[Triton972]

Bonjour,

Je travaille sur une application qui scrute toutes les fonctions d'une autre base afin de faire le "ménage"

J'ai un petit souci ...

depuis que j'ai remplacé

Code :

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

    For Each VBC In Application.VBE.ActiveVBProject.VBComponents

par

Code :

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

    For Each VBC In appAccess.VBE.ActiveVBProject.VBComponents

avec

Code :

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

1
2
3
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase Me.BaseP

Me.BaseP reprend le chemin et le nom de la Base à explorer.

J'ai une erreur :

Code :

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

Erreur de chargement de la DLL

lors du balayage des fonctions et procédures définies dans les modules

Quelqu'un a t-il une idée pour traiter ce problème ?

Merci d'avance

[helas]

Bonjour,
Il pourrait s'agir d'une erreur de références dans l'une des bases scrutées.
J'ai testé

Code :

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

1
2
3
4
5
6
7
8
9
 
 Dim appAccess As Access.Application, vbc As Object
 
 Set appAccess = CreateObject("Access.Application")
 appAccess.OpenCurrentDatabase Me!BaseP
 
 For Each vbc In appAccess.VBE.ActiveVBProject.VBComponents
  MsgBox (vbc.Name)
 Next vbc

sans erreur
Compiler la base concernée pour vérifier la cause de l'erreur.

[Triton972]

Bonjour helas,
Merci pour ta réponse je pense effectivement que c'est par là que je dois chercher. J'ai compilé ma base mais je n'ai pas d'erreur. Peux-tu me donner les références que tu as sélectionnées afin que je cherche dans cette direction ?

Merci d'avance
@+