Discussion :

[lilp1]

Bonjour le forum,
j'aimerais pouvoir déclarer une variable qui serait valable et qui garderait la même valeur pour tous mes modules de mon projet, j'ai bien lut le liens suivant :http://mhubiche.developpez.com/Access/variables/
Donc si j'ai bien comprit au lieux de déclarer comme sa DIm a as string, je devrait faire Public a as string, simplement, je n'ai pas comprit si je doit le réécrire dans chaque module ou dans un seul, et ou je doit le mettre, tout en haut de mon module soit mon 'option explicit' ou directement dans mon sub?
D'avance merci

[Domi2]

Bonjour,

Il te faut effectivement la déclarer dans la section déclaration d'un module standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Compare Database
Option Explicit
 
Public strVariablePublic As String
 
Public Sub UneSub()
'etc...

Domi2

[lilp1]

OK, et je doit la redeclarer dans chacun de mes modules ou je souhaite l'utiliser?

[Domi2]

je doit la redeclarer dans chacun de mes modules ou je souhaite l'utiliser?

Non, une seule fois dans un module standard.

Domi2

[lilp1]

J'ai déclarer ma variable comme cela dans ma feuille excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
 
Public LeFichierAOuvrir As String, classeur As String, nomfeuil As String, classeurorigine As String, nomfeuilleorigine As String
 
Sub btnOk_Click()

Et quand je souhaite l'utiliser dans un modul, il me met variable non définit pour la variable classeurorigine

[aalex_38]

Bonjour,

Ce que dis domi

Il te faut effectivement la déclarer dans la section déclaration d'un module standard.

ce que tu répond :

J'ai déclarer ma variable comme cela dans ma feuille excel

Rien ne t'empêche dans le code du bouton d'appeler un module standard :

Dans le code de la feuille ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub btnOk_Click()
Clique_B1
End sub

Dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
Public LeFichierAOuvrir As String, classeur As String, nomfeuil As String, classeurorigine As String, nomfeuilleorigine As String
 
Sub Clique_B1
' ...
' ...
' ...
End sub

ca devrais fonctionner.

Nb : pour ma part au lieu d'utiliser des globales j'utilise un onglet excel comme source de données.

Un exemple perso avec une feuille Cdonnees :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim NFr As Range, CFr As Range
' On recupère le nom du fichier dans la deuxième colonne deuxième ligne
Set NFr = CDonnees.Cells(2, 2): NomFichier = NFr