Discussion :

[AgnesK]

bonjour

je voudrais déclarer comme constante dans un classeur la valeur d'une cellule (représentant le chemin réseau des docs partagés)

pourquoi

Code :

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

Public const CheminReso as string = sheets("A").range("A10").value

est-il incorrect ?

j'ai essayé en nommant la plage, pas mieux!

merci par avance pour vos explications

[babaothe]

salut
dans :

Code :

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

Public const CheminReso as string = sheets("A").range("A10").value

Range("A10").Value est une variable. Elle ne peut donc déterminer la valeur d'une constante.

Tu peux par contre utiliser une variable publique CheminReso ainsi :

Code :

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

Public CheminReso as string ' Public si dans un module standard, sinon Private

et :
1) à l'ouverture :

Code :

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

CheminReso = range("A10"').value

2) dans l'évènement Change de ta feuille :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target = Range("A10") Then CheminReso = Target.Value
End Sub

[helas]

Bonjour,
Par définition une constante n'est pas variable
Il est préférable d'initialiser la valeur à l'ouverture du fichier
déclarer une variable globale

Code :

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

1
2
 
Dim chemin As String

puis à l'ouverture du fichier

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
 chemin = Activeworkbook.Worksheets("A").range("A10").value
End Sub

[Pierre Fauconnier]

Salut.

Nomme ta plage CheminReseau dans Excel et tu pourras l'utiliser sans problème en VBA via

Code :

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

range("CheminReseau")

sans devoir initialiser quoi que ce soit à l'ouverture...

[babaothe]

salut Pierre Fauconnier
ou encore :

Code :

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

Public CheminReso As Range

et à l'ouverture (une seule fois, donc) :

Code :

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

Set CheminReso = Range("A10")

Il suffira dès lors de se référer à CheminReso, qui renverra toujours le contenu de A10, quelle que soit la procédure qui l'utilise. Ex :

Code :

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

Msgbox CheminReso

puisque, par défaut de propriété, la propriété utilisée par VBA est Value.

[Pierre Fauconnier]

Perso, je ne comprends pas bien pourquoi se compliquer la tâche en définissant une variable globale qu'il faut initialiser à un moment ou à un autre, alors qu'une plage nommée fait l'affaire.

De plus, si l'utilisateur doit modifier le chemin réseau à un moment ou à un autre, il faudra, pour que la nouvelle valeur soit placée dans la variable, soit fermer et ouvrir à nouveau le classeur, soit intercepter l'évènement Change de la feuille concernée pour modifier la valeur de la variable... Beaucoup de code pour rien, donc, là où ma solution ne fait intervenir aucune ligne de code.

Enfin, si un débogage survient à un moment ou à un autre et qu'il y a arrêt du code, la variable devra être initialisée à nouveau...

J'ai tendance à dire que lorsque l'on programme en VBA pour Excel, il faut d'abord penser Excel, cela simplifie grandement le code, d'une façon générale.

[pgz]

Bonjour.

A mon avis, ce qui est constant, ce n'est pas la valeur de la cellule, mais la cellule elle-même.
Comme une constante ne peut pas être de type objet, on peut oublier.
Après, entre utiliser une cellule nommée ou appeler directement la cellule, il n'y a pas grande différence, sauf que l'utilisation d'un nom préserve le code en cas de déplacment de la cellule.
La solution de Pierre Fauconnier me semble donc la meilleure.
Par contre, pour appeler la cellule au lieu de

Code :

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

Range("Chemin Reseau")

Je préfère

Code :

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

Thisworkbook.Names("CheminReseau").Referstorange.Value

C'est plus sûr si on a plusieurs classeurs ouverts qui contiendraient le même nom.

Cordialement,

PGZ