Discussion :

[silver_r]

Bonjour à tous !
Je viens sur le forum pour faire appel à vos connaissances pointues en VBA.
En fait depuis un petit moment je me suis mis à fond sur les macros pour automatiser des tableaux de données de prod et j'aimerais avoir un conseil quant à l'utilisation des constantes parce que je n'ai pas trouvé ce que je cherchais sur le site.
En fait j'ai un classeur Excel avec 2 feuilles de calcul et dans la 2eme, il y a dans la cellule (2,1) du texte donnant 1 chemin d'accès du type
C:\Documents and Settings\silver\Mes documents\8juillet\

Cette adresse est à changer manuellement en fonction des postes où je me trouve, il suffit juste de corriger quelques mots dans la cellule (2,1)
Ma question est :
Comment prendre en compte cette adresse pour la définir en constante et l'appeler dans différentes macros sur vba.

J'ai essayé un code du style :

Code :

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

Const CheminDacces As String = Sheets(2).Cells(2, 1).Value

Mais le compilateur m'annonce une erreur : "Constant expression required"
Avez vous une piste pour m'aider a comprendre
merci

[Pierre Fauconnier]

Bonjour

Une constante est ... constante...

Dès lors, tu n'as d'autre choix que d'utiliser une variable, à laquelle tu passeras la valeur de la cellule.

Tu peux également utiliser un objet de type RANGE et utiliser sa propriété VALUE.

Pour pouvoir utiliser cette variable partout dans ton code, elle devra être déclarée dans un module standard, avant toute procédure ou fonction.

[silver_r]

Merci pour votre réponse si rapide !
D'accord j'ai donc confondu constante et variable c 'est du beau !
Mais je comprends pas, comment dois je faire pour que mes 6 routines du Module 1 fassent référence a l'adresse voulue ?
je ne peux pas mettre en haut du module;
dim Adresse as string
Adresse = sheets(2).cells(2,1).value, il faut la mettre dans une routine.
Dois je dans ce cas me répéter et recopier ces 2 lignes dans chaque routine ?
je ne sais pas si je suis clair en réalité j ai du mal a expliquer mon probleme

[Pierre Fauconnier]

Autre possibilité, plus simple, à la réflexion, tu nommes la cellule en Excel (par exemple, NomFichier)

Partout dans ton code, tu utilises [NomFichier] pour y faire référence

[silver_r]

Ok dac merci j'ai fait ce que vous m'avez dit et ca marche niquel