Bonjour,

Mon post fait peut être un peu doublon avec un autre que j'ai écris, mais j'aurais souhaité être aidé sur l'utilisation des modules de classe plus général.

J'ai lu les tutos dessus mais j'ai quelques zones d'ombre pour leur utilisation.

J'ai créé ce module intitulé Xportxl :

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
Option Compare Database
Option Explicit
 
Private mstrXlname As String                'Nom du fichier Excel
Private mstrXlchemin As String             'Nom du chemin de sauvegarde
 
 
' Propriété fichier
Property Let Xlname(strXlname As String)
   mstrXlname = strXlname
End Property
Property Get Xlname() As String
    Xlname = mstrXlname
End Property
 
' Propriété Chemin
Property Let Xlchemin(strXlchemin As String)
    mXlchemin = strXlchemin
End Property
Property Get Xlchemin() As String
    Xlchemin = mstrXlchemin
End Property
Je souhaiterais l'utiliser dans deux formulaires distincts, on ne va parler que de Xlname.

Un formulaire F1 dans lequel je saisis un champ f1 à qui je souhaite donner le nom de variable Xlname (es ce le nom de la variable qui sera utilisé ?)
Un formulaire F2 ou ensuite je veux récupérer la valeur de ce champ par le biais de ma variable Xlname et l'attribuer à une autre variable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
NameExcel = Xlname
et quisera utilisée dans :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
strXLFile = "d:\bases extincteurs\Access 2007\" & NameExcel & ".xls"
Ma difficulté réside dans le fait que je ne voit pas à quel endroit je doit appeler cette variable privée dans mes formulaires et de quelle manière. Faut il mettre l'appel juste en dessous de Option Explicit du formulaire ?

Merci d'avance de votre aide.

MArcopololo