Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 05/01/2012, 16h42   #1
Nouveau Membre du Club
 
Homme Karim
Développeur informatique
Inscription : mai 2004
Messages : 56
Détails du profil
Informations personnelles :
Nom : Homme Karim
Âge : 39
Localisation : Belgique

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : mai 2004
Messages : 56
Points : 26
Points : 26
Envoyer un message via MSN à lepotier
Par défaut Appelle de procédure, importer d'un Module

Bonjour à tous,

J'ai deux erreurs possible (je dis possible car elles ne sont pas systématique) lors de l'appelle d'une procédure qui se trouve dans un Module que j'importe.

1ère Erreur "Run-Time error '424' Object required" lors du Form_load() de la procédure "importModule ("QuickFn")" pourtant je vois bien que le Module "QuickFn" est présente dans mes modules.

L'autre erreur est "Handle is invalid", j'aurai bien voulu vous donnez un code erreur mais je ne l'ai plus pour le moment

Voici mon code
Code :
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
 
Private Sub Form_Load()
 
        importModule ("QuickFn")    'Appel de la procèdure
        QuickFn.Alerts("test")         ' fonction qui retourne une msgBox
 
End Sub
________________________________________________________________
 
Sub importModule(monModule As String)
 
    Dim vbC As VBComponent
 
    For Each vbC In Application.VBE.ActiveVBProject.VBComponents
        If vbC.Name = monModule Then
            Application.VBE.ActiveVBProject.VBComponents.Remove vbC
        End If
    Next
 
    Set vbC = Application.VBE.ActiveVBProject.VBComponents.Import("C:\Documents and Settings\......\" + monModule + ".bas")
    vbC.Name = monModule
    'DoCmd.Save acModule, monModule
 
    Set vbC = Nothing
 
End Sub
Un idée ? Je suis sous Office 2003

Merci d'avance pour votre aide
lepotier est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 21h11.


 
 
 
 
Partenaires

Hébergement Web