Utilisation des variables public

Bonjour,

je pensai avoir compris l'utilisation des variables PUBLIC mais il semble qu'il me manque un maillon

Je voudrai simplifier l'accès au chemin d'accès à mes classeurs Excel en utilisant la fonction PUBLIC

1) j'ai défini en un endroit unique le chemin d'accès dans le premier classeur de mon enchainement (dans la cellule "H1" de la feuille paramètre "PARAM")

2) dans le classeur suivant il y également une feuille PARAM et la cellule H1 de cette feuille est renseignée par Excel par une équivalence avec la feuille du premier classeur (=PARAM!H1)
pas de problème

3) j'ai défini dans ce classeur dans un module

Code:

---

Public chemin As String

---

pour pouvoir utiliser la variable "chemin" dans mes macros

4) Pour donner la valeur à la variable, dans ThisWorkbook open j'ai écrit :

Code:

---

chemin = Sheets("PARAM").Range("H1").Value

---

J'ai bien la valeur de mon chemin dans la variable en fin de Thisworkbook open

Mais quand j'utilise la variable dans une macro elle a une valeur = ""

Que manque-t-il ?

Je pense que vous devez définir la valeur de vos variables dans un module.
Par exemple dans le module dans lequel vous avez déclaré votre variable, vous mettez ceci :

Code:

---

1 2 3

Sub MesVariables() chemin = Sheets("PARAM").Range("H1").Value end Sub

---

et vous faite appel à MesVariables, que ce soit dans le Thisworkbook.open ou ailleurs pour attribuer la valeur publique à chemin

Bonjour,

Citation:

---

je pensai avoir compris l'utilisation des variables PUBLIC mais il semble qu'il me manque un maillon

---

Rien de tel que la lecture d'un bon tutoriel sur le sujet Utiliser les variables en VBA Excel

Merci à vous 2, je suis en train de regarder,

en fait pour ne pas avoir à trop changer mon code j'aurai voulu remplacer dans le module où je déclare mes variables PUBLIC:

Code:

---

Public Const pathServeur As String = "C:\Répertoire"

---

par quelque chose comme cela :

Code:

---

1 2 3

Public chemin As String Public chemin = Sheets("Param").Range("H1").Value

---

mais cela ne va pas et je ne sais même pas si c'est possible car je ne voie pas ça dans les docs

Bonjour,
Evite d'utiliser "mais cela ne va pas" car cela ne veux strictement rien dire. Soit tu as un message d'erreur et tu donnes son numéro et le texte qui l'accompagne , soit la variable est vide et tu le signales

De deux choses l'une, soit tu choisis d'utiliser une constante publique alors c'est

Code:

---

Public Const pathServeur As String = "C:\Répertoire"

---

soit tu choisis une variable publique et dans ce cas c'est

Code:

---

1 2 3 4

Public chemin As String Sub Init() chemin = Sheets("Param").Range("H1").Value End Sub

---

Et donc au démarrage, tu dois lancer la procédure Init. Init étant un nom choisi au hasard

J'ai bien fait cela :

Code:

---

1 2 3 4 5 6

Public pathServeur As String   Sub chemin() pathServeur = Sheets("Param").Range("H1").Value End Sub

---

et dans ThisWorkbook open

Code:

---

Call chemin

---

en sortie de ThisworkBook pathServeur à la bonne valeur de H1 de Param

Quand j'utilise ensuite dans le même classeur dans une macro :

Code:

---

pathFact = pathServeur & "\" & fich12 & ".xlsm"

---

pathServeur à la valeur ""

Bonjour,
C'est très curieux ce que tu écris.
j'ai effectué un test par acquit de conscience, cela fonctionne parfaitement chez moi.

As-tu bien placé la déclaration de la variable publique dans un module standard ?

La déclaration et sub chemin est dans module 1

je viens de retester j'ai le même phénomène, comme tu me confirmes que c'est la bonne solution je vais regarder d'encore plus près

Pour reprendre tout à plat :

j'ai pour l'instant le chemin d'accès au répertoire dans 7 classeurs différents dans le même module 3 de chaque classeur sous la forme

Code:

---

Public Const pathServeur As String = "K:\répertoire"

---

ce qui je réalise (un peu tard) va me poser un problème de portage sur les autres PC (7 modifs à faire)

Ce que je voudrai :

la possibilité de définir à un seul endroit le chemin, comme une définition "Public" pour la durée de l'instance Excel qui passerai automatiquement de classeur en classeur

Bonjour,
On s'éloigne très fort de ta demande initiale. Sans connaître les tenants et aboutissants de ce que tu attends, il est difficile de t'aider.

Bonsoir,

pas tant que ça puisque c'est pour répondre à ce besoin que j'essaye de mettre en oeuvre la solution.

pour revenir à mes tests j'ai donc dans un module :

Code:

---

1 2 3 4 5

Public pathServeur As String   Sub chemin() pathServeur = Sheets("Param").Range("H1").Value End Sub

---

et dans ThisWorkbook open

Code:

---

Call chemin

---

1) j'ouvre le classeur et en lançant en pas à pas une macro utilisant pathServeur, la valeur de la variable contient bien la contenu de H1 de Param

2) je lance en pas à pas une 2eme fois la même macro (sans avoir fermé le classeur), la variable pathServeur = ""

gloups…

Bonjour,

Je ne comprend pas non plus que ça ne fonctionne pas. Pour moi il y a un élément que tu omets de signaler.

Quoiqu'il en soit, ça ne t'aidera pas pour ce que tu veux, elle ne sera pas visible d'un autre classeur.

Pour ça tu peux utiliser un nom caché.
Résidu d'excel4, un tel nom est lié à l'application et reste donc visible pour la durée de vie de l'application (jusqu'à fermeture d'excel donc, même si le classeur l'ayant créée est fermé)), et ce de tous les classeurs.
Création :

Code:

---

Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\répertoire"")"

---

Lecture :

Code:

---

chemin = Application.ExecuteExcel4Macro("GET.NAME(""pathServeur"")")

---

eric

Je pense aussi que j'omets involontairement qq chose mais je ne vois pas quoi, j'exécute en pas à pas juste les 5 premières lignes de ma macro et je regarde les variables…

Pour ta solution j'ai fait un premier essai rapide et pour la valeur de "chemin" j'obtiens :

="K:\répertoire"

avec des décalages je peux me débrouiller bien sur

Question : ce "résidu" de Excel 4 ne risque-t-il pas de disparaître sans préavis ?

comment dois-je l'utiliser dans les autres classeurs ? mettre les 2 lignes dans le 1er classeur puis dans chaque Thisworbook je dois relire avec :

Code:

---

chemin = Application.ExecuteExcel4Macro("GET.NAME(""pathServeur"")")

---

Citation:

---

Pour ta solution j'ai fait un premier essai rapide et pour la valeur de "chemin" j'obtiens :
="K:\répertoire"
avec des décalages je peux me débrouiller bien sur

---

?? Je ne comprend pas bien, tu mets la chaine dont tu as besoin bien sûr

Citation:

---

Question : ce "résidu" de Excel 4 ne risque-t-il pas de disparaître sans préavis ?

---

Ca fait 15 ans qu'il est maintenu, peu de raison que ça change.
Il sera temps de procéder autrement à moment là, par exemple en mettant dans un fichier ou dans la base de registre.

Citation:

---

comment dois-je l'utiliser dans les autres classeurs ? mettre les 2 lignes dans le 1er classeur puis dans chaque Thisworbook je dois relire avec :

---

oui
Mais tant que le classeur avec la déclaration ne sera pas ouvert, elle ne sera pas connue.
En tenir compte si tu as des workbook_open en ayant besoin dans les autres classeurs.
eric

merci

pour le résultat dans la variable voilà ce que j'ai dans les variables locales

Citation:

---

chemin "="K:\ES-SIG"" String

---

je m'attendais à avoir :

Citation:

---

chemin "K:\ES-SIG" String

---

d'où sort le signe = ?

mon code

Code:

---

1 2 3 4 5 6 7

Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\ES-SIG"")"   pathServeur = Application.ExecuteExcel4Macro("GET.NAME(""pathServeur"")")   chemin = pathServeur

---

j'ai ajouté chemin = pathServeur pour vois le contenu dans les variables locales, pathServeur étant défini en Public

Bonjour,
Pour lire la variable c'est

Code:

---

MsgBox Application.ExecuteExcel4Macro("pathServeur")

---

ou avec variable intermédiaire

Code:

---

1 2 3

Dim chemin chemin = Application.ExecuteExcel4Macro("pathServeur") MsgBox chemin

---

Citation:

---

d'où sort le signe = ?

---

Le nom étant sensé accueillir une formule il est ajouté d'office.
A toi de l'enlever avec

Code:

---

=mid(Application.ExecuteExcel4Macro("GET.NAME(""pathServeur"")"),2)

---

eric

merci à vous 2, cela semble donner un résultat correct quelque soit la longueur du chemin, je vais tester complétement dans tous les cas

j'ai du adapter le code pour avoir le bon résultat, notamment pour retirer une quote en trop en début et en fin de chaîne

Code:

---

1 2 3 4 5 6 7 8

Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\ES-SIG"")"   ' Version de test 'Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""Z:\Test\ES-SIGtest"")"   pathServeur = Mid(Application.ExecuteExcel4Macro("GET.NAME(""pathServeur"")"), 2) pathServeur = Replace(pathServeur, """", "")

---

vous auriez surement une solution plus "propre" mais cela semble convenir

Bonjour,

Citation:

---

vous auriez surement une solution plus "propre" mais cela semble convenir

---

Je t'ai pourtant donné la syntaxe qui te renvoie la chaîne sans le signe d'égalité ni les guillemets

oui en effet

Code:

---

pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

pour être sur d'avoir bien compris :

dans le premier classeur je mets dans ThisworkBook open :

Code:

---

1 2 3

Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\ES-SIG"")" pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

et dans chaque macro de tous les modules utilisant "pathServeur" je mets :

Code:

---

1 2	pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

inutile de remettre dans les "ThisWorkbook open" des classeurs qui sont ouverts ensuite dans la même instance :

Code:

---

Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\ES-SIG"")"

---

c'est bien cela ?

Bonjour,
C'est exactement cela. Une fois que la valeur est définie, elle reste valable tant que la session d'excel est ouverte ou jusqu'au moment où tu décides de la détruire.

il semble qu'il y ait juste besoin de :

Code:

---

1 2	Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\ES-SIG"")" pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

dans "Thisworkbook open" du 1er classeur et pas besoin de

Code:

---

pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

dans les macros et les autres classeurs, cela me semble contraire à ce que j'avais compris mais cela marche apparemment

normal ?

Bonjour,
N'ai je pas déjà répondu par l'affirmative ou bien est-ce que je m'exprime mal ?

Bonjour,

heuuu, j'ai un gros doute là.
Pour moi, une variable Public sera visible de tous les modules du même classeur, mais pas des autres.
Donc si ça tourne sans que tu aies besoin de l'initialiser dans les autres (tu confirmes ?), c'est qu'elle n'y est pas utilisée.
Dans ce cas pas besoin tout ça.

De plus tu nous as embrouillé en nous faisant partir sur comment lire une variable d'un autre classeur...
Pris d'un doute, j'ai relu ta question et :

Citation:

---

1) j'ai défini en un endroit unique le chemin d'accès dans le premier classeur de mon enchainement (dans la cellule "H1" de la feuille paramètre "PARAM")

---

Il te suffit d'aller lire cette cellule.
eric

Bonjour Eric,
Une variable publique est effectivement connue uniquement dans le projet où elle se trouve mais à partir du moment où on utilise les noms cachés ceux-ci sont lisibles depuis n'importe quel classeur tant que la session d'excel est ouverte.
Dans ce cas là évidemment, il n'y a aucune raison d'utiliser une variable publique.
Cependant personnellement je ne travaillerais pas comme cela mais comme on n'a aucune connaissance de la manière dont travaille le demandeur, il est difficile de proposer une autre solution tel que par exemple un fichier INI contenant le chemin du répertoire ou encore d'autres options.

Ma demande est simple, n'avoir à modifier qu'à un seul endroit le chemin d'accès pour différencier le chemin du serveur suivant si environnement de test ou de prod

je suis ouvert à toutes nouveautés, c'est en forgeant qu'on devient forgeron.. Mais je vous rappelle que j'ai découvert l'informatique et VBA il y a qq mois seulement, cela va parfois trop vite pour moi.

Dans la solution actuelle, ok dans le premier classeur, celui qui contient dans "Thisworkbook open"

Code:

---

1 2	Application.ExecuteExcel4Macro "SET.NAME(""pathServeur"",""K:\ES-SIG"")" pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

par contre dans le second (ouvert par le 1er) je n'ai rien mis dans "ThisworkBook open"

dans la macro qui doit accéder à pathServeur j'ai codé

Code:

---

pathServeur = Application.ExecuteExcel4Macro("pathServeur")

---

et j'ai erreur de compilation : incompatibilté de type

J'ai défini dans ce second classeur "pathServeur" dans un module comme :

Code:

---

Public pathServeur As String

---

je ne vois pas où est l'erreur

Comme dit dans mon précédent post apparemment passé inaperçu :
ton chemin est dans une cellule, il te suffit d'aller la lire.
Ca peut être fait depuis n'importe quel classeur contrairement aux variables. Ca évite toutes ces acrobaties inutiles
eric

Je vais envisager cette solution. Mais je voudrai trouver une solution pour ne pas à avoir à modifier mes macros et donc donner à l open la valeur de pathserveur = le contenu de la cellule contenant le chemin

De toute façon tu seras obligé de les reprendre puisqu'actuellement ça ne fonctionne pas. Non ?
eric

Actuellement je modifie à la main les chemins dans la déclaration "public" dans un module de chaque classeur concerné (7 classeurs)

Oui.
Et bien à la place, dans ta macro, tu vas lire la cellule du 1er classeur (que je suppose toujours ouvert) qui contient le chemin.

Code:

---

chemin=workbooks("machin").worksheets("truc").[A1].value

---

ou bien continue avec le nom caché si tu avais bien avancé avec, mais ce n'est plus impératif comme avant.
eric

Je vais essayer les 2 solutions ne serait-ce que pour apprendre, mais mon 1er classeur est fermé dans la suite de l'enchainement...

Tu comptais lire une variable d'un fichier fermé qui, par définition, n'a pas de macro lancée ????
Il va falloir mettre de l'ordre dans tes idées, c'est fouillis ;)
Si tu comptais lire avant sa fermeture, ça reste possible pour une cellule aussi.

je me suis mal exprimé, le classeur est fermé, la cellule est lue avant fermeture bien sur

je vous remercie tous les 2, j'ai testé vos 2 solutions avec succès après pas mal de tâtonnements.
Mon problème de base est résolu.