Discussion :

[davenne.benoit]

Sinon j'aurais une petite question ou je ne trouve pas de réponse ...


par exemple j'ai une variable a utilisé dans plusieurs modules ( une direction d'un répertoire)

repertoire = "C:\ ... \ travail"

Dois je le retaper dans tous mes module ou ya t'il une facon de le définir en " global " ???

J'espere etre cette fois ci plus clair

[justgreat]

Déclare ta variable dans n'importe quel module de la façon suivante :

Code :

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

Public Repertoir as string

ensuite tu peux l'utiliser partout !

[davenne.benoit]

Loool non ce n'est pas cela que je veux dire, je m'explique.

J'ai creer un module déclarant mes variables

Code :

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

1
2
3
4
5
 
Global NomFichier As String
Global repertoire As String
Global Image As Object
Global i, j, k As Integer

Mais ce que je voudrai c'est définir mes variable :

Code :

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

1
2
3
 
NomFichier = "blablabla"
repertoire = " C : \ ... \ fichier\"

Et je voudrai ne pas a les avoir a les définir dans chaque module.

Plus clair ???

[Tempas]

En utilisant des constantes non ? Dans ton module qui contient tes variables "globales"

Code :

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

Public Const Variable As Type = Valeur

En l'occurence dans ton code

Code :

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

1
2
3
4
Public Const NomFichier As String = "blablabla"
Public Const repertoire As String = " C : \ ... \ fichier\"
Public Const Image As Object
Public Const i, j, k As Integer

L'avantage c'est que si tu dois changer de valeur, tu change directement une fois, l'inconvénient c'est que tu ne peux pas la changer en cours de route dans ton programme.

[Didier Gonard]

Bonjour,

Loool non ce n'est pas cela que je veux dire, je m'explique.

Ben si, c'est exactement ce que justgreat t'explique, genre dans le module : Module1_Chemins

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
Option Explicit
Option Private Module
Option Base 1
 
 
Public gvStrChemS0 As String
Public gvStrChemS1 As String
Public gvStrChemS2 As String
Public gvStrChemS3 As String
Public gvStrChemS4 As String
 
Sub AttriVar()
.../...
gvStrChemS1 = "ACTIVITE COMMERCIAL " ' avec espace en fin
gvStrChemS2= "CONTACT_" & gvstrID& "\"
gvStrChemS3 = "BASE DE DONNEES\"
gvStrChemS4= "DOCUMENTS MODELES\"
 
.../...
end sub

ce pourrait d'ailleurs être des constantes...


cordialement,

Didier