Bonjour,

je crois que le titre n'est pas très clair.

En fait j'ai créé une fonction qui va chercher des valeurs dans une table et les stocke dans des variables.
De retour dans ma procédure, je n'arrive pas à utiliser ces variables.

Voici une partie du code réduit à l'essentiel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Commande3_Click()

SelectionBase2 (Modifiable34.Value)
MsgBox PrefixeTable
MsgBox Fournisseur

End Sub
Et ma fonction :
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
Public Function SelectionBase2(BaseChoisie As String)

Dim rs As DAO.Recordset
Dim db As Database
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("Paramètres", dbOpenDynaset)
Dim Critere As String
Dim PrefixeTable As String
Dim Fournisseur As String

Critere = "[base]=" & "'" & BaseChoisie & "'"
With rs
    .FindFirst Critere
    PrefixeTable = .Fields("prefixe_table")
    Fournisseur = .Fields("fournisseur")
End With

End Function
Je suppose que c'est un problème de public ou private.
Est-ce qu'il faut utiliser un module de classe ? Si oui je ne vois pas quoi y mettre.

Merci d'avance.