declaration constante range

Bonjour,

A l'ouverture de mon classeur, j'ai une macro qui vérifie l'arbo des dossiers dont j'ai l'utilité, mon chemin reso et qui les inscrit dans des cellules.

je voudrai ensuite déclarer comme constante publique le contenu de ces cellules.

Code:

---

Private Const Chemin As String = "J:\dossier\journal.txt"

---

fonctionne mais

Code:

---

Private Const Chemin As String = sheets("A").[A1]

---

ne marche pas puisque c'est un range

comme mon chemin reso change souvent, je ne voudrais pas l'inscrire en dur mais via la valeur de mon range.

Y a t il une solution ?

Bonjour,
La solution est d'utiliser une variable publique mais pas une constante.
Une variable déclarée comme constante doit être déclarée avec une constante et pas avec une valeur variable, or le contenu du range("A1") est variable.

Code:

---

1 2 3 4 5 6 7

Private Const Chemin As String = "J:\dossier\journal.txt" Public monChemin As String Sub Main() monChemin = Range("A1") Debug.Print Chemin & " " & monChemin End Sub

---

oui j'étais bien consciente que mon range était une variable !

Je vais utiliser ta solution.

Merci et bonne fin de journée