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

[davenne.benoit]

Il me met un mesage d'erreur sur ce code :

Code :

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

1
2
 
Public Const repertoire_fichier As String = "C:\ .. \ fichier "

il me dit nom ambigu ...

Ca viens de quoi ?

[Tempas]

repertoire_fichier n'existe-t-il pas déjà quelquepart ? le nom d'un module ou nimporte quoi d'autre ?

Edit: chez moi ca fonctionne sur un tout petit code (juste en voulant afficher le contenu de la variable"

Au clic sur un bouton

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
    MsgBox repertoire_fichier
End Sub

Dans un module appelé globales

Code :

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

1
2
 
Public Const repertoire_fichier As String = "C:\mesdocuments\fichier"

[davenne.benoit]

Il n'aime pas la synthaxe ...

pourtant j'ai retesté avec un lien " bateau" ...

Code :

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

1
2
3
 
 
Public Const repertoire As String = "C:\Documents and Settings\BDE3\Mes documents\Mes images"

... je comprend pas

[davenne.benoit]

C'est bon je viens de comprendre c'est parce que j'avais laisser le :

Code :

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

1
2
3
 
 
Global repertoire As String

No comment...

Merci beaucoup de ton aide.