Discussion :

[retraite83]

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 :

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

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 :

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

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 ?

[Mic13710]

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 :

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

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

[Philippe Tulliez]

Bonjour,

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

[retraite83]

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 :

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

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

par quelque chose comme cela :

Code :

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

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

[Philippe Tulliez]

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 :

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

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

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

Code :

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

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

[retraite83]

J'ai bien fait cela :

Code :

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

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 :

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

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 :

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

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

pathServeur à la valeur ""