Discussion :

[mouftie]

Bonjour,
J'ai un fichier principal, dans lequel est écrit mon code ; ce dernier ouvre tour à tour des fichiers dont les noms contiennent tous une constante DateCours XX.xlsx
Donc je voudrais déclarer cette constante au début du projet.
J'ai écrit :

Code :

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

Public Const DateCours As String = Workbooks("MonFichierPrincipal.xlsm").Sheets("MàJ").Range("E12")

mais ça bug quand j'ai dans un module :

Code :

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

Workbooks(DateCours & " Grc.xlsx").Activate

.Range est surligné et le motif est : Erreur de Compil ; Constante requise.

Quelqu'un peut-il m'aider svp.
Merci

[Philippe Tulliez]

Bonjour,
Le bug ne vient pas de la ligne que tu indiques mais de la déclaration de la constante avec une valeur qui ne l'est pas.
Si tu places cette seule ligne de code dans un projet tu auras le même message d'erreur.

Code :

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

Public Const Test As String = ThisWorkbook.Worksheets("Feuil1").Range("A2")

de même avec ces lignes

Code :

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

Public Const monJour As Date = Date

ou

Code :

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

Public Const monCaractere As String = Chr(65)

Une constante comme son nom l'indique ne peut pas être alimentée par une valeur variable comme par exemple le résultat d'une fonction.
Par contre elle peut être une expression composée de constantes et d'opérateurs numériques comme ci-dessous.

Code :

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

Public Const monResultat As Integer = 10 + 20

[mouftie]

Bonsoir Philippe,
tu dis

une valeur qui ne l'est pas.

pourtant en E12, j'ai bien une valeur qui ne bouge pas de tout le programme du type S10.
Donc si je te comprends bien si j'écris :

Code :

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

Public Const DateCours  As String = S10

ce sera Ok, par contre faire référence à E12 n'est pas faisable.
Il n'y a donc pas d'autre solution que de mettre dans chaque procédure du projet :

Code :

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

DateCours  = Workbooks("MonFichierPrincipal.xlsm").Sheets("MàJ").Range("E12")

Merci de bien vouloir confirme que j'ai bien compris tes explications, stp.

[Philippe Tulliez]

Bonjour Mouftie
Je me suis sans doute mal exprimé. Je voulais dire que la valeur que tu assignes à cette constante et qui est dans une cellule pourrait être variable.
Cette ligne assigne une valeur constante à la constante et est correcte.

Code :

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

Public Const maDate As Date = #4/2/2014#

Pourquoi ne passes-tu pas simplement pas une variable publique dont la valeur peut être dans ce cas être assignée par le contenu d'une cellule.

[casefayere]

Bonjour Philippe, mouftie, re le forum

Pour appuyer ce que tu dis, Philippe

Code :

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

1
2
3
Private Sub Workbook_Open()
VoirVariable
End Sub

et dans un module

Code :

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

1
2
3
4
Sub VoirVariable()
Public DateCours As String
DateCours = Workbooks("MonFichierPrincipal.xlsm").Sheets("MàJ").Range("E12")
End Sub

[Philippe Tulliez]

Bonjour Dominique,
Attention qu'une variable publique doit être déclarée en tête de module et pas dans une procédure.

[casefayere]

Excuses-moi, erreur bête, pourtant je le sais

Code :

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

1
2
3
4
Public DateCours As String
Sub VoirVariable()
DateCours = Workbooks("MonFichierPrincipal.xlsm").Sheets("MàJ").Range("E12")
End Sub

Bonne soirée

[mouftie]

Bonjour Philippe et Dominique,
Je vous remercie pour ces explications, je vais faire comme vous dites.
Affaire résolue...