Discussion :

[patyom]

RE,
J'ai écrit des "function" dans un module et il semblerait que l'on ne puisse pas les réutiliser dans un autre module sans le recopier.
J'ai bien dit "Function" et non "Sub", c'est-à-dire que j'ai une valeur en retour.
Est-ce vrai, sinon comment faites-vous.

A+

[Jean-Philippe André]

salut,
tes functions sont-elles bien declarees en portee public ?

[patyom]

Oui :

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
20
21
22
23
24
25
26
27
28
Public Function GetText(sFile As String) As String
 
    Dim nSourceFile As Integer, sTexte As String
    On Error Resume Next
 
    'Close any open text files
    ' *******************************************
    Close
 
    'Get the number of the next free text file
    ' *******************************************
    nSourceFile = FreeFile
 
    'Write the entire file to sText
 
    ' *******************************************
    Open sFile For Input As #nSourceFile
    sTexte = Input$(LOF(1), 1)
 
    'Close file
    ' *******************************************
    Close
 
    ' Retour valeur
    ' *******************************************
    GetText = sTexte
 
End Function

Elle se trouve dans un module différent de celui où se trouve le nouveau code

Oups !!

Autant pour moi, j'avais 2 fois la même "function" dans mes modules

Excusez-moi et A+