variable a utiliser dans plusieurs modules

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 :D

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

Code:

---

Public Repertoir as string

---

ensuite tu peux l'utiliser partout !

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

J'ai creer un module déclarant mes variables

Code:

---

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:

---

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 ???

:calim2:

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

Code:

---

Public Const Variable As Type = Valeur

---

En l'occurence dans ton code

Code:

---

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.

Bonjour,

Citation:

---

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:

---

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

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

Code:

---

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

---

il me dit nom ambigu ...

Ca viens de quoi ?

:cry:

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:

---

1 2 3 4

Private Sub CommandButton1_Click() MsgBox repertoire_fichier End Sub

---

Dans un module appelé globales

Code:

---

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

---

Il n'aime pas la synthaxe ...

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

Code:

---

1 2 3

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

---

... je comprend pas :cry:

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

Code:

---

1 2 3

Global repertoire As String

---

No comment... :aie:

Merci beaucoup de ton aide. :ccool: