Ouvrir fonction à partir d'un module

Bonjour,

Par souci de clareté dans mon code, je souhaite déplacer les fonctions que jai crée dans des modules.
La fonction en soi fonctionne, mais une fois que je la met dans le module, impossible de le faire fonctionner et cela m'affiche une erreur.
Que puis-je faire ?

Voilà le code de ma fonction placé dans un module portant le nom clickNOE:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function clickNOE()
Dim ad_NOE_bsc As String
Dim ad_NOE_dat As String
 
    ad_NOE_bsc = "\\Srvdfs00\partages\0-50\M00034\Prive\OPR\Groupe Outils et Production\Outils\Conversion\Export\NOE\celcig.bsc"
    ad_NOE_dat = "\\Srvdfs00\partages\0-50\M00034\Prive\OPR\Groupe Outils et Production\Outils\Conversion\Export\NOE\celcig.dat"
 
    If Len(Dir(ad_NOE_bsc)) <> 0 Then Kill ad_NOE_bsc
    If Len(Dir(ad_NOE_dat)) <> 0 Then Kill ad_NOE_dat
 
   'table 1 (BSC)
    DoCmd.TransferText acExportDelim, "S_PC", "R_PC_NOE", "\\Srvdfs00\partages\0-50\M00034\Prive\OPR\Groupe Outils et Production\Outils\Conversion\Export\txt\celcigNOE.txt", True
    Name "\\Srvdfs00\partages\0-50\M00034\Prive\OPR\Groupe Outils et Production\Outils\Conversion\Export\txt\celcigNOE.txt" As ad_NOE_bsc
 
    'table 2 (DAT)
    DoCmd.TransferText acExportDelim, "S_cell", "R_CELL_NOE", "\\Srvdfs00\partages\0-50\M00034\Prive\OPR\Groupe Outils et Production\Outils\Conversion\Export\txt\R_Cell_NOE.txt", True
    Name "\\Srvdfs00\partages\0-50\M00034\Prive\OPR\Groupe Outils et Production\Outils\Conversion\Export\txt\R_Cell_NOE.txt" As ad_NOE_dat
 
End Function

Et voilà l'appel :

Code:

1
2
3
Private Sub btntest_Click()
DoCmd.OpenModule "clickNOE", "clickNOE"
End Sub

Seulement ça m'ouvre le module comme je l'ai demandé, mais m'affiche le code. Je souhaiterai lancer ce module moi...

Merci d'avance,

Non il faut que tu appel ta fonction et non que tu ouvres ton module
Il faut tout d'abord que tu rajoutes public devant la déclaration de ta fonction
Code:

1 2 3 4 5 Public Function clickNOE() Dim ad_NOE_bsc As String Dim ad_NOE_dat As String ... End Function
Et après il suffit de l'appeler :

Code:

ClickNOE

Oui, mais il me met "Variable ou procédure attendue et non un module" en me mettant en me surlignant Private Sub btntest_click()

C'est bon !
Le fait est que j'avais donné le meme nom au module qu'à la fonction et ca ne lui avait pas plu..

Merci beaucoup pour le coup de pouce ;)

De rien! :)
N'oubli pas d'appuyer sur résolu si tu n'as plus de problèmes ;)