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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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,