Discussion :

[batseb]

Bonjour,

Je suis en train de développer un module commun pour différentes macros qui récupère la version de chacun des modules. Celle-ci est stockée dans une constante publique par module.

Le problème est que le module commun contient toutes les constantes possibles mais dès qu'un module est manquant dans une de mes macros, l'option explicit bloque la compilation.

Je ne souhaite pas enlever l'option explicit gage de variables correctement déclarées.

Je cherchais à faire Evaluate("Ma_constante") et gérer l'erreur si celle-ci n'existe pas dans la macro mais ce code ne fonctionne pas.

Avez-vous une idée sur ce sujet?

Merci d'avance pour vos réponses constructives.
Cordialement,
batseb

[PMO2017]

Bonjour,

Peut être une piste en utilisant une gestion d'erreur.
Dans le code exemple suivant, le but est de tester l'existence de feuilles et d'envoyer un message pour celles ne l'étant pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub aa()
Dim S As Worksheet
Dim i&
Dim MsgErreur$
Dim MesFeuilles As Variant
'--- Nom de toutes les feuilles à rechercher---
MesFeuilles = Array("Feuil3", "zaza", "Feuil1", "toto")
 
'--- Test de l'existence des feuilles ---
On Error Resume Next
For i& = LBound(MesFeuilles) To UBound(MesFeuilles)
  Set S = ActiveWorkbook.Sheets(MesFeuilles(i&))
  If Err <> 0 Then
    MsgErreur$ = MsgErreur$ & MesFeuilles(i&) & vbCrLf
    Err.Clear
  End If
Next i&
On Error GoTo 0
'---
If MsgErreur$ <> "" Then MsgBox prompt:=MsgErreur$, Title:="Feuile(s) inexistante(s)"
End Sub

Vous pouvez adapter cet exemple pour tester l'existence de Modules.